module miscparameters ! miscellaneous parameters that are very constant real(8), parameter :: pi=3.1415926535897932, d2r=pi/180. integer, parameter :: NMAX=1000 real(8), parameter :: marsDay=88775.244, solsperyear=668.60 real(8), parameter :: icedensity=927. real(8), parameter :: earthDay=86400. real(8), parameter :: sigSB=5.6704e-8 ! for reference here are some parameters that are hard coded ! mass of H2O molecule = 18 ! universal gas constant = 8314 ! length of Earth year in days = 365.24 end module miscparameters