From dfd6faf48f2de6136dbefd1f19eb6c459c5b7d18 Mon Sep 17 00:00:00 2001 From: Xiaojuan Yang Date: Mon, 4 Nov 2019 08:29:05 -0800 Subject: [PATCH] correction of last commit that used incorrect variable names --- components/clm/src/biogeochem/CNNitrogenFluxType.F90 | 10 +++++----- components/clm/src/biogeochem/PhosphorusFluxType.F90 | 10 +++++----- 2 files changed, 10 insertions(+), 10 deletions(-) diff --git a/components/clm/src/biogeochem/CNNitrogenFluxType.F90 b/components/clm/src/biogeochem/CNNitrogenFluxType.F90 index e4326361c371..d58fe5ea27a0 100644 --- a/components/clm/src/biogeochem/CNNitrogenFluxType.F90 +++ b/components/clm/src/biogeochem/CNNitrogenFluxType.F90 @@ -2933,13 +2933,13 @@ subroutine Summary(this, bounds, num_soilc, filter_soilc, num_soilp, filter_soil if (crop_prog) then this%sen_nloss_litter(p) = & - this%livestemn_to_litter(p) + & - this%leafn_to_litter(p) + & - this%frootn_to_litter(p) + this%livestemn_to_litter_patch(p) + & + this%leafn_to_litter_patch(p) + & + this%frootn_to_litter_patch(p) else this%sen_nloss_litter(p) = & - this%leafn_to_litter(p) + & - this%frootn_to_litter(p) + this%leafn_to_litter_patch(p) + & + this%frootn_to_litter_patch(p) end if end do diff --git a/components/clm/src/biogeochem/PhosphorusFluxType.F90 b/components/clm/src/biogeochem/PhosphorusFluxType.F90 index 399b2c438060..9c46cc59b4c0 100755 --- a/components/clm/src/biogeochem/PhosphorusFluxType.F90 +++ b/components/clm/src/biogeochem/PhosphorusFluxType.F90 @@ -2345,13 +2345,13 @@ subroutine Summary(this, bounds, num_soilc, filter_soilc, num_soilp, filter_soil if (crop_prog) then this%sen_ploss_litter(p) = & - this%livestemp_to_litter(p) + & - this%leafp_to_litter(p) + & - this%frootp_to_litter(p) + this%livestemp_to_litter_patch(p) + & + this%leafp_to_litter_patch(p) + & + this%frootp_to_litter_patch(p) else this%sen_ploss_litter(p) = & - this%leafp_to_litter(p) + & - this%frootp_to_litter(p) + this%leafp_to_litter_patch(p) + & + this%frootp_to_litter_patch(p) end if end do