Skip to content

Commit a214d01

Browse files
committed
cleanup: Removed whitespaces and preserved newlines
1 parent f72ec94 commit a214d01

5 files changed

Lines changed: 3 additions & 4 deletions

File tree

src/clm5/biogeochem/CNBalanceCheckMod.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -105,7 +105,6 @@ subroutine BeginCNBalance(this, bounds, num_soilc, filter_soilc, &
105105
c = filter_soilc(fc)
106106
col_begcb(c) = totcolc(c)
107107
col_begnb(c) = totcoln(c)
108-
109108
end do
110109

111110
end associate
@@ -162,6 +161,7 @@ subroutine CBalanceCheck(this, bounds, num_soilc, filter_soilc, &
162161

163162
! calculate the total column-level carbon storage, for mass conservation check
164163
col_endcb(c) = totcolc(c)
164+
165165
! calculate total column-level inputs
166166
col_cinputs = gpp(c)
167167

src/clm5/biogeochem/CNCIsoFluxMod.F90

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1503,6 +1503,7 @@ subroutine CNCIsoHarvestPftToColumn (num_soilc, filter_soilc, &
15031503
hrv_livecrootc_to_litter(p) * wtcol(p) * croot_prof(p,j)
15041504
harvest_c_to_cwdc(c,j) = harvest_c_to_cwdc(c,j) + &
15051505
hrv_deadcrootc_to_litter(p) * wtcol(p) * croot_prof(p,j)
1506+
15061507
! storage harvest mortality carbon fluxes
15071508
harvest_c_to_litr_met_c(c,j) = harvest_c_to_litr_met_c(c,j) + &
15081509
hrv_leafc_storage_to_litter(p) * wtcol(p) * leaf_prof(p,j)

src/clm5/biogeochem/CNCStateUpdate1Mod.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -556,8 +556,8 @@ subroutine CStateUpdate1( num_soilc, filter_soilc, num_soilp, filter_soilp, &
556556

557557
! update xsmrpool loss state
558558
cs_veg%xsmrpool_loss_patch(p) = cs_veg%xsmrpool_loss_patch(p) - cf_veg%xsmrpool_to_atm_patch(p) * dt
559-
560559
end if
560+
561561
end if
562562

563563

src/clm5/biogeochem/CNFUNMod.F90

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1525,7 +1525,6 @@ subroutine CNFUN(bounds,num_soilc, filter_soilc,num_soilp&
15251525
npp_growth(p) = (Nuptake(p)- free_retransn_to_npool(p))*plantCN(p)+(excess_carbon_acc/dt) !does not include gresp, since this is calculated from growth
15261526

15271527

1528-
15291528
!-----------------------Diagnostic Fluxes------------------------------!
15301529
if(availc(p).gt.0.0_r8)then !what happens in the night?
15311530
nuptake_npp_fraction_patch(p) = npp_Nuptake(p)/availc(p)

src/clm5/biogeochem/CNNStateUpdate1Mod.F90

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -266,7 +266,6 @@ subroutine NStateUpdate1(num_soilc, filter_soilc, num_soilp, filter_soilp, &
266266
ns_veg%deadcrootn_patch(p) = ns_veg%deadcrootn_patch(p) + nf_veg%npool_to_deadcrootn_patch(p)*dt
267267
ns_veg%npool_patch(p) = ns_veg%npool_patch(p) - nf_veg%npool_to_deadcrootn_storage_patch(p)*dt
268268
ns_veg%deadcrootn_storage_patch(p) = ns_veg%deadcrootn_storage_patch(p) + nf_veg%npool_to_deadcrootn_storage_patch(p)*dt
269-
270269
end if
271270
if (ivt(p) >= npcropmin) then ! skip 2 generic crops
272271
if (perennial(ivt(p)) == 1._r8 .and. woody(ivt(p)) == 1.0_r8) then ! (added by O.Dombrowski)

0 commit comments

Comments
 (0)