source: LMDZ4/trunk/libf/phylmd/ini_paramLMDZ_phy.h @ 757

Last change on this file since 757 was 719, checked in by lmdzadmin, 18 years ago

Correction typage ecrit_day, ecrit_mth (*.h) et definition rh2m (physiq.F)
FH/IM
  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 13.5 KB
Line 
1c
2       zstophy = dtime
3       zout = ecrit_day
4c
5       idayref = day_ref
6       CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian)
7c
8       CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon)
9       DO i = 1, iim
10         zx_lon(i,1) = rlon(i+1)
11         zx_lon(i,jjmp1) = rlon(i+1)
12       ENDDO
13       CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat)
14c
15       CALL histbeg("paramLMDZ_phy.nc", 
16     .                 iim,zx_lon(:,1), jjmp1,zx_lat(1,:),
17     .                 1,1,1,1,
18     .                 itau_phy, zjulian, dtime,
19     .                 nhori, nid_ctesGCM)
20c
21c Variables type caractere : plusieurs valeurs possibles
22c
23       CALL histdef(nid_ctesGCM, "ocean", 
24     .        "Type ocean utilise: 1=force, 2=slab, 3=couple",
25     .                "-",iim,jjmp1,nhori, 1,1,1, -99, 32, 
26     .                "once", zstophy,zout)
27c
28       CALL histdef(nid_ctesGCM, "ok_slab_sicOBS",
29     ."ok_slab_sicOBS= 1: glace de mer observee, =0: gl.mer calculee
30     . par le slab", "-",
31     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
32     .                "once", zstophy,zout)
33c
34       CALL histdef(nid_ctesGCM, "type_run",
35     .        "Type run: 1= CLIM ou ENSP, 2= AMIP ou CFMI",
36     .                "-",iim,jjmp1,nhori, 1,1,1, -99, 32,
37     .                "once", zstophy,zout)
38c
39c Variables logiques (1=true, 0=false)
40c
41       CALL histdef(nid_ctesGCM, "ok_veget", 
42     .        "Type de modele de vegetation: 1=ORCHIDEE, 0=bucket",
43     .                "-",iim,jjmp1,nhori, 1,1,1, -99, 32, 
44     .                "once", zstophy,zout)
45c
46       CALL histdef(nid_ctesGCM, "ok_journe", 
47     .        "Creation du fichier histday: 1=true, 0=false",
48     .                "-",iim,jjmp1,nhori, 1,1,1, -99, 32, 
49     .                "once", zstophy,zout)
50c
51       CALL histdef(nid_ctesGCM, "ok_mensuel", 
52     .        "Creation du fichier histmth: 1=true, 0=false",
53     .                "-",iim,jjmp1,nhori, 1,1,1, -99, 32, 
54     .                "once", zstophy,zout)
55c
56       CALL histdef(nid_ctesGCM, "ok_instan", 
57     .        "Creation du fichier histins: 1=true, 0=false",
58     .                "-",iim,jjmp1,nhori, 1,1,1, -99, 32, 
59     .                "once", zstophy,zout)
60c
61       CALL histdef(nid_ctesGCM, "ok_ade", 
62     .        "Aerosol direct effect: 1=true, 0=false",
63     .                "-",iim,jjmp1,nhori, 1,1,1, -99, 32, 
64     .                "once", zstophy,zout)
65c
66       CALL histdef(nid_ctesGCM, "ok_aie", 
67     .        "Aerosol indirect effect: 1=true, 0=false",
68     .                "-",iim,jjmp1,nhori, 1,1,1, -99, 32, 
69     .                "once", zstophy,zout)
70c
71       CALL histdef(nid_ctesGCM, "bl95_b0", 
72     .        "Parameter in CDNC-maer link (Boucher&Lohmann 1995)",
73     .                "-",iim,jjmp1,nhori, 1,1,1, -99, 32, 
74     .                "ave(X)", zstophy,zout)
75c
76       CALL histdef(nid_ctesGCM, "bl95_b1", 
77     .        "Parameter in CDNC-maer link (Boucher&Lohmann 1995)",
78     .                "-",iim,jjmp1,nhori, 1,1,1, -99, 32, 
79     .                "ave(X)", zstophy,zout)
80c
81       CALL histdef(nid_ctesGCM, "ip_ebil_phy", 
82     .                "Niveau sortie diags bilan energie cote physique",
83     .                "-",iim,jjmp1,nhori, 1,1,1, -99, 32, 
84     .                "ave(X)", zstophy,zout)
85c
86       CALL histdef(nid_ctesGCM, "R_ecc", 
87     .                "Excentricite","-",
88     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
89     .                "once", zstophy,zout)
90c
91       CALL histdef(nid_ctesGCM, "R_peri", 
92     .                "Equinoxe","-",
93     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
94     .                "once", zstophy,zout)
95c
96       CALL histdef(nid_ctesGCM, "R_incl", 
97     .                "Inclinaison","deg",
98     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
99     .                "once", zstophy,zout)
100c
101       CALL histdef(nid_ctesGCM, "solaire", 
102     .                "Constante solaire","W/m2",
103     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
104     .                "once", zstophy,zout)
105c
106       CALL histdef(nid_ctesGCM, "co2_ppm", 
107     .                "Concentration du CO2", "ppm",
108     .                iim,jjmp1,nhori, 1,1,1, -99, 32, 
109     .                "ave(X)", zstophy,zout)
110c
111       CALL histdef(nid_ctesGCM, "CH4_ppb", 
112     .                "Concentration du CH4", "ppb",
113     .                iim,jjmp1,nhori, 1,1,1, -99, 32, 
114     .                "ave(X)", zstophy,zout)
115c
116       CALL histdef(nid_ctesGCM, "N2O_ppb",
117     .                "Concentration du N2O", "ppb",
118     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
119     .                "ave(X)", zstophy,zout)
120c
121       CALL histdef(nid_ctesGCM, "CFC11_ppt",
122     .                "Concentration du CFC11", "ppt",
123     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
124     .                "ave(X)", zstophy,zout)
125c
126       CALL histdef(nid_ctesGCM, "CFC12_ppt",
127     .                "Concentration du CFC12", "ppt",
128     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
129     .                "ave(X)", zstophy,zout)
130c
131       CALL histdef(nid_ctesGCM, "epmax",
132     .                "Efficacite precip", "-",
133     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
134     .                "once", zstophy,zout)
135c
136       CALL histdef(nid_ctesGCM, "ok_adj_ema",
137     .                "ok_adj_ema: 1=true, 0=false", "-",
138     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
139     .                "once", zstophy,zout)
140c
141       CALL histdef(nid_ctesGCM, "iflag_clw",
142     .                "iflag_clw", "-",
143     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
144     .                "once", zstophy,zout)
145c
146       CALL histdef(nid_ctesGCM, "cld_lc_lsc",
147     .                "cld_lc_lsc", "-",
148     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
149     .                "once", zstophy,zout)
150c
151       CALL histdef(nid_ctesGCM, "cld_lc_con",
152     .                "cld_lc_con", "-",
153     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
154     .                "once", zstophy,zout)
155c
156       CALL histdef(nid_ctesGCM, "cld_tau_lsc",
157     .                "cld_tau_lsc", "-",
158     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
159     .                "once", zstophy,zout)
160c
161       CALL histdef(nid_ctesGCM, "cld_tau_con",
162     .                "cld_tau_con", "-",
163     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
164     .                "once", zstophy,zout)
165c
166       CALL histdef(nid_ctesGCM, "ffallv_lsc",
167     .                "ffallv_lsc", "-",
168     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
169     .                "once", zstophy,zout)
170c
171       CALL histdef(nid_ctesGCM, "ffallv_con",
172     .                "ffallv_con", "-",
173     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
174     .                "once", zstophy,zout)
175c
176       CALL histdef(nid_ctesGCM, "coef_eva",
177     .                "coef_eva", "-",
178     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
179     .                "once", zstophy,zout)
180c
181       CALL histdef(nid_ctesGCM, "reevap_ice",
182     .                "reevap_ice: 1=true, 0=false", "-",
183     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
184     .                "once", zstophy,zout)
185c
186       CALL histdef(nid_ctesGCM, "iflag_cldcon",
187     .                "iflag_cldcon", "-",
188     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
189     .                "once", zstophy,zout)
190c
191       CALL histdef(nid_ctesGCM, "iflag_pdf",
192     .                "iflag_pdf", "-",
193     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
194     .                "once", zstophy,zout)
195c
196       CALL histdef(nid_ctesGCM, "fact_cldcon",
197     .                "fact_cldcon", "-",
198     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
199     .                "once", zstophy,zout)
200c
201       CALL histdef(nid_ctesGCM, "facttemps",
202     .                "facttemps", "-",
203     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
204     .                "once", zstophy,zout)
205c
206       CALL histdef(nid_ctesGCM, "ok_newmicro",
207     .                "Nouvelle micro-physique: 1=true, 0=false",
208     .                "-",iim,jjmp1,nhori, 1,1,1, -99, 32,
209     .                "once", zstophy,zout)
210c
211       CALL histdef(nid_ctesGCM, "ratqsbas",
212     .                "ratqsbas", "-",
213     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
214     .                "once", zstophy,zout)
215c
216       CALL histdef(nid_ctesGCM, "ratqshaut",
217     .                "ratqshaut", "-",
218     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
219     .                "once", zstophy,zout)
220c
221       CALL histdef(nid_ctesGCM, "rad_froid",
222     .                "rad_froid", "-",
223     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
224     .                "once", zstophy,zout)
225c
226       CALL histdef(nid_ctesGCM, "rad_chau1",
227     .                "rad_chau1", "-",
228     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
229     .                "once", zstophy,zout)
230c
231       CALL histdef(nid_ctesGCM, "rad_chau2",
232     .                "rad_chau2", "-",
233     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
234     .                "once", zstophy,zout)
235c
236       CALL histdef(nid_ctesGCM, "top_height",
237     .                "top_height", "-",
238     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
239     .                "once", zstophy,zout)
240c
241       CALL histdef(nid_ctesGCM, "overlap",
242     .                "overlap", "-",
243     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
244     .                "once", zstophy,zout)
245c
246       CALL histdef(nid_ctesGCM, "cdmmax",
247     .                "cdmmax", "-",
248     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
249     .                "once", zstophy,zout)
250c
251       CALL histdef(nid_ctesGCM, "cdhmax",
252     .                "cdhmax", "-",
253     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
254     .                "once", zstophy,zout)
255c
256       CALL histdef(nid_ctesGCM, "ksta",
257     .                "ksta", "-",
258     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
259     .                "once", zstophy,zout)
260c
261       CALL histdef(nid_ctesGCM, "ksta_ter",
262     .                "ksta_ter", "-",
263     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
264     .                "once", zstophy,zout)
265c
266       CALL histdef(nid_ctesGCM, "ok_kzmin",
267     .                "ok_kzmin: 1=true, 0=false", "-",
268     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
269     .                "once", zstophy,zout)
270c
271       CALL histdef(nid_ctesGCM, "iflag_pbl",
272     .                "iflag_pbl", "-",
273     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
274     .                "once", zstophy,zout)
275c
276       CALL histdef(nid_ctesGCM, "lev_histhf",
277     .                "lev_histhf", "-",
278     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
279     .                "once", zstophy,zout)
280c
281       CALL histdef(nid_ctesGCM, "lev_histday",
282     .                "lev_histday", "-",
283     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
284     .                "once", zstophy,zout)
285c
286       CALL histdef(nid_ctesGCM, "lev_histmth",
287     .                "lev_histmth", "-",
288     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
289     .                "once", zstophy,zout)
290c
291       CALL histdef(nid_ctesGCM, "ok_isccp",
292     .                "Creation fichier histISCCP: 1=true, 0=false",
293     .                "-",iim,jjmp1,nhori, 1,1,1, -99, 32,
294     .                "once", zstophy,zout)
295c
296       CALL histdef(nid_ctesGCM, "lonmin_ins",
297     .                "lonmin_ins", "-",
298     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
299     .                "once", zstophy,zout)
300c
301       CALL histdef(nid_ctesGCM, "lonmax_ins",
302     .                "lonmax_ins", "-",
303     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
304     .                "once", zstophy,zout)
305c
306       CALL histdef(nid_ctesGCM, "latmin_ins",
307     .                "latmin_ins", "-",
308     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
309     .                "once", zstophy,zout)
310c
311       CALL histdef(nid_ctesGCM, "latmax_ins",
312     .                "latmax_ins", "-",
313     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
314     .                "once", zstophy,zout)
315c
316       CALL histdef(nid_ctesGCM, "ecrit_ins",
317     .                "ecrit_ins", "-",
318     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
319     .                "once", zstophy,zout)
320c
321       CALL histdef(nid_ctesGCM, "ecrit_hf",
322     .                "ecrit_hf", "-",
323     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
324     .                "once", zstophy,zout)
325c
326       CALL histdef(nid_ctesGCM, "ecrit_day",
327     .                "ecrit_day", "-",
328     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
329     .                "once", zstophy,zout)
330c
331       CALL histdef(nid_ctesGCM, "ecrit_mth",
332     .                "ecrit_mth", "-",
333     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
334     .                "once", zstophy,zout)
335c
336       CALL histdef(nid_ctesGCM, "ecrit_tra",
337     .                "ecrit_tra", "-",
338     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
339     .                "once", zstophy,zout)
340c
341       CALL histdef(nid_ctesGCM, "ecrit_reg",
342     .                "ecrit_reg", "-",
343     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
344     .                "once", zstophy,zout)
345c
346       CALL histdef(nid_ctesGCM, "freqin_isccp",
347     .                "freqin_isccp", "-",
348     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
349     .                "once", zstophy,zout)
350c
351       CALL histdef(nid_ctesGCM, "freqout_isccp",
352     .                "freqout_isccp", "-",
353     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
354     .                "once", zstophy,zout)
355c
356c=================================================================
357c
358       CALL histend(nid_ctesGCM)
359c
360c=================================================================
Note: See TracBrowser for help on using the repository browser.