From d255bf6297bb966f7e38326705bb7963d50f6a9e Mon Sep 17 00:00:00 2001 From: Sam Rabin Date: Wed, 31 Aug 2022 08:41:51 -0600 Subject: [PATCH] Now calls cropcal_interp() with filter_inactive_and_active instead of filter. --- src/main/clm_driver.F90 | 2 +- src/main/clm_initializeMod.F90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/main/clm_driver.F90 b/src/main/clm_driver.F90 index fd53fbaab4..de8a53963e 100644 --- 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 index 45511d6869..89a4ae0c95 100644 --- 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