SURFEX v8.1
General documentation of Surfex
faicor.F90
Go to the documentation of this file.
1 ! Oct-2012 P. Marguinaud 64b LFI
2 ! Jan-2011 P. Marguinaud Thread-safe FA
3 SUBROUTINE faicor_fort &
4 & (fa)
5 USE fa_mod, ONLY : fa_com, fagr1tab
6 USE parkind1, ONLY : jprb
7 USE yomhook , ONLY : lhook, dr_hook
8 USE lfi_precision
9 IMPLICIT NONE
10 !****
11 ! Sous-programme INTERNE du logiciel de Fichiers ARPEGE:
12 ! Initialisation des tableaux permettant la correspondance
13 ! entre nom du champ dans FA et ses descripteurs GRIB.
14 !
15 ! ** FA%NBPARC ne doit pas depasser FA%JPXPAR !! **
16 !**
17 !
18 TYPE(fa_com) :: FA
19 INTEGER (KIND=JPLIKB) I, J
20 REAL (KIND=JPDBLR), PARAMETER :: ZONOVG = 1.0_jpdblr / 9.80665_jpdblr, &
21  & z100 = 100._jpdblr
22 LOGICAL :: LLALLOC
23 
24 !**
25 ! 1. - TRAITEMENT DES CHAMPS MONO NIVEAU
26 !-----------------------------------------------------------------------
27 !
28 ! 1.1 - Champs "profond"
29 !
30 REAL(KIND=JPRB) :: ZHOOK_HANDLE
31 IF (lhook) CALL dr_hook('FAICOR_MT',0,zhook_handle)
32 
33 DO i = 1, 2
34 
35 llalloc = i == 2
36 
37 IF (llalloc) THEN
38  ALLOCATE (fa%YGR1TAB (fa%NBPARC))
39 ENDIF
40 
41 fa%NBPARC = 0
42 
43 ! 1 : Table
44 ! 2 : Parameter
45 ! 3 : LevelType
46 ! 4 : FirstLevel
47 ! 5 : SecondLevel
48 ! 6 : 2 => min/max, 4 => sum since last term, 8 => sum since the beginning
49 ! 7 : ScalingFactor
50 ! 8 : BitsPerValue (usual value)
51 
52 CALL t ('PROF', 'TEMPERATURE ', (/ 1, 11, 111, 10, 0, 0, 0, 12 /))
53 CALL t ('PROF', 'RESERV.GLACE', (/ 1, 152, 112, 0, 250, 0, 0, 16 /))
54 CALL t ('PROF', 'RESERV.EAU' , (/ 1, 153, 112, 0, 250, 0, 0, 16 /))
55 CALL t ('PROF', 'RUISSELLEMEN', (/ 149, 2, 112, 10, 300, 4, 0, 12 /))
56 CALL t ('PROF', 'FLUX DE GEL ', (/ 149, 73, 112, 10, 300, 4, 0, 12 /))
57 CALL t ('PROF', 'PROP.RMAX.EA', (/ 149, 77, 112, 10, 300, 0, 0, 12 /))
58 CALL t ('PROF', 'XRUISSELLEME', (/ 149, 85, 112, 10, 300, 0, 0, 12 /))
59 
60 !
61 ! 1.2 - Champs de surface
62 !
63 CALL t ('SURF', 'PRESSION ', (/ 1, 1, 1, 0, 0, 0, 0, 16 /))
64 CALL t ('SURF', 'GEOPOTENTIEL', (/ 1, 8, 1, 0, 0, 0, 0, 24 /), pmulti=zonovg)
65 CALL t ('SURF', 'TEMPERATURE ', (/ 1, 11, 1, 0, 0, 0, 0, 12 /))
66 CALL t ('SURF', 'FLU.MSUBL.NE', (/ 1, 57, 1, 0, 0, 8, 0, 16 /))
67 CALL t ('SURF', 'FLU.MEVAP.EA', (/ 1, 57, 1, 0, 0, 8, 0, 16 /))
68 CALL t ('SURF', 'FLU.MTOTA.NE', (/ 1, 57, 1, 0, 0, 8, 0, 16 /))
69 CALL t ('SURF', 'PREC.EAU.GEC', (/ 1, 62, 1, 0, 0, 8, 0, 16 /))
70 CALL t ('SURF', 'PREC.EAU.CON', (/ 1, 63, 1, 0, 0, 8, 0, 16 /))
71 CALL t ('SURF', 'RESERV.NEIGE', (/ 1, 65, 1, 0, 0, 0, 0, 16 /))
72 CALL t ('SURF', 'NEBUL.TOTALE', (/ 1, 71, 1, 0, 0, 0, -2, 8 /), pmulti=z100)
73 CALL t ('SURF', 'NEBUL.CONVEC', (/ 1, 72, 1, 0, 0, 0, -2, 8 /), pmulti=z100)
74 CALL t ('SURF', 'NEBUL.BASSE ', (/ 1, 73, 1, 0, 0, 0, -2, 8 /), pmulti=z100)
75 CALL t ('SURF', 'NEBUL.MOYENN', (/ 1, 74, 1, 0, 0, 0, -2, 8 /), pmulti=z100)
76 CALL t ('SURF', 'NEBUL.HAUTE ', (/ 1, 75, 1, 0, 0, 0, -2, 8 /), pmulti=z100)
77 CALL t ('SURF', 'PREC.NEI.CON', (/ 1, 78, 1, 0, 0, 8, 0, 16 /))
78 CALL t ('SURF', 'PREC.NEI.GEC', (/ 1, 79, 1, 0, 0, 8, 0, 16 /))
79 CALL t ('SURF', 'IND.TERREMER', (/ 1, 81, 1, 0, 0, 0, 0, 1 /))
80 CALL t ('SURF', 'Z0.FOIS.G ', (/ 1, 83, 1, 0, 0, 0, 0, 24 /), pmulti=zonovg)
81 CALL t ('SURF', 'ALBEDO ', (/ 1, 84, 1, 0, 0, 0, -2, 12 /), pmulti=z100)
82 CALL t ('SURF', 'PROP.VEGETAT', (/ 1, 87, 1, 0, 0, 0, -2, 12 /), pmulti=z100)
83 CALL t ('SURF', 'FLU.RAY.SOLA', (/ 128, 111, 1, 0, 0, 8, 0, 16 /))
84 CALL t ('SURF', 'FLU.RAY.THER', (/ 128, 112, 1, 0, 0, 8, 0, 16 /))
85 CALL t ('SURF', 'FLU.LAT.MEVA', (/ 128, 121, 1, 0, 0, 8, 0, 16 /))
86 CALL t ('SURF', 'FLU.LAT.MSUB', (/ 128, 121, 1, 0, 0, 8, 0, 16 /))
87 CALL t ('SURF', 'FLU.LAT.MTOT', (/ 128, 121, 1, 0, 0, 8, 0, 16 /))
88 CALL t ('SURF', 'FLU.CHA.SENS', (/ 128, 122, 1, 0, 0, 8, 0, 16 /))
89 CALL t ('SURF', 'ETA.GEOPOTEN', (/ 1, 128, 1, 0, 0, 0, 0, 16 /))
90 CALL t ('SURF', 'ETP.GEOPOTEN', (/ 1, 129, 1, 0, 0, 0, 0, 16 /))
91 CALL t ('SURF', 'TENS.DMOG.ZO', (/ 1, 130, 1, 0, 0, 8, 0, 16 /))
92 CALL t ('SURF', 'TENS.TURB.ZO', (/ 1, 130, 1, 0, 0, 8, 0, 16 /))
93 CALL t ('SURF', 'TENS.TOTA.ZO', (/ 1, 130, 1, 0, 0, 8, 0, 16 /))
94 CALL t ('SURF', 'TENS.DMOG.ME', (/ 1, 131, 1, 0, 0, 8, 0, 16 /))
95 CALL t ('SURF', 'TENS.TURB.ME', (/ 1, 131, 1, 0, 0, 8, 0, 16 /))
96 CALL t ('SURF', 'TENS.TOTA.ME', (/ 1, 131, 1, 0, 0, 8, 0, 16 /))
97 CALL t ('SURF', 'RESERV.GLACE', (/ 1, 152, 112, 0, 1, 0, 0, 16 /))
98 CALL t ('SURF', 'RESERV.EAU ', (/ 1, 153, 112, 0, 1, 0, 0, 16 /))
99 CALL t ('SURF', 'RAYT.LUNE.DE', (/ 1, 158, 1, 0, 0, 8, 0, 16 /))
100 CALL t ('SURF', 'CAPE.MOD.XFU', (/ 159, 154, 1, 0, 0, 0, 0, 16 /))
101 CALL t ('SURF', 'TOT.WAT.VAPO', (/ 1, 167, 1, 0, 0, 0, 0, 12 /))
102 ! Debut des champs pour Mocage :
103 !DP: champ TCO3 remplace par O3_TOT le 18 oct 2004 par coherence
104 ! avec la BDAP qui venait de proceder au changement.
105 CALL t ('SURF', 'O3_TOT ', (/ 1, 10, 1, 0, 0, 0, 0, 12 /))
106 CALL t ('SURF', 'CH4_TOT ', (/ 159, 21, 1, 0, 0, 0, 0, 12 /))
107 CALL t ('SURF', 'NO_TOT ', (/ 159, 22, 1, 0, 0, 0, 0, 12 /))
108 CALL t ('SURF', 'NO2_TOT ', (/ 159, 23, 1, 0, 0, 0, 0, 12 /))
109 CALL t ('SURF', 'CO_TOT ', (/ 159, 24, 1, 0, 0, 0, 0, 12 /))
110 ! Fin des champs pour Mocage
111 CALL t ('SURF', 'ALBEDO NEIGE', (/ 149, 5, 1, 0, 0, 0, 0, 12 /))
112 CALL t ('SURF', 'ALBEDO HISTO', (/ 149, 48, 1, 0, 0, 0, 0, 12 /))
113 CALL t ('SURF', 'ALBEDO.SOLNU', (/ 149, 49, 1, 0, 0, 0, 0, 12 /))
114 CALL t ('SURF', 'ALBEDO.VEG ', (/ 149, 50, 1, 0, 0, 0, 0, 12 /))
115 CALL t ('SURF', 'EMISSIVITE ', (/ 149, 60, 1, 0, 0, 0, 0, 12 /))
116 CALL t ('SURF', 'ET.GEOPOTENT', (/ 149, 93, 1, 0, 0, 0, 0, 12 /))
117 CALL t ('SURF', 'VAR.GEOP.ANI', (/ 128, 161, 1, 0, 0, 0, 0, 12 /))
118 CALL t ('SURF', 'VAR.GEOP.DIR', (/ 128, 162, 1, 0, 0, 0, 0, 12 /))
119 CALL t ('SURF', 'IND.VEG.DOMI', (/ 149, 61, 1, 0, 0, 0, 0, 12 /))
120 CALL t ('SURF', 'RESI.STO.MIN', (/ 149, 62, 1, 0, 0, 0, 0, 12 /))
121 CALL t ('SURF', 'PROP.ARGILE ', (/ 149, 63, 1, 0, 0, 0, 0, 12 /))
122 CALL t ('SURF', 'PROP.SABLE ', (/ 149, 64, 1, 0, 0, 0, 0, 12 /))
123 CALL t ('SURF', 'EPAIS.SOL ', (/ 149, 51, 1, 0, 0, 0, 0, 12 /))
124 CALL t ('SURF', 'IND.FOLIAIRE', (/ 149, 65, 1, 0, 0, 0, 0, 12 /))
125 CALL t ('SURF', 'RES.EVAPOTRA', (/ 149, 66, 1, 0, 0, 0, 0, 12 /))
126 CALL t ('SURF', 'GZ0.THERM ', (/ 149, 67, 1, 0, 0, 0, 0, 12 /))
127 CALL t ('SURF', 'RESERV.INTER', (/ 149, 68, 1, 0, 0, 0, 0, 12 /))
128 CALL t ('SURF', 'FL.Q TURBUL ', (/ 149, 69, 1, 0, 0, 4, 0, 12 /))
129 CALL t ('SURF', 'FL.CT TURBUL', (/ 149, 70, 1, 0, 0, 4, 0, 12 /))
130 CALL t ('SURF', 'FONTE NEIGE ', (/ 1, 99, 1, 0, 0, 4, 0, 12 /))
131 CALL t ('SURF', 'CHAL. DS SOL', (/ 149, 8, 1, 0, 0, 4, 0, 12 /))
132 CALL t ('SURF', 'EAU DANS SOL', (/ 1, 150, 1, 0, 0, 4, 0, 12 /))
133 CALL t ('SURF', 'RUISSELLEMEN', (/ 149, 2, 1, 0, 0, 4, 0, 12 /))
134 CALL t ('SURF', 'EVAPOTRANSPI', (/ 1, 168, 1, 0, 0, 4, 0, 12 /))
135 CALL t ('SURF', 'TRANSPIRATIO', (/ 149, 71, 1, 0, 0, 4, 0, 12 /))
136 CALL t ('SURF', 'RUISS. INTER', (/ 149, 72, 1, 0, 0, 4, 0, 12 /))
137 CALL t ('SURF', 'FLUX DE GEL ', (/ 149, 73, 1, 0, 0, 4, 0, 12 /))
138 CALL t ('SURF', 'RAYT DIR SUR', (/ 128, 137, 1, 0, 0, 8, 0, 16 /))
139 CALL t ('SURF', 'RAYT DIFF DE', (/ 149, 75, 1, 0, 0, 4, 0, 12 /))
140 CALL t ('SURF', 'RAYT THER DE', (/ 149, 104, 1, 0, 0, 8, 0, 16 /))
141 CALL t ('SURF', 'PROP.RMAX.EA', (/ 149, 77, 1, 0, 0, 0, 0, 12 /))
142 CALL t ('SURF', 'DENSIT.NEIGE', (/ 149, 3, 1, 0, 0, 0, 0, 12 /))
143 CALL t ('SURF', 'CFU.Q.TURBUL', (/ 149, 78, 1, 0, 0, 4, 0, 12 /))
144 CALL t ('SURF', 'CFU.CT.TURBU', (/ 149, 79, 1, 0, 0, 4, 0, 12 /))
145 CALL t ('SURF', 'TIME.PREC.TO', (/ 149, 80, 1, 0, 0, 4, 0, 12 /))
146 CALL t ('SURF', 'XFONTE NEIGE', (/ 149, 81, 1, 0, 0, 0, 0, 12 /))
147 CALL t ('SURF', 'XCHAL. DS SO', (/ 149, 82, 1, 0, 0, 0, 0, 12 /))
148 CALL t ('SURF', 'XEAU DANS SO', (/ 149, 83, 1, 0, 0, 0, 0, 12 /))
149 CALL t ('SURF', 'XFLU.MEVAP.E', (/ 149, 84, 1, 0, 0, 0, 0, 12 /))
150 CALL t ('SURF', 'XRUISSELLEME', (/ 149, 85, 1, 0, 0, 0, 0, 12 /))
151 CALL t ('SURF', 'XEVAPOTRANSP', (/ 149, 86, 1, 0, 0, 0, 0, 12 /))
152 CALL t ('SURF', 'XTRANSPIRATI', (/ 149, 87, 1, 0, 0, 0, 0, 12 /))
153 CALL t ('SURF', 'XRUISS. INTE', (/ 149, 88, 1, 0, 0, 0, 0, 12 /))
154 CALL t ('SURF', 'ISOTPW0.MALT', (/ 128, 8, 20, 27315, 0, 0, 0, 16 /))
155 CALL t ('SURF', 'ISOTPW1.MALT', (/ 128, 8, 20, 27415, 0, 0, 0, 16 /))
156 CALL t ('SURF', 'CAPE.POS.F00', (/ 1, 160, 1, 0, 0, 0, 0, 16 /))
157 CALL t ('SURF', 'CAPE.POS.F04', (/ 159, 154, 1, 0, 0, 0, 0, 16 /))
158 CALL t ('SURF', 'HUMI.RELATIV', (/ 1, 52, 1, 0, 0, 0, -2, 12 /), pmulti=z100)
159 CALL t ('SURF', 'HUMI.SPECIFI', (/ 1, 51, 1, 0, 0, 0, 0, 12 /))
160 CALL t ('SURF', 'ISOT0.MALTIT', (/ 128, 8, 115, 27315, 0, 0, 0, 16 /))
161 CALL t ('SURF', 'ISOTM10.MALT', (/ 128, 8, 115, 26315, 0, 0, 0, 16 /))
162 CALL t ('SURF', 'EQUILIBRLEV ', (/ 159, 155, 1, 0, 0, 0, 0, 16 /))
163 CALL t ('SURF', 'RAYT SOL CL ', (/ 128, 168, 1, 0, 0, 8, 0, 16 /))
164 CALL t ('SURF', 'RAYT THER CL', (/ 128, 169, 1, 0, 0, 8, 0, 16 /))
165 CALL t ('SURF', 'WIND_VELOC ', (/ 1, 32, 1, 0, 0, 0, 0, 24 /))
166 CALL t ('SURF', 'TCO3 ', (/ 1, 10, 1, 0, 0, 0, 0, 12 /))
167 CALL t ('SURF', 'TCNOX ', (/ 159, 22, 1, 0, 0, 0, 0, 12 /))
168 CALL t ('SURF', 'TCCO ', (/ 159, 24, 1, 0, 0, 0, 0, 12 /))
169 CALL t ('SURF', 'TCCH4 ', (/ 159, 21, 1, 0, 0, 0, 0, 12 /))
170 CALL t ('SURF', 'TCPAN ', (/ 159, 21, 1, 0, 0, 0, 0, 12 /))
171 CALL t ('SURF', 'TC_DUST ', (/ 159, 94, 1, 0, 0, 0, 0, 12 /))
172 CALL t ('SURF', 'OD_DUST ', (/ 159, 95, 1, 0, 0, 0, 0, 12 /))
173 CALL t ('SURF', 'DSEC_DUST ', (/ 159, 96, 1, 0, 0, 0, 0, 12 /))
174 CALL t ('SURF', 'DHUM_DUST ', (/ 159, 97, 1, 0, 0, 0, 0, 12 /))
175 CALL t ('SURF', 'DSEDI_DUST ', (/ 159, 98, 1, 0, 0, 0, 0, 12 /))
176 CALL t ('SURF', 'EMISS_DUST ', (/ 159, 99, 1, 0, 0, 0, 0, 12 /))
177 CALL t ('SURF', 'ANAMOCON ', (/ 1, 166, 1, 0, 0, 0, 0, 16 /))
178 CALL t ('SURF', 'RAYT SOLA DE', (/ 149, 105, 1, 0, 0, 8, 0, 16 /))
179 CALL t ('SURF', 'ACCPLUIE ', (/ 2, 150, 1, 0, 0, 8, 0, 16 /))
180 CALL t ('SURF', 'INSPLUIE ', (/ 2, 150, 1, 0, 0, 0, 0, 16 /))
181 CALL t ('SURF', 'ACCNEIGE ', (/ 1, 99, 1, 0, 0, 8, 0, 16 /))
182 CALL t ('SURF', 'INSNEIGE ', (/ 1, 99, 1, 0, 0, 0, 0, 16 /))
183 CALL t ('SURF', 'ACCGRAUPEL ', (/ 159, 29, 1, 0, 0, 8, 0, 16 /))
184 CALL t ('SURF', 'INSGRAUPEL ', (/ 159, 29, 1, 0, 0, 0, 0, 12 /))
185 CALL t ('SURF', 'ACCGRELE ', (/ 159, 30, 1, 0, 0, 8, 0, 16 /))
186 CALL t ('SURF', 'INSGRELE ', (/ 159, 30, 1, 0, 0, 0, 0, 16 /))
187 CALL t ('SURF', 'DIAGHAIL ', (/ 159, 248, 1, 0, 0, 0, 0, 16 /))
188 CALL t ('SURF', 'VERT.VELOC ', (/ 1, 40, 1, 0, 0, 0, 0, 16 /))
189 CALL t ('SURF', 'TC_BLACKC ', (/ 159, 196, 1, 0, 0, 0, 0, 12 /))
190 CALL t ('SURF', 'EMISS_BLACKC', (/ 159, 200, 1, 0, 0, 0, 0, 12 /))
191 CALL t ('SURF', 'DHUM_BLACKC ', (/ 159, 198, 1, 0, 0, 0, 0, 12 /))
192 CALL t ('SURF', 'DSEC_BLACKC ', (/ 159, 197, 1, 0, 0, 0, 0, 12 /))
193 CALL t ('SURF', 'DSEDI_BLACKC', (/ 159, 199, 1, 0, 0, 0, 0, 12 /))
194 CALL t ('SURF', 'TC_DYNSAL ', (/ 159, 190, 1, 0, 0, 0, 0, 12 /))
195 CALL t ('SURF', 'EMISS_DYNSAL', (/ 159, 194, 1, 0, 0, 0, 0, 12 /))
196 CALL t ('SURF', 'DHUM_DYNSAL ', (/ 159, 192, 1, 0, 0, 0, 0, 12 /))
197 CALL t ('SURF', 'DSEC_DYNSAL ', (/ 159, 191, 1, 0, 0, 0, 0, 12 /))
198 CALL t ('SURF', 'DSEDI_DYNSAL', (/ 159, 193, 1, 0, 0, 0, 0, 12 /))
199 CALL t ('SURF', 'TC_PMANTH ', (/ 159, 202, 1, 0, 0, 0, 0, 12 /))
200 CALL t ('SURF', 'EMISS_BLACKC', (/ 159, 200, 1, 0, 0, 0, 0, 12 /))
201 CALL t ('SURF', 'DHUM_BLACKC ', (/ 159, 198, 1, 0, 0, 0, 0, 12 /))
202 CALL t ('SURF', 'DSEC_BLACKC ', (/ 159, 197, 1, 0, 0, 0, 0, 12 /))
203 CALL t ('SURF', 'DSEDI_BLACKC', (/ 159, 199, 1, 0, 0, 0, 0, 12 /))
204 CALL t ('SURF', 'TC_DYNSAL ', (/ 159, 190, 1, 0, 0, 0, 0, 12 /))
205 CALL t ('SURF', 'TC_BLACKC ', (/ 159, 196, 1, 0, 0, 0, 0, 12 /))
206 CALL t ('SURF', 'EMISS_PMANTH', (/ 159, 206, 1, 0, 0, 0, 0, 12 /))
207 CALL t ('SURF', 'DHUM_PMANTH ', (/ 159, 204, 1, 0, 0, 0, 0, 12 /))
208 CALL t ('SURF', 'DSEC_PMANTH ', (/ 159, 203, 1, 0, 0, 0, 0, 12 /))
209 CALL t ('SURF', 'DSEDI_PMANTH', (/ 159, 205, 1, 0, 0, 0, 0, 12 /))
210 CALL t ('SURF', 'TC_PM25 ', (/ 159, 208, 1, 0, 0, 0, 0, 12 /))
211 CALL t ('SURF', 'TC_PM10 ', (/ 159, 210, 1, 0, 0, 0, 0, 12 /))
212 !
213 ! Geopotentiel de surface en spectral (relief)
214 !
215 CALL t ('SPECSURF', 'GEOPOTEN', (/ 1, 8, 1, 0, 0, 0, 0, 12 /), pmulti=zonovg)
216 !
217 ! 1.3 - Champs au sommet
218 !
219 CALL t ('SOMM', 'FLU.RAY.SOLA', (/ 128, 113, 8, 0, 0, 8, 0, 16 /))
220 CALL t ('SOMM', 'FLU.RAY.THER', (/ 128, 114, 8, 0, 0, 8, 0, 16 /))
221 CALL t ('SOMM', 'TB_OZ_CLEAR ', (/ 1, 170, 8, 0, 0, 0, 0, 12 /))
222 CALL t ('SOMM', 'TB_OZ_CLOUDY', (/ 1, 171, 8, 0, 0, 0, 0, 12 /))
223 CALL t ('SOMM', 'TB_IR_CLEAR ', (/ 1, 172, 8, 0, 0, 0, 0, 12 /))
224 CALL t ('SOMM', 'TB_IR_CLOUDY', (/ 1, 173, 8, 0, 0, 0, 0, 12 /))
225 CALL t ('SOMM', 'TB_WV_CLEAR ', (/ 1, 174, 8, 0, 0, 0, 0, 12 /))
226 CALL t ('SOMM', 'TB_WV_CLOUDY', (/ 1, 175, 8, 0, 0, 0, 0, 12 /))
227 !
228 ! 1.4 - Champs de la Couche Limite de Surface
229 !
230 CALL t ('CLS', 'TEMPERATURE ', (/ 1, 11, 105, 2, 0, 0, 0, 12 /))
231 CALL t ('CLS', 'MAXI.TEMPERAT', (/ 1, 15, 105, 2, 0, 2, 0, 12 /))
232 CALL t ('CLS', 'MINI.TEMPERAT', (/ 1, 16, 105, 2, 0, 2, 0, 12 /))
233 CALL t ('CLS', 'VENT.ZONAL ', (/ 1, 33, 105, 10, 0, 0, 0, 12 /))
234 CALL t ('CLS', 'VENT.MERIDIEN', (/ 1, 34, 105, 10, 0, 0, 0, 12 /))
235 CALL t ('CLS', 'HUMI.SPECIFIQ', (/ 1, 51, 105, 2, 0, 0, 0, 12 /))
236 CALL t ('CLS', 'HUMI.RELATIVE', (/ 1, 52, 105, 2, 0, 0, -2, 12 /), pmulti=z100)
237 CALL t ('CLS', 'MAXI.HUMI.REL', (/ 149, 90, 105, 2, 0, 2, 0, 12 /))
238 CALL t ('CLS', 'MINI.HUMI.REL', (/ 149, 91, 105, 2, 0, 2, 0, 12 /))
239 CALL t ('CLS', 'U.RAF.MOD.XFU', (/ 1, 163, 105, 10, 0, 0, 0, 12 /))
240 CALL t ('CLS', 'V.RAF.MOD.XFU', (/ 1, 164, 105, 10, 0, 0, 0, 12 /))
241 !
242 ! 1.5 - Champs au niveau tropopause
243 !
244 CALL t ('ICAO', 'TROP.PRESSUR', (/ 1, 1, 7, 0, 0, 0, 0, 16 /))
245 CALL t ('ICAO', 'TROP.TEMPERA', (/ 1, 11, 7, 0, 0, 0, 0, 12 /))
246 !
247 ! 1.6 - Champs au niveau jet
248 !
249 CALL t ('JET', 'PRESSURE ', (/ 1, 1, 6, 0, 0, 0, 0, 16 /))
250 CALL t ('JET', 'VENT_ZONAL ', (/ 1, 33, 6, 0, 0, 0, 0, 12 /))
251 CALL t ('JET', 'VENT_MERIDIEN', (/ 1, 34, 6, 0, 0, 0, 0, 12 /))
252 !
253 ! 1.7 - Champs pour la Couche Limite Planetaire
254 !
255 CALL t ('CLP', 'MHAUT.MOD.XFU', (/ 1, 165, 1, 0, 0, 0, 0, 16 /))
256 CALL t ('CLP', 'MOCON.MOD.XFU', (/ 1, 166, 1, 0, 0, 0, 0, 16 /))
257 CALL t ('CLP', 'GEOPO.MOD.XFU', (/ 1, 165, 1, 0, 0, 0, 0, 16 /))
258 !
259 ! 1.8 - Champs au niveau mer
260 !
261 CALL t ('MSL', 'PRESSURE', (/ 1, 2, 102, 0, 0, 0, 0, 12 /))
262 !
263 ! 1.9 - Relief
264 !
265 CALL t ('INT', 'SURFGEOPOTENT', (/ 1, 8, 1, 0, 0, 0, 0, 16 /), pmulti=zonovg)
266 !
267 ! 1.10- ATMO
268 !
269 CALL t ('ATMO', 'NEBUL.CONVEC', (/ 128, 72, 1, 0, 0, 4, 0, 12 /))
270 CALL t ('ATMO', 'NEBUL.BASSE ', (/ 128, 73, 1, 0, 0, 4, 0, 12 /))
271 CALL t ('ATMO', 'NEBUL.MOYENN', (/ 128, 74, 1, 0, 0, 4, 0, 12 /))
272 CALL t ('ATMO', 'NEBUL.HAUTE ', (/ 128, 75, 1, 0, 0, 4, 0, 12 /))
273 !
274 ! 1.11- TOP
275 !
276 CALL t ('TOP', 'RAYT DIR SOM', (/ 149, 174, 8, 0, 0, 4, 0, 12 /))
277 !**
278 ! 2. - TRAITEMENT DES CHAMPS SUR NIVEAUX
279 !-----------------------------------------------------------------------
280 !
281 ! 2.1 - Champs sur un niveau isobare
282 !
283 CALL t ('P', 'POT_VORTICIT', (/ 1, 4, 100, 0, 0, 0, 0, 16 /))
284 CALL t ('P', 'GEOPOTENTIEL', (/ 1, 6, 100, 0, 0, 0, 0, 16 /))
285 CALL t ('P', 'TEMPERATURE ', (/ 1, 11, 100, 0, 0, 0, 0, 12 /))
286 CALL t ('P', 'TEMPE_POTENT', (/ 1, 13, 100, 0, 0, 0, 0, 12 /))
287 CALL t ('P', 'THETA_PRIM_W', (/ 1, 14, 100, 0, 0, 0, 0, 12 /))
288 CALL t ('P', 'VENT_ZONAL ', (/ 1, 33, 100, 0, 0, 0, 0, 12 /))
289 CALL t ('P', 'VENT_MERIDIE', (/ 1, 34, 100, 0, 0, 0, 0, 12 /))
290 CALL t ('P', 'VITESSE_VERT', (/ 1, 39, 100, 0, 0, 0, 0, 16 /))
291 CALL t ('P', 'ABS_VORTICIT', (/ 1, 41, 100, 0, 0, 0, 0, 16 /))
292 CALL t ('P', 'DIVERGENCE ', (/ 1, 44, 100, 0, 0, 0, 0, 16 /))
293 CALL t ('P', 'HUMI.SPECIFI', (/ 1, 51, 100, 0, 0, 0, 0, 12 /))
294 CALL t ('P', 'HUMI_RELATIV', (/ 1, 52, 100, 0, 0, 0, -2, 12 /), pmulti=z100)
295 CALL t ('P', 'PRESSURE ', (/ 1, 1, 105, 0, 0, 0, 0, 12 /))
296 CALL t ('P', 'WIND_VELOCIT', (/ 1, 32, 100, 0, 0, 0, 0, 24 /))
297 CALL t ('P', 'VORTICITY ', (/ 1, 43, 100, 0, 0, 0, 0, 16 /))
298 CALL t ('P', 'FONC.COURANT', (/ 1, 35, 100, 0, 0, 0, 0, 24 /))
299 CALL t ('P', 'POT.VITESSE ', (/ 1, 36, 100, 0, 0, 0, 0, 24 /))
300 ! Debut des champs pour Mocage :
301 CALL t ('P', 'O3 ', (/ 159, 1, 100, 0, 0, 0, 0, 12 /))
302 CALL t ('P', 'NO2 ', (/ 159, 2, 100, 0, 0, 0, 0, 12 /))
303 CALL t ('P', 'NO ', (/ 159, 3, 100, 0, 0, 0, 0, 12 /))
304 CALL t ('P', 'PAN ', (/ 159, 4, 100, 0, 0, 0, 0, 12 /))
305 CALL t ('P', 'HNO3 ', (/ 159, 5, 100, 0, 0, 0, 0, 12 /))
306 CALL t ('P', 'SO2 ', (/ 159, 6, 100, 0, 0, 0, 0, 12 /))
307 CALL t ('P', 'CO ', (/ 159, 7, 100, 0, 0, 0, 0, 12 /))
308 CALL t ('P', 'CH4 ', (/ 159, 8, 100, 0, 0, 0, 0, 12 /))
309 CALL t ('P', 'C2H6 ', (/ 159, 9, 100, 0, 0, 0, 0, 12 /))
310 CALL t ('P', 'NC4H10 ', (/ 159, 10, 100, 0, 0, 0, 0, 12 /))
311 CALL t ('P', 'C2H4 ', (/ 159, 11, 100, 0, 0, 0, 0, 12 /))
312 CALL t ('P', 'C3H6 ', (/ 159, 12, 100, 0, 0, 0, 0, 12 /))
313 CALL t ('P', 'OXYL ', (/ 159, 13, 100, 0, 0, 0, 0, 12 /))
314 CALL t ('P', 'C5H8 ', (/ 159, 14, 100, 0, 0, 0, 0, 12 /))
315 CALL t ('P', 'APINEN ', (/ 159, 15, 100, 0, 0, 0, 0, 12 /))
316 CALL t ('P', 'HCHO ', (/ 159, 16, 100, 0, 0, 0, 0, 12 /))
317 CALL t ('P', 'CH3CHO ', (/ 159, 17, 100, 0, 0, 0, 0, 12 /))
318 CALL t ('P', 'GLYOX ', (/ 159, 18, 100, 0, 0, 0, 0, 12 /))
319 CALL t ('P', 'MGLYOX ', (/ 159, 19, 100, 0, 0, 0, 0, 12 /))
320 CALL t ('P', 'CH3COE ', (/ 159, 20, 100, 0, 0, 0, 0, 12 /))
321 ! Fin des champs pour Mocage
322 CALL t ('P', 'RAD_LIQUID_W', (/ 159, 32, 100, 0, 0, 0, 0, 16 /))
323 CALL t ('P', 'RAD_SOLID_WA', (/ 128, 247, 100, 0, 0, 0, 0, 16 /))
324 CALL t ('P', 'CLOUD_FRACTI', (/ 159, 36, 100, 0, 0, 0, 0, 16 /))
325 CALL t ('P', 'TKE ', (/ 159, 37, 100, 0, 0, 0, 0, 16 /))
326 CALL t ('P', 'SURFMOCON ', (/ 1, 166, 1, 0, 0, 0, 0, 16 /), ldniva=.true.)
327 CALL t ('P', 'MAX_O3 ', (/ 159, 23, 100, 0, 0, 0, 0, 12 /))
328 CALL t ('P', 'MAX_NO ', (/ 159, 25, 100, 0, 0, 0, 0, 12 /))
329 CALL t ('P', 'MAX_NO2 ', (/ 159, 26, 100, 0, 0, 0, 0, 12 /))
330 CALL t ('P', 'MAX_IUVCC ', (/ 159, 27, 100, 0, 0, 0, 0, 12 /))
331 CALL t ('P', 'MAX_IUVCN ', (/ 159, 28, 100, 0, 0, 0, 0, 12 /))
332 CALL t ('P', 'VERT.VELOCIT', (/ 1, 40, 100, 0, 0, 0, 0, 16 /))
333 CALL t ('P', 'SIM_REFLECTI', (/ 159, 31, 100, 0, 0, 0, 0, 16 /))
334 CALL t ('P', 'CLOUD_WATER ', (/ 159, 32, 100, 0, 0, 0, 0, 16 /))
335 CALL t ('P', 'RAIN ', (/ 159, 33, 100, 0, 0, 0, 0, 16 /))
336 CALL t ('P', 'ICE_CRYSTAL ', (/ 128, 247, 100, 0, 0, 0, 0, 16 /))
337 CALL t ('P', 'SNOW ', (/ 159, 34, 100, 0, 0, 0, 0, 16 /))
338 CALL t ('P', 'GRAUPEL ', (/ 159, 35, 100, 0, 0, 0, 0, 16 /))
339 CALL t ('P', 'THETA_VIRTUA', (/ 159, 38, 100, 0, 0, 0, 0, 16 /))
340 CALL t ('P', 'DUST ', (/ 159, 93, 100, 0, 0, 0, 0, 12 /))
341 CALL t ('P', 'HAIL ', (/ 159, 100, 100, 0, 0, 0, 0, 12 /))
342 CALL t ('P', 'BLACKC ', (/ 159, 195, 100, 0, 0, 0, 0, 12 /))
343 CALL t ('P', 'DYNSAL ', (/ 159, 189, 100, 0, 0, 0, 0, 12 /))
344 CALL t ('P', 'PMANTH ', (/ 159, 201, 100, 0, 0, 0, 0, 12 /))
345 CALL t ('P', 'PM25 ', (/ 159, 207, 100, 0, 0, 0, 0, 12 /))
346 CALL t ('P', 'PM10 ', (/ 159, 209, 100, 0, 0, 0, 0, 12 /))
347 CALL t ('P', 'EDR ', (/ 128, 135, 100, 0, 0, 0, 0, 12 /))
348 !
349 ! 2.2 - Champs sur un niveau hauteur
350 !
351 CALL t ('H', 'POT_VORTICIT', (/ 1, 4, 105, 0, 0, 0, 0, 16 /))
352 CALL t ('H', 'GEOPOTENTIEL', (/ 1, 6, 105, 0, 0, 0, 0, 12 /))
353 CALL t ('H', 'TEMPERATURE ', (/ 1, 11, 105, 0, 0, 0, 0, 12 /))
354 CALL t ('H', 'TEMPE_POTENT', (/ 1, 13, 105, 0, 0, 0, 0, 12 /))
355 CALL t ('H', 'THETA_PRIM_W', (/ 1, 14, 105, 0, 0, 0, 0, 12 /))
356 CALL t ('H', 'VENT_ZONAL ', (/ 1, 33, 105, 0, 0, 0, 0, 12 /))
357 CALL t ('H', 'VENT_MERIDIE', (/ 1, 34, 105, 0, 0, 0, 0, 12 /))
358 CALL t ('H', 'VITESSE_VERT', (/ 1, 39, 105, 0, 0, 0, 0, 16 /))
359 CALL t ('H', 'ABS_VORTICIT', (/ 1, 41, 105, 0, 0, 0, 0, 16 /))
360 CALL t ('H', 'DIVERGENCE ', (/ 1, 44, 105, 0, 0, 0, 0, 16 /))
361 CALL t ('H', 'HUMI.SPECIFI', (/ 1, 51, 105, 0, 0, 0, 0, 12 /))
362 CALL t ('H', 'HUMI_RELATIV', (/ 1, 52, 105, 0, 0, 0, -2, 12 /), pmulti=z100)
363 CALL t ('H', 'PRESSURE ', (/ 1, 1, 105, 0, 0, 0, 0, 16 /))
364 CALL t ('H', 'WIND_VELOCIT', (/ 1, 32, 105, 0, 0, 0, 0, 24 /))
365 CALL t ('H', 'VORTICITY ', (/ 1, 43, 105, 0, 0, 0, 0, 16 /))
366 CALL t ('H', 'FONC.COURANT', (/ 1, 35, 105, 0, 0, 0, 0, 24 /))
367 CALL t ('H', 'POT.VITESSE ', (/ 1, 36, 105, 0, 0, 0, 0, 24 /))
368 ! Debut des champs pour Mocage :
369 CALL t ('H', 'O3 ', (/ 159, 1, 105, 0, 0, 0, 0, 12 /))
370 CALL t ('H', 'NO2 ', (/ 159, 2, 105, 0, 0, 0, 0, 12 /))
371 CALL t ('H', 'NO ', (/ 159, 3, 105, 0, 0, 0, 0, 12 /))
372 CALL t ('H', 'PAN ', (/ 159, 4, 105, 0, 0, 0, 0, 12 /))
373 CALL t ('H', 'HNO3 ', (/ 159, 5, 105, 0, 0, 0, 0, 12 /))
374 CALL t ('H', 'SO2 ', (/ 159, 6, 105, 0, 0, 0, 0, 12 /))
375 CALL t ('H', 'CO ', (/ 159, 7, 105, 0, 0, 0, 0, 12 /))
376 CALL t ('H', 'CH4 ', (/ 159, 8, 105, 0, 0, 0, 0, 12 /))
377 CALL t ('H', 'C2H6 ', (/ 159, 9, 105, 0, 0, 0, 0, 12 /))
378 CALL t ('H', 'NC4H10 ', (/ 159, 10, 105, 0, 0, 0, 0, 12 /))
379 CALL t ('H', 'C2H4 ', (/ 159, 11, 105, 0, 0, 0, 0, 12 /))
380 CALL t ('H', 'C3H6 ', (/ 159, 12, 105, 0, 0, 0, 0, 12 /))
381 CALL t ('H', 'OXYL ', (/ 159, 13, 105, 0, 0, 0, 0, 12 /))
382 CALL t ('H', 'C5H8 ', (/ 159, 14, 105, 0, 0, 0, 0, 12 /))
383 CALL t ('H', 'APINEN ', (/ 159, 15, 105, 0, 0, 0, 0, 12 /))
384 CALL t ('H', 'HCHO ', (/ 159, 16, 105, 0, 0, 0, 0, 12 /))
385 CALL t ('H', 'CH3CHO ', (/ 159, 17, 105, 0, 0, 0, 0, 12 /))
386 CALL t ('H', 'GLYOX ', (/ 159, 18, 105, 0, 0, 0, 0, 12 /))
387 CALL t ('H', 'MGLYOX ', (/ 159, 19, 105, 0, 0, 0, 0, 12 /))
388 CALL t ('H', 'CH3COE ', (/ 159, 20, 105, 0, 0, 0, 0, 12 /))
389 ! Fin des champs pour Mocage
390 CALL t ('H', 'RAD_LIQUID_W', (/ 159, 32, 105, 0, 0, 0, 0, 16 /))
391 CALL t ('H', 'RAD_SOLID_WA', (/ 128, 247, 105, 0, 0, 0, 0, 16 /))
392 CALL t ('H', 'CLOUD_FRACTI', (/ 159, 36, 105, 0, 0, 0, 0, 16 /))
393 CALL t ('H', 'TKE ', (/ 159, 37, 105, 0, 0, 0, 0, 16 /))
394 CALL t ('H', 'SURFMOCON ', (/ 1, 166, 105, 0, 0, 0, 0, 12 /), ldniva=.true.)
395 CALL t ('H', 'MAX_O3 ', (/ 159, 23, 105, 0, 0, 0, 0, 12 /))
396 CALL t ('H', 'MAX_NO ', (/ 159, 25, 105, 0, 0, 0, 0, 12 /))
397 CALL t ('H', 'MAX_NO2 ', (/ 159, 26, 105, 0, 0, 0, 0, 12 /))
398 CALL t ('H', 'MAX_IUVCC ', (/ 159, 27, 105, 0, 0, 0, 0, 12 /))
399 CALL t ('H', 'MAX_IUVCN ', (/ 159, 28, 105, 0, 0, 0, 0, 12 /))
400 CALL t ('H', 'VERT.VELOCIT', (/ 1, 40, 105, 0, 0, 0, 0, 16 /))
401 CALL t ('H', 'SIM_REFLECTI', (/ 159, 31, 105, 0, 0, 0, 0, 16 /))
402 CALL t ('H', 'CLOUD_WATER ', (/ 159, 32, 105, 0, 0, 0, 0, 16 /))
403 CALL t ('H', 'RAIN ', (/ 159, 33, 105, 0, 0, 0, 0, 16 /))
404 CALL t ('H', 'ICE_CRYSTAL ', (/ 128, 247, 105, 0, 0, 0, 0, 16 /))
405 CALL t ('H', 'SNOW ', (/ 159, 34, 105, 0, 0, 0, 0, 16 /))
406 CALL t ('H', 'GRAUPEL ', (/ 159, 35, 105, 0, 0, 0, 0, 16 /))
407 CALL t ('H', 'THETA_VIRTUA', (/ 159, 38, 105, 0, 0, 0, 0, 16 /))
408 CALL t ('H', 'DUST ', (/ 159, 93, 105, 0, 0, 0, 0, 12 /))
409 CALL t ('H', 'HAIL ', (/ 159, 100, 105, 0, 0, 0, 0, 12 /))
410 CALL t ('H', 'BLACKC ', (/ 159, 195, 105, 0, 0, 0, 0, 12 /))
411 CALL t ('H', 'DYNSAL ', (/ 159, 189, 105, 0, 0, 0, 0, 12 /))
412 CALL t ('H', 'PMANTH ', (/ 159, 201, 105, 0, 0, 0, 0, 12 /))
413 CALL t ('H', 'PM25 ', (/ 159, 207, 105, 0, 0, 0, 0, 12 /))
414 CALL t ('H', 'PM10 ', (/ 159, 209, 105, 0, 0, 0, 0, 12 /))
415 CALL t ('H', 'EDR ', (/ 128, 135, 105, 0, 0, 0, 0, 12 /))
416 !
417 ! 2.3 - Champs sur un niveau iso-tourbillon-potentiel
418 !
419 CALL t ('V', 'POT_VORTICIT', (/ 1, 4, 117, 0, 0, 0, 0, 16 /))
420 CALL t ('V', 'GEOPOTENTIEL', (/ 1, 6, 117, 0, 0, 0, 0, 16 /))
421 CALL t ('V', 'TEMPERATURE ', (/ 1, 11, 117, 0, 0, 0, 0, 12 /))
422 CALL t ('V', 'TEMPE_POTENT', (/ 1, 13, 117, 0, 0, 0, 0, 12 /))
423 CALL t ('V', 'THETA_PRIM_W', (/ 1, 14, 117, 1500, 0, 0, 0, 12 /))
424 CALL t ('V', 'VENT_ZONAL ', (/ 1, 33, 117, 0, 0, 0, 0, 12 /))
425 CALL t ('V', 'VENT_MERIDIE', (/ 1, 34, 117, 0, 0, 0, 0, 12 /))
426 CALL t ('V', 'VITESSE_VERT', (/ 1, 39, 117, 1500, 0, 0, 0, 16 /))
427 CALL t ('V', 'ABS_VORTICIT', (/ 1, 41, 117, 0, 0, 0, 0, 16 /))
428 CALL t ('V', 'DIVERGENCE ', (/ 1, 44, 117, 0, 0, 0, 0, 16 /))
429 CALL t ('V', 'HUMI.SPECIFI', (/ 1, 51, 117, 0, 0, 0, 0, 12 /))
430 CALL t ('V', 'HUMI_RELATIV', (/ 1, 52, 117, 1500, 0, 0, -2, 12 /), pmulti=z100)
431 CALL t ('V', 'PRESSURE ', (/ 1, 1, 117, 1500, 0, 0, 0, 16 /))
432 CALL t ('V', 'WIND_VELOCIT', (/ 1, 32, 117, 1500, 0, 0, 0, 24 /))
433 CALL t ('V', 'VORTICITY ', (/ 1, 43, 117, 0, 0, 0, 0, 16 /))
434 CALL t ('V', 'FONC.COURANT', (/ 1, 35, 117, 0, 0, 0, 0, 24 /))
435 CALL t ('V', 'POT.VITESSE ', (/ 1, 36, 117, 0, 0, 0, 0, 24 /))
436 CALL t ('V', 'TKE ', (/ 159, 37, 117, 1500, 0, 0, 0, 16 /))
437 CALL t ('V', 'CLOUD_FRACTI', (/ 159, 36, 117, 1500, 0, 0, 0, 16 /))
438 CALL t ('V', 'CLOUD_WATER ', (/ 159, 32, 117, 1500, 0, 0, 0, 16 /))
439 CALL t ('V', 'RAD_LIQUID_W', (/ 159, 32, 117, 1500, 0, 0, 0, 16 /))
440 CALL t ('V', 'ICE_CRYSTAL ', (/ 128, 247, 117, 1500, 0, 0, 0, 16 /))
441 CALL t ('V', 'RAD_SOLID_WA', (/ 128, 247, 117, 1500, 0, 0, 0, 16 /))
442 !
443 ! 2.4 - Champs sur un niveau isentrope
444 !
445 CALL t ('T', 'POT_VORTICIT', (/ 1, 4, 107, 0, 0, 0, 0, 16 /))
446 CALL t ('T', 'GEOPOTENTIEL', (/ 1, 6, 107, 0, 0, 0, 0, 16 /))
447 CALL t ('T', 'TEMPERATURE ', (/ 1, 11, 107, 0, 0, 0, 0, 12 /))
448 CALL t ('T', 'TEMPE_POTENT', (/ 1, 13, 107, 0, 0, 0, 0, 12 /))
449 CALL t ('T', 'THETA_PRIM_W', (/ 1, 14, 107, 1500, 0, 0, 0, 12 /))
450 CALL t ('T', 'VENT_ZONAL ', (/ 1, 33, 107, 0, 0, 0, 0, 12 /))
451 CALL t ('T', 'VENT_MERIDIE', (/ 1, 34, 107, 0, 0, 0, 0, 12 /))
452 CALL t ('T', 'VITESSE_VERT', (/ 1, 39, 107, 0, 0, 0, 0, 16 /))
453 CALL t ('T', 'ABS_VORTICIT', (/ 1, 41, 107, 0, 0, 0, 0, 12 /))
454 CALL t ('T', 'DIVERGENCE ', (/ 1, 44, 107, 0, 0, 0, 0, 16 /))
455 CALL t ('T', 'HUMI.SPECIFI', (/ 1, 51, 107, 0, 0, 0, 0, 12 /))
456 CALL t ('T', 'HUMI_RELATIV', (/ 1, 52, 107, 0, 0, 0, -2, 12 /), pmulti=z100)
457 CALL t ('T', 'PRESSURE ', (/ 1, 1, 107, 1500, 0, 0, 0, 16 /))
458 CALL t ('T', 'WIND_VELOCIT', (/ 1, 32, 107, 1500, 0, 0, 0, 12 /))
459 CALL t ('T', 'VORTICITY ', (/ 1, 43, 107, 0, 0, 0, 0, 16 /))
460 CALL t ('T', 'FONC.COURANT', (/ 1, 35, 107, 0, 0, 0, 0, 24 /))
461 CALL t ('T', 'POT.VITESSE ', (/ 1, 36, 107, 0, 0, 0, 0, 24 /))
462 CALL t ('T', 'TKE ', (/ 159, 37, 107, 1500, 0, 0, 0, 12 /))
463 CALL t ('T', 'CLOUD_FRACTI', (/ 159, 36, 107, 1500, 0, 0, 0, 12 /))
464 CALL t ('T', 'CLOUD_WATER ', (/ 159, 32, 107, 1500, 0, 0, 0, 12 /))
465 CALL t ('T', 'RAD_LIQUID_W', (/ 159, 32, 107, 1500, 0, 0, 0, 12 /))
466 CALL t ('T', 'ICE_CRYSTAL ', (/ 128, 247, 107, 1500, 0, 0, 0, 12 /))
467 CALL t ('T', 'RAD_SOLID_WA', (/ 128, 247, 107, 1500, 0, 0, 0, 12 /))
468 !
469 ! 2.5 - Champs sur un niveau modele
470 !
471 !
472 CALL t ('S', 'TEMPERATURE ', (/ 1, 11, 109, 0, 0, 0, 0, 12 /))
473 CALL t ('S', 'WIND.U.PHYS ', (/ 1, 33, 109, 0, 0, 0, 0, 12 /))
474 CALL t ('S', 'VENT_ZONAL ', (/ 1, 33, 109, 0, 0, 0, 0, 12 /))
475 CALL t ('S', 'WIND.V.PHYS ', (/ 1, 34, 109, 0, 0, 0, 0, 12 /))
476 CALL t ('S', 'VENT_MERIDIE', (/ 1, 34, 109, 0, 0, 0, 0, 12 /))
477 CALL t ('S', 'FONC.COURANT', (/ 1, 35, 109, 0, 0, 0, 0, 24 /))
478 CALL t ('S', 'POT.VITESSE ', (/ 1, 36, 109, 0, 0, 0, 0, 24 /))
479 CALL t ('S', 'VORTICITY ', (/ 1, 43, 109, 0, 0, 0, 0, 16 /))
480 CALL t ('S', 'DIVERGENCE ', (/ 1, 44, 109, 0, 0, 0, 0, 16 /))
481 CALL t ('S', 'HUMI.SPECIFI', (/ 1, 51, 109, 0, 0, 0, 0, 12 /))
482 CALL t ('S', 'VERTIC.DIVER', (/ 149, 91, 109, 0, 0, 0, 0, 12 /))
483 CALL t ('S', 'PRESS.DEPART', (/ 149, 92, 109, 0, 0, 0, 0, 12 /))
484 CALL t ('S', 'PRESSURE ', (/ 1, 1, 109, 1, 0, 0, 0, 16 /))
485 CALL t ('S', 'GEOPOTENTIEL', (/ 1, 8, 109, 1, 0, 0, 0, 24 /), pmulti=zonovg)
486 CALL t ('S', 'HUMI_RELATIV', (/ 1, 52, 109, 1, 0, 0, -2, 12 /), pmulti=z100)
487 CALL t ('S', 'VITESSE_VERT', (/ 1, 39, 109, 1, 0, 0, 0, 16 /))
488 CALL t ('S', 'O3 ', (/ 159, 1, 109, 1, 0, 0, 0, 12 /))
489 CALL t ('S', 'NO2 ', (/ 159, 2, 109, 1, 0, 0, 0, 12 /))
490 CALL t ('S', 'NO ', (/ 159, 3, 109, 1, 0, 0, 0, 12 /))
491 CALL t ('S', 'PAN ', (/ 159, 4, 109, 1, 0, 0, 0, 12 /))
492 CALL t ('S', 'HNO3 ', (/ 159, 5, 109, 1, 0, 0, 0, 12 /))
493 CALL t ('S', 'SO2 ', (/ 159, 6, 109, 1, 0, 0, 0, 12 /))
494 CALL t ('S', 'CO ', (/ 159, 7, 109, 1, 0, 0, 0, 12 /))
495 CALL t ('S', 'CH4 ', (/ 159, 8, 109, 1, 0, 0, 0, 12 /))
496 CALL t ('S', 'C2H6 ', (/ 159, 9, 109, 1, 0, 0, 0, 12 /))
497 CALL t ('S', 'NC4H10 ', (/ 159, 10, 109, 1, 0, 0, 0, 12 /))
498 CALL t ('S', 'C2H4 ', (/ 159, 11, 109, 1, 0, 0, 0, 12 /))
499 CALL t ('S', 'C3H6 ', (/ 159, 12, 109, 1, 0, 0, 0, 12 /))
500 CALL t ('S', 'OXYL ', (/ 159, 13, 109, 1, 0, 0, 0, 12 /))
501 CALL t ('S', 'C5H8 ', (/ 159, 14, 109, 1, 0, 0, 0, 12 /))
502 CALL t ('S', 'APINEN ', (/ 159, 15, 109, 1, 0, 0, 0, 12 /))
503 CALL t ('S', 'HCHO ', (/ 159, 16, 109, 1, 0, 0, 0, 12 /))
504 CALL t ('S', 'CH3CHO ', (/ 159, 17, 109, 1, 0, 0, 0, 12 /))
505 CALL t ('S', 'GLYOX ', (/ 159, 18, 109, 1, 0, 0, 0, 12 /))
506 CALL t ('S', 'MGLYOX ', (/ 159, 19, 109, 1, 0, 0, 0, 12 /))
507 CALL t ('S', 'CH3COE ', (/ 159, 20, 109, 1, 0, 0, 0, 12 /))
508 CALL t ('S', 'PLUIE STRATI', (/ 1, 62, 1, 0, 0, 0, 0, 16 /), ldniva=.true.)
509 CALL t ('S', 'PLUIE CONVEC', (/ 1, 63, 1, 0, 0, 0, 0, 16 /), ldniva=.true.)
510 CALL t ('S', 'VERT.VELOCIT', (/ 1, 40, 109, 1, 0, 0, 0, 16 /))
511 CALL t ('S', 'SIM_REFLECTI', (/ 159, 31, 109, 1, 0, 0, 0, 16 /))
512 CALL t ('S', 'CLOUD_WATER ', (/ 159, 32, 109, 1, 0, 0, 0, 16 /))
513 CALL t ('S', 'RAD_LIQUID ', (/ 159, 32, 109, 1, 0, 0, 0, 16 /))
514 CALL t ('S', 'RAIN ', (/ 159, 33, 109, 1, 0, 0, 0, 16 /))
515 CALL t ('S', 'ICE_CRYSTA ', (/ 128, 247, 109, 1, 0, 0, 0, 16 /))
516 CALL t ('S', 'RAD_SOLID_WA', (/ 128, 247, 109, 1, 0, 0, 0, 16 /))
517 CALL t ('S', 'SNOW ', (/ 159, 34, 109, 1, 0, 0, 0, 16 /))
518 CALL t ('S', 'GRAUPEL ', (/ 159, 35, 109, 1, 0, 0, 0, 16 /))
519 CALL t ('S', 'CLOUD_FRACTI', (/ 159, 36, 109, 1, 0, 0, 0, 16 /))
520 CALL t ('S', 'TKE ', (/ 159, 37, 109, 1, 0, 0, 0, 16 /))
521 CALL t ('S', 'THETA_VIRTUA', (/ 159, 38, 109, 1, 0, 0, 0, 16 /))
522 CALL t ('S', 'HAIL ', (/ 159, 100, 109, 1, 0, 0, 0, 12 /))
523 CALL t ('S', 'RAYT THER CL', (/ 128, 169, 109, 0, 0, 8, 0, 16 /))
524 !
525 CALL t ('SPEC', 'SURFGEOPOTEN', (/ 1, 8, 109, 1, 0, 0, 0, 24 /), pmulti=zonovg)
526 !
527 CALL t ('KT', 'ISOT_ALTIT ', (/ 128, 8, 115, 0, 0, 0, 0, 16 /))
528 CALL t ('KT', 'ISOT_PRESS ', (/ 254, 1, 115, 27315, 0, 0, 0, 16 /))
529 CALL t ('KB', 'ISOT_ALTIT ', (/ 128, 8, 115, 27315, 0, 0, 0, 16 /))
530 CALL t ('KB', 'ISOT_PRESS ', (/ 254, 1, 115, 27315, 0, 0, 0, 16 /))
531 !
532 CALL t ('C001', '_METEOSAT_07', (/ 129, 1, 100, 64, 0, 0, 0, 12 /))
533 CALL t ('C002', '_METEOSAT_07', (/ 129, 1, 100, 115, 0, 0, 0, 12 /))
534 !
535 CALL t ('C001', '_METEOSAT_09', (/ 129, 1, 100, 39, 0, 0, 0, 12 /))
536 CALL t ('C002', '_METEOSAT_09', (/ 129, 1, 100, 62, 0, 0, 0, 12 /))
537 CALL t ('C003', '_METEOSAT_09', (/ 129, 1, 100, 73, 0, 0, 0, 12 /))
538 CALL t ('C004', '_METEOSAT_09', (/ 129, 1, 100, 87, 0, 0, 0, 12 /))
539 CALL t ('C005', '_METEOSAT_09', (/ 129, 1, 100, 97, 0, 0, 0, 12 /))
540 CALL t ('C006', '_METEOSAT_09', (/ 129, 1, 100, 108, 0, 0, 0, 12 /))
541 CALL t ('C007', '_METEOSAT_09', (/ 129, 1, 100, 120, 0, 0, 0, 12 /))
542 CALL t ('C008', '_METEOSAT_09', (/ 129, 1, 100, 134, 0, 0, 0, 12 /))
543 !
544 CALL t ('C001', '_GOES_11_IMA', (/ 129, 1, 100, 39, 0, 0, 0, 12 /))
545 CALL t ('C002', '_GOES_11_IMA', (/ 129, 1, 100, 67, 0, 0, 0, 12 /))
546 CALL t ('C003', '_GOES_11_IMA', (/ 129, 1, 100, 107, 0, 0, 0, 12 /))
547 CALL t ('C004', '_GOES_11_IMA', (/ 129, 1, 100, 110, 0, 0, 0, 12 /))
548 !
549 CALL t ('C001', '_GOES_12_IMA', (/ 129, 1, 100, 39, 0, 0, 0, 12 /))
550 CALL t ('C002', '_GOES_12_IMA', (/ 129, 1, 100, 67, 0, 0, 0, 12 /))
551 CALL t ('C003', '_GOES_12_IMA', (/ 129, 1, 100, 107, 0, 0, 0, 12 /))
552 CALL t ('C004', '_GOES_12_IMA', (/ 129, 1, 100, 110, 0, 0, 0, 12 /))
553 !
554 CALL t ('C001', '_MTSAT_01_IM', (/ 129, 1, 100, 39, 0, 0, 0, 12 /))
555 CALL t ('C002', '_MTSAT_01_IM', (/ 129, 1, 100, 67, 0, 0, 0, 12 /))
556 CALL t ('C003', '_MTSAT_01_IM', (/ 129, 1, 100, 107, 0, 0, 0, 12 /))
557 CALL t ('C004', '_MTSAT_01_IM', (/ 129, 1, 100, 110, 0, 0, 0, 12 /))
558 !
559 
560 ENDDO
561 
562 IF (lhook) CALL dr_hook('FAICOR_MT',1,zhook_handle)
563 
564 CONTAINS
565 
566 SUBROUTINE t (CDPREF, CDSUFF, KCODPA, LDNIVA, PMULTI)
567 
568 CHARACTER (LEN=*), INTENT (IN) :: CDPREF, CDSUFF
569 INTEGER, INTENT (IN) :: KCODPA (8)
570 LOGICAL, OPTIONAL, INTENT (IN) :: LDNIVA
571 REAL (KIND=JPDBLR), OPTIONAL, INTENT (IN) :: PMULTI
572 
573 LOGICAL :: LLNIVA
574 
575 llniva = .false.
576 IF (PRESENT (ldniva)) llniva = ldniva
577 
578 fa%NBPARC = fa%NBPARC + 1
579 
580 IF (llalloc) THEN
581  fa%YGR1TAB (fa%NBPARC)%CIPREF = cdpref
582  fa%YGR1TAB (fa%NBPARC)%CISUFF = cdsuff
583  fa%YGR1TAB (fa%NBPARC)%NCODPA = int(kcodpa, jplikb)
584  fa%YGR1TAB (fa%NBPARC)%LFNIVA = llniva
585  IF (PRESENT (pmulti)) THEN
586  fa%YGR1TAB (fa%NBPARC)%FMULTI = pmulti
587  fa%YGR1TAB (fa%NBPARC)%LMULTI = .true.
588  ENDIF
589 ENDIF
590 
591 END SUBROUTINE t
592 !
593 END SUBROUTINE faicor_fort
lfi_precision::jplikb
integer, parameter jplikb
Definition: lfi_precision.F90:25
yomhook::dr_hook
Definition: yomhook.F90:20
fa_mod::fagr1tab
Definition: fa_mod.F90:241
fa_mod
Definition: fa_mod.F90:1
faicor_fort
subroutine faicor_fort(FA)
Definition: faicor.F90:5
parkind1::jprb
integer, parameter jprb
Definition: parkind1.F90:32
yomhook::lhook
logical lhook
Definition: yomhook.F90:15
t
subroutine t(CDPREF, CDSUFF, KCODPA, LDNIVA, PMULTI)
Definition: faicor.F90:567
fa_mod::fa_com
Definition: fa_mod.F90:252
lfi_precision
Definition: lfi_precision.F90:1
Generated on Tue Jan 16 2018 16:23:21 for SURFEX v8.1 by   doxygen 1.8.13