@@ -3783,6 +3783,7 @@ end subroutine init_disturb_params
3783
3783
!- -----------------------------------------------------------------------------------------!
3784
3784
subroutine init_physiology_params ()
3785
3785
use detailed_coms , only : idetailed ! ! intent(in)
3786
+ use ed_misc_coms, only : ffilout
3786
3787
use physiology_coms, only : iphysiol & ! intent(in)
3787
3788
, klowco2in & ! intent(in)
3788
3789
, c34smin_lint_co2 & ! intent(out)
@@ -4084,6 +4085,8 @@ subroutine init_physiology_params()
4084
4085
photo_prefix = ' photo_state_'
4085
4086
!- --------------------------------------------------------------------------------------!
4086
4087
4088
+ photo_prefix = trim (ffilout)// ' _' // trim (photo_prefix)
4089
+
4087
4090
return
4088
4091
end subroutine init_physiology_params
4089
4092
! ==========================================================================================!
@@ -4846,6 +4849,7 @@ subroutine init_rk4_params()
4846
4849
, tiny_sfcwater_mass ! ! intent(in)
4847
4850
use canopy_air_coms, only : leaf_drywhc & ! intent(in)
4848
4851
, leaf_maxwhc ! ! intent(in)
4852
+ use ed_misc_coms,only : ffilout
4849
4853
use met_driver_coms, only : prss_min & ! intent(in)
4850
4854
, prss_max ! ! intent(in)
4851
4855
use consts_coms , only : wdnsi8 ! ! intent(in)
@@ -4964,6 +4968,8 @@ subroutine init_rk4_params()
4964
4968
budget_pref = ' budget_state_' ! File with the thermodynamic boundaries.
4965
4969
!- --------------------------------------------------------------------------------------!
4966
4970
4971
+ detail_pref = trim (ffilout)// ' _' // trim (detail_pref)
4972
+ budget_pref = trim (ffilout)// ' _' // trim (budget_pref)
4967
4973
4968
4974
!- --------------------------------------------------------------------------------------!
4969
4975
! Assigning some default values for the bounds at the sanity check. Units are !
@@ -5012,6 +5018,7 @@ subroutine init_rk4_params()
5012
5018
5013
5019
!- --------------------------------------------------------------------------------------!
5014
5020
! These variables are assigned in ed_params.f90. Heat area should be 2.0 for all !
5021
+
5015
5022
! PFTs (two sides of the leaves exchange heat), and the evaporation area should be 1.0 !
5016
5023
! for all PFTs (only one side of the leaf is usually covered by water). The transpir- !
5017
5024
! ation area should be 1.0 for hypostomatous leaves, and 2.0 for symmetrical (pines) !
0 commit comments