source: JEM-EUSO/esaf_lal/tags/v1_r0/esaf/packages/simulation/externals/slast/src/atm/atm2.F @ 117

Last change on this file since 117 was 117, checked in by moretto, 11 years ago

ESAF version compilable on mac OS
File size: 867 bytes
Line 
1*     ... This is the US Standard atmosphere density ...
2*     ... INPUT:  height in km                       ...
3*     ... OUTPUT: air density in g/cm^2/km           ...
4*     ... AUTHOR: D.V. NAUMOV                        ...
5*     ... DATE:   08.06.2002                         ...
6      REAL FUNCTION ATM2(h)
7#include "detector.inc"
8      REAL B(5), C(5)
9      DATA B/1222.6562,1144.9069,1305.5948,540.1778,1./    ! g/cm^2
10      DATA C/9.9418638,8.7815355,6.3614304,7.7217016,1.e4/ ! km
11
12      Hkm = h                   ! in km
13      IF(Hkm.LE.4.)                  ATM2 = B(1)/C(1)*EXP(-h/C(1))
14      IF(4..LT.Hkm.AND.Hkm.LE.10.)   ATM2 = B(2)/C(2)*EXP(-h/C(2))
15      IF(10..LT.Hkm.AND.Hkm.LE.40.)  ATM2 = B(3)/C(3)*EXP(-h/C(3))
16      IF(40..LT.Hkm.AND.Hkm.LE.100.) ATM2 = B(4)/C(4)*EXP(-h/C(4))
17      IF(Hkm.GT.100.)                ATM2 = B(5)/C(5)
18*
19      END
Note: See TracBrowser for help on using the repository browser.