Style unit comments

Author: fabern

src/gpp_biomee.mod.f90

@@ -149,7 +149,7 @@ subroutine gpp( forcing, vegn )
           rad_net  = f_light(cc%layer) * forcing%radiation * 0.9 ! net radiation absorbed by the canopy, W/m2
           p_surf   = forcing%P_air  ! Pa
           TairK    = forcing%TairK ! K
-          TairC    = forcing%TairC ! degC
+          TairC    = forcing%TairC ! deg C
           cana_q   = (calc_esat(TairC) * forcing%RH * h2o_molmass) / (p_surf * kMa)  ! air specific humidity, kg/kg
           cana_co2 = forcing%CO2 ! co2 concentration in canopy air space, mol CO2/mol dry air
 
@@ -520,14 +520,14 @@ function qscomp(T, p) result(qsat)
     !--------Output
     real :: qsat ! Output type: saturated specific humidity, kg/kg
     !--------Inputs
-    real :: T    ! temperature, degK
+    real :: T    ! temperature, K
     real :: p    ! pressure, Pa
     !--------local var
     real :: myesat ! sat. water vapor pressure
-    real :: Temp ! degC
+    real :: Temp ! deg C
 
     ! calculate saturated specific humidity
-    Temp = T - 273.16 ! degC
+    Temp = T - 273.16 ! deg C
     myesat=MIN(610.78*exp(17.27*Temp/(Temp+237.3)), p) ! Pa
     qsat = 0.622*myesat /(p - 0.378*myesat )
 

src/photosynth_pmodel.mod.f90

@@ -164,7 +164,7 @@ function pmodel( kphio, beta, kc_jmax, ppfd, co2, tc, vpd, patm, tc_home, c4, me
     ! XXX PMODEL_TEST: ok
     ! print*,'kmm:       ', kmm
 
-    ! viscosity correction factor = viscosity( temp, press )/viscosity( 25 degC, 1013.25 Pa) 
+    ! viscosity correction factor = viscosity( temp, press )/viscosity( 25 deg C, 1013.25 Pa) 
     ns      = calc_viscosity_h2o( tc, patm )  ! Pa s 
     ns25    = calc_viscosity_h2o( 25.0, kPo )  ! Pa s 
     ns_star = ns / ns25                       ! (unitless)

src/sofunutils.mod.f90

@@ -144,7 +144,7 @@ end function calc_patm
   pure function calc_esat(T) result( out_esat ) ! pressure, Pa
     implicit none
     real :: out_esat
-    real, intent(in) :: T ! degC
+    real, intent(in) :: T ! deg C
 
     out_esat=610.78*exp(17.27*T/(T+237.3))
 

src/vegetation_processes_biomee.mod.f90

@@ -81,7 +81,7 @@ subroutine plant_respiration( cc, tairK )
     ! Adopted from BiomeE-Allcation.
     !----------------------------------------------------------------------
     type(cohort_type), intent(inout) :: cc
-    real, intent(in) :: tairK ! degK
+    real, intent(in) :: tairK ! K
     real :: tf, tfs ! thermal inhibition factors for above- and below-ground biomass
     real :: r_stem, r_root
     real :: Acambium  ! cambium area, m2/tree