source: LMDZ4/tags/LMDZ4_V3_1/libf/phylmd/ini_paramLMDZ_phy.h @ 911

Last change on this file since 911 was 911, checked in by (none), 16 years ago

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