source: flexpart.git/preproc/src/ftrafo.mod @ 5763793

10.4.1_peseiFPv9.3.1FPv9.3.1b_testingFPv9.3.2GFS_025bugfixes+enhancementsdevfp9.3.1-20161214-nc4grib2nc4_repairrelease-10release-10.4.1scaling-bugunivie
Last change on this file since 5763793 was 5763793, checked in by Anne Fouilloux <annefou@…>, 9 years ago

Add pre-processing programs and examples. This is still under development!
  • Property mode set to 100644
File size: 9.1 KB
Line 
1GFORTRAN module version '10' created from ftrafo.f90
2MD5:b9e03f77ba78d596090a2da61fc43bc1 -- If you edit this, you'll get what you deserve.
3
4(() () () () () () () () () () () () () () () () () () () () () () ()
5() () () ())
6
7()
8
9()
10
11()
12
13()
14
15()
16
17(2 'contgl' 'ftrafo' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
18UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 0 UNKNOWN ()) 3 0 (4 5 6 7 8 9 10
1911 12 13 14 15 16 17) () 0 () () () 0 0)
2018 'ftrafo' 'ftrafo' '' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
21UNKNOWN 0 0) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
2219 'phgrad' 'ftrafo' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
23UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 0 UNKNOWN ()) 20 0 (21 22 23 24
2425 26 27 28 29 30 31 32) () 0 () () () 0 0)
254 'ps' '' '' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0
260 DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (
27CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 0
28INTEGER ()) 0 15 ())) 0 () () () 0 0)
295 'dpsdl' '' '' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN
300 0 DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (
31CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 0
32INTEGER ()) 0 15 ())) 0 () () () 0 0)
336 'dpsdm' '' '' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN
340 0 DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (
35CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 0
36INTEGER ()) 0 15 ())) 0 () () () 0 0)
377 'div' '' '' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0
380 DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (2 0 EXPLICIT (
39CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 0
40INTEGER ()) 0 15 ()) (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (
41VARIABLE (INTEGER 4 0 0 0 INTEGER ()) 0 17 ())) 0 () () () 0 0)
428 'u' '' '' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
43DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (2 0 EXPLICIT (CONSTANT (
44INTEGER 4 0 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 0 INTEGER ())
450 15 ()) (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (VARIABLE (
46INTEGER 4 0 0 0 INTEGER ()) 0 17 ())) 0 () () () 0 0)
479 'v' '' '' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
48DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (2 0 EXPLICIT (CONSTANT (
49INTEGER 4 0 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 0 INTEGER ())
500 15 ()) (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (VARIABLE (
51INTEGER 4 0 0 0 INTEGER ()) 0 17 ())) 0 () () () 0 0)
5210 'breite' '' '' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
53UNKNOWN 0 0 DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 EXPLICIT
54(CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 0
55INTEGER ()) 0 16 ())) 0 () () () 0 0)
5611 'eta' '' '' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN
570 0 DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (2 0 EXPLICIT (
58CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 0
59INTEGER ()) 0 15 ()) (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (
60VARIABLE (INTEGER 4 0 0 0 INTEGER ()) 0 17 ())) 0 () () () 0 0)
6112 'mlat' '' '' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN
620 0 DIMENSION DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (1 0 EXPLICIT (
63CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 0
64INTEGER ()) 0 16 ())) 0 () () () 0 0)
6513 'a' '' '' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0
660 DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (
67CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (OP (INTEGER 4 0 0 0
68INTEGER ()) 0 PLUS (VARIABLE (INTEGER 4 0 0 0 INTEGER ()) 0 17 ()) (
69CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1'))) 0 () () () 0 0)
7014 'b' '' '' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0
710 DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (
72CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (OP (INTEGER 4 0 0 0
73INTEGER ()) 0 PLUS (VARIABLE (INTEGER 4 0 0 0 INTEGER ()) 0 17 ()) (
74CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1'))) 0 () () () 0 0)
7515 'ni' '' '' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0
760 DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
7716 'nj' '' '' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0
780 DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
7917 'nk' '' '' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0
800 DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
8121 'xmn' '' '' 20 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN
820 0 DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (2 0 EXPLICIT (
83CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '0') (OP (INTEGER 4 0 0 0
84INTEGER ()) 0 MINUS (OP (INTEGER 4 0 0 0 INTEGER ()) 0 TIMES (OP (
85INTEGER 4 0 0 0 INTEGER ()) 0 PARENTHESES (OP (INTEGER 4 0 0 0 INTEGER ())
860 PLUS (VARIABLE (INTEGER 4 0 0 0 INTEGER ()) 0 29 ()) (CONSTANT (
87INTEGER 4 0 0 0 INTEGER ()) 0 '1'))) (OP (INTEGER 4 0 0 0 INTEGER ()) 0
88PARENTHESES (OP (INTEGER 4 0 0 0 INTEGER ()) 0 PLUS (VARIABLE (INTEGER 4
890 0 0 INTEGER ()) 0 29 ()) (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '2'))))
90(CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1')) (CONSTANT (INTEGER 4 0 0
910 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 0 INTEGER ()) 0 32 ())) 0
92() () () 0 0)
9322 'xlam' '' '' 20 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
94UNKNOWN 0 0 DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (2 0 EXPLICIT
95(CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 0
96INTEGER ()) 0 30 ()) (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (
97VARIABLE (INTEGER 4 0 0 0 INTEGER ()) 0 32 ())) 0 () () () 0 0)
9823 'xphi' '' '' 20 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
99UNKNOWN 0 0 DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (2 0 EXPLICIT
100(CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 0
101INTEGER ()) 0 30 ()) (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (
102VARIABLE (INTEGER 4 0 0 0 INTEGER ()) 0 32 ())) 0 () () () 0 0)
10324 'gwsave' '' '' 20 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
104UNKNOWN 0 0 DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (2 0 EXPLICIT
105(CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (OP (INTEGER 4 0 0 0
106INTEGER ()) 0 PLUS (OP (INTEGER 4 0 0 0 INTEGER ()) 0 TIMES (CONSTANT (
107INTEGER 4 0 0 0 INTEGER ()) 0 '8') (VARIABLE (INTEGER 4 0 0 0 INTEGER ())
1080 31 ())) (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '15')) (CONSTANT (
109INTEGER 4 0 0 0 INTEGER ()) 0 '1') (OP (INTEGER 4 0 0 0 INTEGER ()) 0
110DIVIDE (VARIABLE (INTEGER 4 0 0 0 INTEGER ()) 0 31 ()) (CONSTANT (
111INTEGER 4 0 0 0 INTEGER ()) 0 '2'))) 0 () () () 0 0)
11225 'ifax' '' '' 20 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
113UNKNOWN 0 0 DIMENSION DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (2 0
114EXPLICIT (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (
115INTEGER 4 0 0 0 INTEGER ()) 0 '10') (CONSTANT (INTEGER 4 0 0 0 INTEGER ())
1160 '1') (VARIABLE (INTEGER 4 0 0 0 INTEGER ()) 0 31 ())) 0 () () () 0 0)
11726 'p' '' '' 20 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0
1180 DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (2 0 EXPLICIT (
119CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '0') (OP (INTEGER 4 0 0 0
120INTEGER ()) 0 DIVIDE (OP (INTEGER 4 0 0 0 INTEGER ()) 0 TIMES (OP (
121INTEGER 4 0 0 0 INTEGER ()) 0 PARENTHESES (OP (INTEGER 4 0 0 0 INTEGER ())
1220 PLUS (VARIABLE (INTEGER 4 0 0 0 INTEGER ()) 0 29 ()) (CONSTANT (
123INTEGER 4 0 0 0 INTEGER ()) 0 '3'))) (OP (INTEGER 4 0 0 0 INTEGER ()) 0
124PARENTHESES (OP (INTEGER 4 0 0 0 INTEGER ()) 0 PLUS (VARIABLE (INTEGER 4
1250 0 0 INTEGER ()) 0 29 ()) (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '4'))))
126(CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '2')) (CONSTANT (INTEGER 4 0 0
1270 INTEGER ()) 0 '1') (OP (INTEGER 4 0 0 0 INTEGER ()) 0 DIVIDE (
128VARIABLE (INTEGER 4 0 0 0 INTEGER ()) 0 31 ()) (CONSTANT (INTEGER 4 0 0
1290 INTEGER ()) 0 '2'))) 0 () () () 0 0)
13027 'h' '' '' 20 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0
1310 DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (
132CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '0') (OP (INTEGER 4 0 0 0
133INTEGER ()) 0 DIVIDE (OP (INTEGER 4 0 0 0 INTEGER ()) 0 TIMES (OP (
134INTEGER 4 0 0 0 INTEGER ()) 0 PARENTHESES (OP (INTEGER 4 0 0 0 INTEGER ())
1350 PLUS (VARIABLE (INTEGER 4 0 0 0 INTEGER ()) 0 29 ()) (CONSTANT (
136INTEGER 4 0 0 0 INTEGER ()) 0 '2'))) (OP (INTEGER 4 0 0 0 INTEGER ()) 0
137PARENTHESES (OP (INTEGER 4 0 0 0 INTEGER ()) 0 PLUS (VARIABLE (INTEGER 4
1380 0 0 INTEGER ()) 0 29 ()) (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '3'))))
139(CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '2'))) 0 () () () 0 0)
14028 'mlat' '' '' 20 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
141UNKNOWN 0 0 DIMENSION DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (1 0
142EXPLICIT (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (VARIABLE (
143INTEGER 4 0 0 0 INTEGER ()) 0 31 ())) 0 () () () 0 0)
14429 'mnauf' '' '' 20 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
145UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
14630 'ni' '' '' 20 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN
1470 0 DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
14831 'nj' '' '' 20 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN
1490 0 DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
15032 'nk' '' '' 20 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN
1510 0 DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
152)
153
154('contgl' 0 2 'ftrafo' 0 18 'phgrad' 0 19)
Note: See TracBrowser for help on using the repository browser.
hosted by ZAMG