source: LMDZ4/branches/V3_test/libf/phylmd/ini_paramLMDZ_phy.h @ 1864

Last change on this file since 1864 was 704, checked in by Laurent Fairhead, 18 years ago

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