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

Last change on this file since 924 was 879, checked in by Laurent Fairhead, 17 years ago

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