source: JEM-EUSO/esaf_cc_at_lal/packages/simulation/externals/lowtran/include/tuple.common @ 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: 430 bytes
Line 
1
2*variable du ntuple de transmission
3*     R
4*     ZA altitude par rapport au sol
5*     TETA angle par rapport a ISS
6*     FREQ
7*     TRANS : transmission totale
8*
9*     rajoute dans lwtrn7 subroutine TRANS
10*
11      REAL  R,ZA,TETA,LAMBDA(100),TRANSM(100),OZONE(100),
12     $   SCAT(100),AEROSOL(100)
13      COMMON/TUPLE/R,ZA,TETA,LAMBDA,TRANSM,OZONE,SCAT,AEROSOL
14
15      INTEGER NEVT,ILAMBDA
16      COMMON/EVT/NEVT,ILAMBDA
17
18
19
20
21
22
23
24
25
26
Note: See TracBrowser for help on using the repository browser.