Skip to content

Commit 2e94bbf

Browse files
committed
Local (on mainline) modification, added $FFILEOUT prefixes to the super-high frequency thermodynamic output files.
This is necessary for running multiple sites in the test suit.
1 parent a167753 commit 2e94bbf

File tree

1 file changed

+7
-0
lines changed

1 file changed

+7
-0
lines changed

ED/src/init/ed_params.f90

Lines changed: 7 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -3783,6 +3783,7 @@ end subroutine init_disturb_params
37833783
!------------------------------------------------------------------------------------------!
37843784
subroutine init_physiology_params()
37853785
use detailed_coms , only : idetailed ! ! intent(in)
3786+
use ed_misc_coms, only : ffilout
37863787
use physiology_coms, only : iphysiol & ! intent(in)
37873788
, klowco2in & ! intent(in)
37883789
, c34smin_lint_co2 & ! intent(out)
@@ -4084,6 +4085,8 @@ subroutine init_physiology_params()
40844085
photo_prefix = 'photo_state_'
40854086
!---------------------------------------------------------------------------------------!
40864087

4088+
photo_prefix = trim(ffilout)//'_'//trim(photo_prefix)
4089+
40874090
return
40884091
end subroutine init_physiology_params
40894092
!==========================================================================================!
@@ -4846,6 +4849,7 @@ subroutine init_rk4_params()
48464849
, tiny_sfcwater_mass ! ! intent(in)
48474850
use canopy_air_coms, only : leaf_drywhc & ! intent(in)
48484851
, leaf_maxwhc ! ! intent(in)
4852+
use ed_misc_coms,only : ffilout
48494853
use met_driver_coms, only : prss_min & ! intent(in)
48504854
, prss_max ! ! intent(in)
48514855
use consts_coms , only : wdnsi8 ! ! intent(in)
@@ -4964,6 +4968,8 @@ subroutine init_rk4_params()
49644968
budget_pref = 'budget_state_' ! File with the thermodynamic boundaries.
49654969
!---------------------------------------------------------------------------------------!
49664970

4971+
detail_pref = trim(ffilout)//'_'//trim(detail_pref)
4972+
budget_pref = trim(ffilout)//'_'//trim(budget_pref)
49674973

49684974
!---------------------------------------------------------------------------------------!
49694975
! Assigning some default values for the bounds at the sanity check. Units are !
@@ -5012,6 +5018,7 @@ subroutine init_rk4_params()
50125018

50135019
!---------------------------------------------------------------------------------------!
50145020
! These variables are assigned in ed_params.f90. Heat area should be 2.0 for all !
5021+
50155022
! PFTs (two sides of the leaves exchange heat), and the evaporation area should be 1.0 !
50165023
! for all PFTs (only one side of the leaf is usually covered by water). The transpir- !
50175024
! ation area should be 1.0 for hypostomatous leaves, and 2.0 for symmetrical (pines) !

0 commit comments

Comments
 (0)