source: JEM-EUSO/esaf_cc_at_lal/packages/simulation/externals/slast/src/atm/rayleigh_r_rint.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: 386 bytes
Line 
1      REAL FUNCTION RAYLEIGH_R_RINT(R1,R2,WAVE1,WAVE2)
2      IMPLICIT NONE
3      REAL R1(3), R2(3), WAVE1,WAVE2, DEPTH
4      REAL FACTOR, xR, D
5*
6      xR     = 2974.            ! g/cm^2
7      FACTOR = (400./WAVE1)**4/WAVE1-(400./WAVE2)**4/WAVE2
8      FACTOR = FACTOR/(1./WAVE1-1./WAVE2)/5
9      D      = ABS(DEPTH(R1) - DEPTH(R2))
10      RAYLEIGH_R_RINT = EXP(-D/xR*FACTOR)
11*
12      END
Note: See TracBrowser for help on using the repository browser.