minor edits

Author: nschorgh

Mars/CONTENTS.txt

@@ -3,7 +3,7 @@ Mars/
 Mars Subsurface Ice Model (M-SIM) Collection
 ============================================
 
-The content of this folder has moved to https://github.com/nschorgh/MSIM/tree/main/Mars/
+The content of this folder has moved to https://github.com/nschorgh/MSIM/
 
 The few remaining files are needed for dependencies by other programs.
 

Mars/flux_mars.f90

@@ -11,12 +11,12 @@ pure function flux_mars77(R,decl,latitude,HA,albedo,fracir,fracscat)
 !     fracscat: fraction of scattering
 !***********************************************************************
   implicit none
-  real*8 flux_mars77
-  real*8, intent(IN) :: R,decl,latitude,HA,albedo,fracIR,fracScat
-  real*8, parameter :: So=1365. ! [W/m^2]
-  real*8, parameter :: sigSB=5.6704d-8
-  real*8 c1,s1,Qo,solarAttenuation,Q
-  real*8 sinbeta,sinbetaNoon,Qdir,Qscat,Qlw,Fout
+  real(8) flux_mars77
+  real(8), intent(IN) :: R,decl,latitude,HA,albedo,fracIR,fracScat
+  real(8), parameter :: So=1365. ! [W/m^2]
+  real(8), parameter :: sigSB=5.6704d-8
+  real(8) c1,s1,Qo,solarAttenuation,Q
+  real(8) sinbeta,sinbetaNoon,Qdir,Qscat,Qlw,Fout
 
   c1 = cos(latitude)*cos(decl)
   s1 = sin(latitude)*sin(decl)

README.md

@@ -96,11 +96,9 @@ Directory: `Exospheres/`
 
 ### Notes
 
-Third party source code from Numerical Recipes is covered by a separate copyright. These are files ending with `.for`.  A few code snippets from other sources are also used, as documented in the source code.
+Third party source code from Numerical Recipes is covered by a separate copyright. These are files ending with `.for`.  A few code snippets from other sources are also used, as documented in the source code.  
 
 
-### Technical Note
-
 The non-portable Fortran declarations `real(8)` and `real*8` are meant to correspond to an 8-byte floating point number.