source: LMDZ5/trunk/libf/phymar/parcma.F90 @ 3302

Last change on this file since 3302 was 2089, checked in by Laurent Fairhead, 10 years ago

Inclusion de la physique de MAR


Integration of MAR physics

File size: 4.9 KB
Line 
1MODULE PARCMA
2
3
4#include "tsmbkind.h"
5
6IMPLICIT NONE
7
8SAVE
9
10!*    PARCMA - CMA VARIOUS PARAMETERS
11
12!        D. VASILJEVIC    ECMWF    19/09/94
13
14
15!     NAME                    MEANING
16!     ----                    -------
17
18!     CMA ARRAY/FILE PARAMETERS:
19!     ---------------------
20
21!     JPMXGICL    MAX. LEN. OF "GLOBAL" INTEGER CMA ARRAY
22!     JPMXGRCL    MAX. LEN. OF "GLOBAL" REAL CMA ARRAY
23!     JPMXICRL    MAX. LEN. OF INPUT CMA REPORT
24!     JPMXICHL    MAX. LEN. OF INPUT CMA REPORT HEADER
25!     JPMXICBL    MAX. LEN. OF INPUT CMA REPORT BODY ENTRY
26!     JPMXICDL    MAX. LEN. OF INPUT CMA  DDR
27!     JPMXOCRL    MAX. LEN. OF OUTPUT CMA REPORT
28!     JPMXOCHL    MAX. LEN. OF OUTPUT CMA REPORT HEADER
29!     JPMXOCBL    MAX. LEN. OF OUTPUT CMA REPORT BODY ENTRY
30!     JPMXOCDL    MAX. LEN. OF OUTPUT CMA  DDR
31!     JPMXDEPL    MAX. LEN. OF DEPARTURE LIST
32
33INTEGER_M :: JPMXGICL
34INTEGER_M :: JPMXGRCL
35INTEGER_M :: JPMXICRL
36INTEGER_M :: JPMXICHL
37INTEGER_M :: JPMXICBL
38INTEGER_M :: JPMXICDL
39INTEGER_M :: JPMXOCRL
40INTEGER_M :: JPMXOCHL
41INTEGER_M :: JPMXOCBL
42INTEGER_M :: JPMXOCDL
43INTEGER_M :: JPMXDEPL
44PARAMETER (JPMXGICL=1)
45PARAMETER (JPMXGRCL=2000000)
46PARAMETER (JPMXICRL=164811)
47PARAMETER (JPMXICHL=581)
48PARAMETER (JPMXICBL=72)
49PARAMETER (JPMXICDL=3072)
50PARAMETER (JPMXOCRL=164811)
51PARAMETER (JPMXOCHL=581)
52PARAMETER (JPMXOCBL=72)
53PARAMETER (JPMXOCDL=3072)
54PARAMETER (JPMXDEPL=319)
55
56!-----------------------------------------------------------------------
57
58
59!     CMA EVENTS, FLAGS, CODES ETC. PARAMETERS:
60!     -----------------------------------------
61
62!     JPMXLID     MAX. NO. OF LEVEL ID CODES
63!     JPMXPCD     MAX. NO. OF PRESSURE CODES
64!     JPMXRE1     MAX. NO. REPORT (PART 1) EVENTS
65!     JPMXRE2     MAX. NO. REPORT (PART 2) EVENTS
66!     JPMXDE1     MAX. NO. DATUM (PART 1) EVENTS
67!     JPMXDE2     MAX. NO. DATUM (PART 2) EVENTS
68!     JPMXRBLE    MAX. NO. REPORT BLACKLIST EVENTS
69!     JPMXDBLE    MAX. NO. DATUM BLACKLIST EVENTS
70!     JPMXRDF     MAX. NO. RDB REPORT FLAGS
71!     JPMXDDF     MAX. NO. RDB PRESSURE/VARIABLE FLAGS
72!     JPMXADF     MAX. NO. ANALYSIS VARIABLE FLAGS
73!     JPMXSBI1    MAX. NO. OF SATOB I1 CODES
74!     JPMXSBI2    MAX. NO. OF SATOB I2I2 CODES
75!     JPMXSMI2    MAX. NO. OF SATEM I2 CODES
76!     JPMXSMV     MAX. NO. OF SATEM V CODES
77!     JPMXSMW     MAX. NO. OF SATEM W CODES
78!     JPMXSMX     MAX. NO. OF SATEM X CODES
79!     JPMXSMY     MAX. NO. OF SATEM Y CODES
80!     JPMXSMA     MAX. NO. OF SATEM A CODES
81!     JPMXSMB     MAX. NO. OF SATEM B CODES
82!     JPMXSMC     MAX. NO. OF SATEM C CODES
83
84INTEGER_M :: JPMXLID
85INTEGER_M :: JPMXPCD
86INTEGER_M :: JPMXRE1
87INTEGER_M :: JPMXRE2
88INTEGER_M :: JPMXDE1
89INTEGER_M :: JPMXDE2
90INTEGER_M :: JPMXRBLE
91INTEGER_M :: JPMXDBLE
92INTEGER_M :: JPMXRDF
93INTEGER_M :: JPMXDDF
94INTEGER_M :: JPMXADF
95INTEGER_M :: JPMXSBI2
96INTEGER_M :: JPMXSMI2
97INTEGER_M :: JPMXSMV
98INTEGER_M :: JPMXSMW
99INTEGER_M :: JPMXSMX
100INTEGER_M :: JPMXSMY
101INTEGER_M :: JPMXSMA
102INTEGER_M :: JPMXSMB
103INTEGER_M :: JPMXSMC
104INTEGER_M :: JPMXSBI1
105PARAMETER (JPMXLID=9)
106PARAMETER (JPMXPCD=13)
107PARAMETER (JPMXRE1=30)
108PARAMETER (JPMXRE2=30)
109PARAMETER (JPMXDE1=30)
110PARAMETER (JPMXDE2=30)
111PARAMETER (JPMXRBLE=30)
112PARAMETER (JPMXDBLE=30)
113PARAMETER (JPMXRDF=5)
114PARAMETER (JPMXDDF=7)
115PARAMETER (JPMXADF=7)
116PARAMETER (JPMXSBI2=5)
117PARAMETER (JPMXSMI2=4)
118PARAMETER (JPMXSMV=3)
119PARAMETER (JPMXSMW=3)
120PARAMETER (JPMXSMX=5)
121PARAMETER (JPMXSMY=7)
122PARAMETER (JPMXSMA=3)
123PARAMETER (JPMXSMB=3)
124PARAMETER (JPMXSMC=3)
125PARAMETER (JPMXSBI1=5)
126
127!-----------------------------------------------------------------------
128
129!     CMA NO. OF OBS./CODE TYPES, UPDATES, ADD. DEP. ETC. PARAMETERS:
130!     --------------------------------------------------------------
131
132!     JPMXOTP     MAX. NO. OF OBS. TYPES
133!     JPMXOCT     MAX. NO. OF OBS. CODE TYPES
134!     JPMXUP      MAX. NO. UPDATES
135!     JPMXAD      MAX. NO. OF ADDITIONAL DEPARTURES
136!     JPMXVAR     MAX. NO. OF CMA VARIABLES
137!     JPMXTOCH    MAX. NO. TOVS CHANNELS
138!     JPMXSSCH    MAX. NO. SSMI CHANNELS
139!     JPMXTRCH    MAX. NO. TRMM CHANNELS
140!     JPXSFPTS    MAX. NO. OF SIM. OBS. FILES PER 6HR TIME SLOT
141!     JPXTSL      MAX. NO. OF OUTPUT/INPUT TIME SLOTS
142!     JPXCMA      MAX. NO. OF OUTPUT/INPUT CMA FILES
143!     JPXSATS     MAX. NO. OF SATELLITES
144!     JPXSENSOR   MAX. NO. OF SENSOR TYPES FOR 1C RADIANCES
145!     JPSMETSND   SENSOR INDICATOR FOR METEOSAT SOUNDER DATA
146
147INTEGER_M :: JPMXOTP
148INTEGER_M :: JPMXOCT
149INTEGER_M :: JPMXUP
150INTEGER_M :: JPMXAD
151INTEGER_M :: JPMXVAR
152INTEGER_M :: JPMXTOCH
153INTEGER_M :: JPMXSSCH
154INTEGER_M :: JPMXTRCH
155INTEGER_M :: JPXTSL
156INTEGER_M :: JPXCMA
157INTEGER_M :: JPXSATS
158INTEGER_M :: JPXSENSOR
159INTEGER_M :: JPSMETSND
160PARAMETER (JPMXOTP=10)
161PARAMETER (JPMXOCT=11)
162PARAMETER (JPMXUP=10)
163PARAMETER (JPMXAD=20)
164PARAMETER (JPMXVAR=70)
165PARAMETER (JPMXTOCH=27)
166PARAMETER (JPMXSSCH=7)
167PARAMETER (JPMXTRCH=9)
168PARAMETER (JPXTSL=25)
169PARAMETER (JPXCMA=1)
170PARAMETER (JPXSATS=6)
171PARAMETER (JPXSENSOR=30)
172PARAMETER (JPSMETSND=20)
173
174!-----------------------------------------------------------------------
175
176END MODULE PARCMA
Note: See TracBrowser for help on using the repository browser.