Consistent naming of units

olyson · Oct 22, 2024 · bc3d518 · bc3d518
1 parent 3f4936c
commit bc3d518
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git 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
@@ -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
@@ -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)