FSM 2.1.0 release

RichardEssery · Aug 12, 2024 · 245308a · 245308a
1 parent 7031130
commit 245308a
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 5 deletions.
diff --git a/README.md b/README.md
@@ -12,7 +12,7 @@ FSM2 requires meteorological driving data and namelists to set options and param
 
     ./FSM2 < nlst_Alptal.txt
 
-which run simulations for the winter of 2004-2005 at Alptal, Switzerland (Stähli and Gustafsson, 2006). Two points are simulated: one with forest cover and one without.
+which runs simulations for the winter of 2004-2005 at Alptal, Switzerland (Stähli and Gustafsson, 2006). Two points are simulated: one with forest cover and one without.
 
 ## References
 

diff --git a/src/QSAT.F90 b/src/QSAT.F90
@@ -23,10 +23,10 @@ subroutine QSAT(P,T,Qs)
 
 Tc = T - Tm
 if (Tc > 0) then
-  es = e0*exp(17.5043*Tc / (241.3 + Tc))
+  es = e0*exp(17.5043*Tc/(241.3 + Tc))
 else
-  es = e0*exp(22.4422*Tc / (272.186 + Tc))
+  es = e0*exp(22.4422*Tc/(272.186 + Tc))
 end if
-Qs = eps*es / P
+Qs = eps*es/P
 
 end subroutine QSAT
diff --git a/src/SOLARPOS.F90 b/src/SOLARPOS.F90
@@ -16,7 +16,7 @@ subroutine SOLARPOS(year,month,day,hour,lat,noon,azim,elev)
 real, intent(in) :: &
   hour,              &! Hour of day
   lat,               &! Latitude (radians)
-  noon                ! Time of solar noon (hour)
+  noon                ! Time of solar noon (hours)
 
 real, intent(out) :: &
   azim,              &! Solar azimuth (radians)