1 | SUBROUTINE ESAFLWTRANS_V2(INIT,USR_H1,USR_H2,USR_ANGLE) |
---|
2 | c********************************************************************** |
---|
3 | c Subroutine to calcul the radiative transfert throw the atmosphere |
---|
4 | c Based on the LOWTRAN7 program |
---|
5 | c |
---|
6 | c Input parameters : |
---|
7 | c ------------------ |
---|
8 | c INIT : flag for initialisation of lowtran |
---|
9 | C 0 initialisation of atmosphere's parameters and conditions |
---|
10 | c ( defined in the lowtran.input file ) |
---|
11 | c 1 initialisation of geometrical conditions only when |
---|
12 | c atmosphere's parameters have already been defined |
---|
13 | c |
---|
14 | c USR_H1, USR_H2 : altitude of the 2 points in km |
---|
15 | c USR_ANGLE : angle theta compare to Nadir (0=vertical) |
---|
16 | c origine on ground at Nadir (EUSO = 0.,0.,400.) |
---|
17 | c |
---|
18 | c Output parameters : |
---|
19 | c ------------------- |
---|
20 | c compare to LWTRANS, all the ouputs are available via the |
---|
21 | c common block "tuple" |
---|
22 | c |
---|
23 | c Author : Anne Stutz |
---|
24 | c Last revised by Corinne Berat, April 2004 |
---|
25 | c |
---|
26 | c*********************************************************************** |
---|
27 | #include "lwtrn7.common" |
---|
28 | #include "userlun.common" |
---|
29 | #include "tuple.common" |
---|
30 | |
---|
31 | INTEGER INIT |
---|
32 | REAL USR_H1,USR_H2,USR_ANGLE |
---|
33 | IFILE = 8 |
---|
34 | ITAPE5 = 9 |
---|
35 | IPRNT = 10 |
---|
36 | IFILE2 = 18 |
---|
37 | |
---|
38 | c Atmosphere Model Initialisation |
---|
39 | IF(INIT.EQ.0) THEN |
---|
40 | NEVT=1 |
---|
41 | ILAMBDA=0 |
---|
42 | CALL INITCARD3_V2(0.,0.,0.) |
---|
43 | CALL LWTRN7SUB |
---|
44 | ENDIF |
---|
45 | |
---|
46 | c Calcul the atmospheric transmission from xpos,ypos,zpos to EUSO |
---|
47 | IF(INIT.EQ.1) THEN |
---|
48 | NEVT = NEVT+1 |
---|
49 | ILAMBDA=0 |
---|
50 | CALL INITCARD3_V2(USR_H1,USR_H2,USR_ANGLE) |
---|
51 | CALL LWTRN7SUB |
---|
52 | ENDIF |
---|
53 | c |
---|
54 | RETURN |
---|
55 | END |
---|
56 | |
---|
57 | |
---|
58 | |
---|
59 | |
---|
60 | |
---|
61 | |
---|
62 | |
---|
63 | |
---|
64 | |
---|
65 | |
---|
66 | |
---|
67 | |
---|