source: JEM-EUSO/esaf_cc_at_lal/packages/simulation/externals/slast/src/atm/rayleigh_r_iss_wave.F @ 114

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

actual version of ESAF at CCin2p3
File size: 287 bytes
Line 
1      REAL FUNCTION RAYLEIGH_R_ISS_WAVE(R,WAVE)
2      IMPLICIT NONE
3      REAL R(3),WAVE,DEPTH_R_ISS
4      REAL FACTOR, xR, D
5*
6      xR     = 2974.            ! g/cm^2
7      FACTOR = (400./WAVE)**4
8      D      = DEPTH_R_ISS(R)
9      RAYLEIGH_R_ISS_WAVE = EXP(-D/xR*FACTOR)
10*
11      END
Note: See TracBrowser for help on using the repository browser.