source: LMDZ4/branches/LMDZ4-dev-20091210/libf/phylmd/ini_paramLMDZ_phy.h @ 4999

Last change on this file since 4999 was 996, checked in by lsce, 16 years ago
  • Modifications liées au calcul des nouveau sous-fractions
  • Nettoyage de ocean slab : il reste uniquement la version avec glace de mer forcé
  • Nouveaux variables pour distiguer la version et type d'ocean : type_ocean=force/slab/couple, version_ocean=opa8/nemo pour couplé ou version_ocean=sicOBS pour slab

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