From bc3d51892d4e701cd8b5a57f8010c30dc6de7d49 Mon Sep 17 00:00:00 2001 From: Keith Oleson Date: Tue, 22 Oct 2024 11:04:17 -0600 Subject: [PATCH] Consistent naming of units --- src/biogeophys/LunaMod.F90 | 2 +- src/biogeophys/SnowHydrologyMod.F90 | 2 +- src/main/pftconMod.F90 | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/biogeophys/LunaMod.F90 b/src/biogeophys/LunaMod.F90 index 21e05dc0c6..0727e84e7a 100644 --- a/src/biogeophys/LunaMod.F90 +++ b/src/biogeophys/LunaMod.F90 @@ -777,7 +777,7 @@ subroutine NitrogenAllocation(FNCa,forc_pbot10, relh10, CO2a10,O2a10, PARi10,PAR real(r8), intent (in) :: tleafd10 !10-day running mean of daytime leaf temperature (oC) real(r8), intent (in) :: tleafn10 !10-day running mean of nighttime leaf temperature (oC) real(r8), intent (in) :: jmaxb0 !Baseline proportion of nitrogen allocated for electron transport (J) - real(r8), intent (in) :: jmaxb1 !coefficient determining the response of electron transport rate to light availability (unitless) + real(r8), intent (in) :: jmaxb1 !coefficient determining the response of electron transport rate to light availability (-) real(r8), intent (in) :: wc2wjb0 !The baseline ratio of rubisco limited rate vs light limited photosynthetic rate (Wc:Wj) (-) real(r8), intent (in) :: PNlcold !old value of the proportion of nitrogen allocated to light capture (unitless) real(r8), intent (in) :: PNetold !old value of the proportion of nitrogen allocated to electron transport (unitless) diff --git a/src/biogeophys/SnowHydrologyMod.F90 b/src/biogeophys/SnowHydrologyMod.F90 index 57e9088ece..578769d9ea 100644 --- a/src/biogeophys/SnowHydrologyMod.F90 +++ b/src/biogeophys/SnowHydrologyMod.F90 @@ -87,7 +87,7 @@ module SnowHydrologyMod real(r8) :: scvng_fct_mlt_dst4 ! scavenging factor for dust species 4 inclusion in meltwater [frc] real(r8) :: ceta ! Overburden compaction constant (kg/m3) real(r8) :: snw_rds_min ! minimum allowed snow effective radius (also cold "fresh snow" value) [microns] - real(r8) :: upplim_destruct_metamorph ! Upper limit on destructive metamorphism compaction + real(r8) :: upplim_destruct_metamorph ! Upper limit on destructive metamorphism compaction (kg/m3) end type params_type type(params_type), private :: params_inst diff --git a/src/main/pftconMod.F90 b/src/main/pftconMod.F90 index 0bb9ef23da..965b21ec70 100644 --- a/src/main/pftconMod.F90 +++ b/src/main/pftconMod.F90 @@ -165,7 +165,7 @@ module pftconMod real(r8), allocatable :: crit_onset_gdd_sf(:)! scale factor for crit_onset_gdd real(r8), allocatable :: ndays_on(:) ! number of days to complete leaf onset real(r8), allocatable :: jmaxb0(:) ! Baseline proportion of nitrogen allocated for electron transport (J) - real(r8), allocatable :: jmaxb1(:) ! Coefficient determining the response of electron transport rate to light availability + real(r8), allocatable :: jmaxb1(:) ! Coefficient determining the response of electron transport rate to light availability (-) real(r8), allocatable :: wc2wjb0(:) ! The baseline ratio of rubisco limited rate vs light limited photosynthetic rate (Wc:Wj) (-) real(r8), allocatable :: r_mort(:) ! Mortality rate (1/year)