CropPhase(): Remove associate().

Author: samsrabin

src/biogeochem/CNPhenologyMod.F90

@@ -2646,21 +2646,17 @@ subroutine CropPhase(bounds, num_pcropp, filter_pcropp, &
     !-----------------------------------------------------------------------
     SHR_ASSERT_ALL_FL((ubound(crop_phase) == [bounds%endp]), sourcefile, __LINE__)
 
-    associate( &
-         croplive =>    crop_inst%croplive_patch        , & ! Input: [logical  (:) ]  Flag, true if planted, not harvested
-         hui      =>    crop_inst%hui_patch             , & ! Input: [real(r8) (:) ]  gdd since planting (gddplant)
-         leafout  =>    crop_inst%gddtsoi_patch         , & ! Input: [real(r8) (:) ]  gdd from top soil layer temperature
-         huileaf  =>    cnveg_state_inst%huileaf_patch  , & ! Input: [real(r8) (:) ]  heat unit index needed from planting to leaf emergence
-         huigrain =>    cnveg_state_inst%huigrain_patch   & ! Input: [real(r8) (:) ]  same to reach vegetative maturity
-         )
-
     do fp = 1, num_pcropp
        p = filter_pcropp(fp)
-       call CropPhase_OnePatch(crop_phase(p), croplive(p), leafout(p), hui(p), huileaf(p), huigrain(p))
+       call CropPhase_OnePatch( &
+            crop_phase(p), &
+            crop_inst%croplive_patch(p), &
+            crop_inst%gddtsoi_patch(p), &
+            crop_inst%hui_patch(p), &
+            cnveg_state_inst%huileaf_patch(p), &
+            cnveg_state_inst%huigrain_patch(p))
     end do
 
-    end associate
-
   end subroutine CropPhase