Now calls cropcal_interp() with filter_inactive_and_active instead of…

… filter.
ESCOMP · Aug 31, 2022 · d255bf6 · d255bf6
1 parent cd3b940
commit d255bf6
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/main/clm_driver.F90 b/src/main/clm_driver.F90
@@ -1042,7 +1042,7 @@ subroutine clm_drv(doalb, nextsw_cday, declinp1, declin, rstwr, nlend, rdate, ro
           ! ============================================================================
           ! Update crop calendars
           ! ============================================================================
-          call cropcal_interp(bounds_clump, filter(nc)%num_pcropp, filter(nc)%pcropp, crop_inst)
+          call cropcal_interp(bounds_clump, filter_inactive_and_active(nc)%num_pcropp, filter_inactive_and_active(nc)%pcropp, crop_inst)
 !          write(iulog,*) 'Exited cropcal_interp() in clm_drv()'
        end if
 

diff --git a/src/main/clm_initializeMod.F90 b/src/main/clm_initializeMod.F90
@@ -572,7 +572,7 @@ subroutine initialize2(ni,nj)
       !$OMP PARALLEL DO PRIVATE (nc, bounds_clump)
       do nc = 1,nclumps
          call get_clump_bounds(nc, bounds_clump)
-         call cropcal_interp(bounds_clump, filter(nc)%num_pcropp, filter(nc)%pcropp, crop_inst)
+         call cropcal_interp(bounds_clump, filter_inactive_and_active(nc)%num_pcropp, filter_inactive_and_active(nc)%pcropp, crop_inst)
 !         write(iulog,*) 'Exited cropcal_interp() in initialize2()'
       end do
       !$OMP END PARALLEL DO