source: JEM-EUSO/esaf_lal/tags/v1_r0/esaf/packages/simulation/externals/slast/src/atm/atm1.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: 489 bytes
Line 
1*     ... This is the ISOTHERMIC 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 ATM1(h)
7#include "detector.inc"
8      f  = 0.029269967          ! in km/K
9      H0 = f*TEMP               ! in km, [T]=K
10      rho0 = 1032.6/H0          ! in g/cm^2/km
11      ATM1 = rho0*EXP(-h/H0)
12      END
Note: See TracBrowser for help on using the repository browser.