source: JEM-EUSO/esaf_lal/tags/v1_r0/esaf/packages/simulation/externals/slast/src/atm/rayleigh_r_iss_wave.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: 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.