Skip to content

Commit 94ef851

Browse files
rgknoxrgknox
authored
Merge pull request #294 from rgknox/ekluzek-nag-llengths
line-length fixes vis-a-vis fates_s1.3.0_a1.0.0_rev3
2 parents 6660c71 + ebb9753 commit 94ef851

File tree

4 files changed

+26
-14
lines changed

4 files changed

+26
-14
lines changed

‎biogeochem/EDCohortDynamicsMod.F90‎

Lines changed: 18 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -875,18 +875,27 @@ subroutine fuse_cohorts(patchptr, bc_in)
875875
nextc%n*nextc%lmort_infra)/newn
876876

877877
! npp diagnostics
878-
currentCohort%npp_leaf = (currentCohort%n*currentCohort%npp_leaf + nextc%n*nextc%npp_leaf)/newn
879-
currentCohort%npp_froot = (currentCohort%n*currentCohort%npp_froot + nextc%n*nextc%npp_froot)/newn
880-
currentCohort%npp_bsw = (currentCohort%n*currentCohort%npp_bsw + nextc%n*nextc%npp_bsw)/newn
881-
currentCohort%npp_bdead = (currentCohort%n*currentCohort%npp_bdead + nextc%n*nextc%npp_bdead)/newn
882-
currentCohort%npp_bseed = (currentCohort%n*currentCohort%npp_bseed + nextc%n*nextc%npp_bseed)/newn
883-
currentCohort%npp_store = (currentCohort%n*currentCohort%npp_store + nextc%n*nextc%npp_store)/newn
878+
currentCohort%npp_leaf = (currentCohort%n*currentCohort%npp_leaf + nextc%n*nextc%npp_leaf) &
879+
/newn
880+
currentCohort%npp_froot = (currentCohort%n*currentCohort%npp_froot + nextc%n*nextc%npp_froot) &
881+
/newn
882+
currentCohort%npp_bsw = (currentCohort%n*currentCohort%npp_bsw + nextc%n*nextc%npp_bsw) &
883+
/newn
884+
currentCohort%npp_bdead = (currentCohort%n*currentCohort%npp_bdead + nextc%n*nextc%npp_bdead) &
885+
/newn
886+
currentCohort%npp_bseed = (currentCohort%n*currentCohort%npp_bseed + nextc%n*nextc%npp_bseed) &
887+
/newn
888+
currentCohort%npp_store = (currentCohort%n*currentCohort%npp_store + nextc%n*nextc%npp_store) &
889+
/newn
884890

885891
! biomass and dbh tendencies
886892
currentCohort%ddbhdt = (currentCohort%n*currentCohort%ddbhdt + nextc%n*nextc%ddbhdt)/newn
887-
currentCohort%dbalivedt = (currentCohort%n*currentCohort%dbalivedt + nextc%n*nextc%dbalivedt)/newn
888-
currentCohort%dbdeaddt = (currentCohort%n*currentCohort%dbdeaddt + nextc%n*nextc%dbdeaddt)/newn
889-
currentCohort%dbstoredt = (currentCohort%n*currentCohort%dbstoredt + nextc%n*nextc%dbstoredt)/newn
893+
currentCohort%dbalivedt = (currentCohort%n*currentCohort%dbalivedt + nextc%n*nextc%dbalivedt) &
894+
/newn
895+
currentCohort%dbdeaddt = (currentCohort%n*currentCohort%dbdeaddt + nextc%n*nextc%dbdeaddt) &
896+
/newn
897+
currentCohort%dbstoredt = (currentCohort%n*currentCohort%dbstoredt + nextc%n*nextc%dbstoredt) &
898+
/newn
890899

891900
do i=1, nlevleaf
892901
if (currentCohort%year_net_uptake(i) == 999._r8 .or. nextc%year_net_uptake(i) == 999._r8) then

‎biogeochem/EDPatchDynamicsMod.F90‎

Lines changed: 4 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -741,8 +741,10 @@ subroutine average_patch_properties( currentPatch, newPatch, patch_site_areadis
741741
! some of their area has been carved out for this new patches which is receiving donations.
742742
! Lets maintain conservation on that pre-existing mass flux in these newly disturbed patches
743743

744-
newPatch%root_litter_out(p) = newPatch%root_litter_out(p) + currentPatch%root_litter_out(p) * patch_site_areadis/newPatch%area
745-
newPatch%leaf_litter_out(p) = newPatch%leaf_litter_out(p) + currentPatch%leaf_litter_out(p) * patch_site_areadis/newPatch%area
744+
newPatch%root_litter_out(p) = newPatch%root_litter_out(p) + currentPatch%root_litter_out(p) * &
745+
patch_site_areadis/newPatch%area
746+
newPatch%leaf_litter_out(p) = newPatch%leaf_litter_out(p) + currentPatch%leaf_litter_out(p) * &
747+
patch_site_areadis/newPatch%area
746748

747749
enddo
748750

‎fire/SFMainMod.F90‎

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -469,7 +469,8 @@ subroutine rate_of_spread ( currentSite )
469469

470470
if (DEBUG) then
471471
if ( hlm_masterproc == itrue .and.DEBUG) write(fates_log(),*) 'SF - c ',c
472-
if ( hlm_masterproc == itrue .and.DEBUG) write(fates_log(),*) 'SF - currentPatch%effect_wspeed ',currentPatch%effect_wspeed
472+
if ( hlm_masterproc == itrue .and.DEBUG) write(fates_log(),*) 'SF - currentPatch%effect_wspeed ', &
473+
currentPatch%effect_wspeed
473474
if ( hlm_masterproc == itrue .and.DEBUG) write(fates_log(),*) 'SF - b ',b
474475
if ( hlm_masterproc == itrue .and.DEBUG) write(fates_log(),*) 'SF - beta_ratio ',beta_ratio
475476
if ( hlm_masterproc == itrue .and.DEBUG) write(fates_log(),*) 'SF - e ',e

‎main/FatesHistoryInterfaceMod.F90‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -3034,8 +3034,8 @@ subroutine define_history_vars(this, initialize_variables)
30343034
upfreq=1, ivar=ivar, initialize=initialize_variables, index = ih_nplant_understory_si_scag )
30353035

30363036
call this%set_history_var(vname='DDBH_CANOPY_SCAG',units = 'cm/yr/ha', &
3037-
long='growth rate of canopy plantsnumber of plants per hectare in canopy in each size x age class', use_default='inactive', &
3038-
avgflag='A', vtype=site_scag_r8, hlms='CLM:ALM', flushval=0.0_r8, &
3037+
long='growth rate of canopy plantsnumber of plants per hectare in canopy in each size x age class', &
3038+
use_default='inactive', avgflag='A', vtype=site_scag_r8, hlms='CLM:ALM', flushval=0.0_r8, &
30393039
upfreq=1, ivar=ivar, initialize=initialize_variables, index = ih_ddbh_canopy_si_scag )
30403040

30413041
call this%set_history_var(vname='DDBH_UNDERSTORY_SCAG',units = 'cm/yr/ha', &

0 commit comments

Comments
 (0)