source: LMDZ4/trunk/libf/dyn3d/ini_paramLMDZ_dyn.h @ 802

Last change on this file since 802 was 692, checked in by lmdzadmin, 19 years ago

Ajout fichier contenant les flags/parametres de la dynamique paramLMDZ_dyn.nc
IM

  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 10.6 KB
Line 
1c
2      dt_cum = dtvr*day_step
3
4      zan = annee_ref
5      dayref = day_ref
6      CALL ymds2ju(zan, 1, dayref, 0.0, zjulian)
7      tau0 = itau_dyn
8c
9       pi = 4.0 * ATAN(1.0)
10       degres = 180./pi
11       rlong = rlonu * degres
12       rlatg = rlatu * degres
13c
14      CALL histbeg("paramLMDZ_dyn.nc", 
15     .                 iip1,rlong, jjp1,rlatg,
16     .                 1,1,1,1,
17     .                 tau0, zjulian, dt_cum,
18     .                 thoriid, nid_ctesGCM)
19c
20         CALL histdef(nid_ctesGCM, "prt_level", 
21     .        "Niveau impression debuggage dynamique",
22     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
23     .                "once", dt_cum,dt_cum)
24c
25         CALL histdef(nid_ctesGCM, "dayref", 
26     .        "Jour de l etat initial ( = 350  si 20 Decembre par ex.)",
27     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
28     .                "once", dt_cum,dt_cum)
29c
30         CALL histdef(nid_ctesGCM, "anneeref", 
31     .        "Annee de l etat initial",
32     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
33     .                "once", dt_cum,dt_cum)
34c
35         CALL histdef(nid_ctesGCM, "anneelim", 
36     .        "Annee du fichier limitxxxx.nc  si  ok_limitvrai =y",
37     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
38     .                "once", dt_cum,dt_cum)
39c
40         CALL histdef(nid_ctesGCM, "raz_date", 
41     .   "Remise a zero (raz) date init.: 0 pas de raz;1=date gcm.def",
42     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
43     .                "once", dt_cum,dt_cum)
44c
45         CALL histdef(nid_ctesGCM, "nday", 
46     .   "Nombre de jours d integration",
47     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
48     .                "once", dt_cum,dt_cum)
49c
50         CALL histdef(nid_ctesGCM, "day_step", 
51     .   "nombre de pas par jour pour dt = 1 min",
52     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
53     .                "once", dt_cum,dt_cum)
54c
55         CALL histdef(nid_ctesGCM, "iperiod", 
56     .   "periode pour le pas Matsuno (en pas de temps)",
57     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
58     .                "once", dt_cum,dt_cum)
59c
60         CALL histdef(nid_ctesGCM, "iapp_tracvl", 
61     .   "frequence du groupement des flux (en pas de temps)",
62     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
63     .                "once", dt_cum,dt_cum)
64c
65         CALL histdef(nid_ctesGCM, "iconser", 
66     .  "periode de sortie des variables de controle (en pas de temps)",
67     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
68     .                "once", dt_cum,dt_cum)
69c
70         CALL histdef(nid_ctesGCM, "iecri", 
71     .  "periode d ecriture du fichier histoire (en jour)",
72     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
73     .                "once", dt_cum,dt_cum)
74c
75         CALL histdef(nid_ctesGCM, "periodav", 
76     .  "periode de stockage fichier histmoy (en jour)",
77     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
78     .                "once", dt_cum,dt_cum)
79c
80         CALL histdef(nid_ctesGCM, "idissip", 
81     .  "periode de la dissipation (en pas) ... a completer",
82     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
83     .                "once", dt_cum,dt_cum)
84c
85         CALL histdef(nid_ctesGCM, "lstardis", 
86     .  "choix de l operateur de dissipation: 1= star,0=non-star ??",
87     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
88     .                "once", dt_cum,dt_cum)
89c
90         CALL histdef(nid_ctesGCM, "nitergdiv", 
91     .  "nombre d iterations de l operateur de dissipation gradiv",
92     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
93     .                "once", dt_cum,dt_cum)
94c
95         CALL histdef(nid_ctesGCM, "nitergrot", 
96     .  "nombre d iterations de l operateur de dissipation nxgradrot",
97     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
98     .                "once", dt_cum,dt_cum)
99c
100         CALL histdef(nid_ctesGCM, "niterh", 
101     .  "nombre d iterations de l operateur de dissipation divgrad",
102     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
103     .                "once", dt_cum,dt_cum)
104c
105         CALL histdef(nid_ctesGCM, "tetagdiv", 
106     ."temps dissipation des + petites long. d ondes pour u,v (gradiv)",
107     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
108     .                "once", dt_cum,dt_cum)
109c
110         CALL histdef(nid_ctesGCM, "tetagrot", 
111     ."temps diss. des + petites long. d ondes pour u,v (nxgradrot)",
112     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
113     .                "once", dt_cum,dt_cum)
114c
115         CALL histdef(nid_ctesGCM, "tetatemp", 
116     ."temps diss. des + petites long. d ondes pour h (divgrad)",
117     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
118     .                "once", dt_cum,dt_cum)
119c
120         CALL histdef(nid_ctesGCM, "coefdis", 
121     ."coefficient pour gamdissip",
122     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
123     .                "once", dt_cum,dt_cum)
124c
125         CALL histdef(nid_ctesGCM, "purmats", 
126     ."Choix schema integration temporel: 1=Matsuno,0=Matsuno-leapfrog",
127     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
128     .                "once", dt_cum,dt_cum)
129c
130         CALL histdef(nid_ctesGCM, "ok_guide", 
131     ."Guidage: 1=true ,0=false",
132     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
133     .                "once", dt_cum,dt_cum)
134c
135         CALL histdef(nid_ctesGCM, "true_calendar", 
136     ."Choix du calendrier: 1=gregorien ,0=calen. a 360 j",
137     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
138     .                "once", dt_cum,dt_cum)
139c
140         CALL histdef(nid_ctesGCM, "guide_calend", 
141     ."Guidage calendrier gregorien: 1=oui ,0=non",
142     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
143     .                "once", dt_cum,dt_cum)
144c
145         CALL histdef(nid_ctesGCM, "iflag_phys", 
146     ."Permet de faire tourner le modele sans physique: 1=avec ,0=sans",
147     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
148     .                "once", dt_cum,dt_cum)
149c
150         CALL histdef(nid_ctesGCM, "iphysiq", 
151     ."Periode de la physique en pas de temps de la dynamique",
152     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
153     .                "once", dt_cum,dt_cum)
154c
155         CALL histdef(nid_ctesGCM, "ecritphy", 
156     ."frequence  de l ecriture du fichier histphy en jours",
157     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
158     .                "once", dt_cum,dt_cum)
159c
160         CALL histdef(nid_ctesGCM, "cycle_diurne", 
161     ."Avoir un cycle diurne: 1=true, 0=false",
162     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
163     .                "once", dt_cum,dt_cum)
164c
165         CALL histdef(nid_ctesGCM, "soil_model", 
166     ."Choix du modele de sol (Thermique ?): 1=true, 0=false",
167     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
168     .                "once", dt_cum,dt_cum)
169c
170         CALL histdef(nid_ctesGCM, "new_oliq", 
171     ."Nouvelle eau liquide: 1=true, 0=false",
172     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
173     .                "once", dt_cum,dt_cum)
174c
175         CALL histdef(nid_ctesGCM, "ok_orodr", 
176     ."Orography drag : 1=true, 0=false",
177     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
178     .                "once", dt_cum,dt_cum)
179c
180         CALL histdef(nid_ctesGCM, "ok_orolf", 
181     ."Orography lift : 1=true, 0=false",
182     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
183     .                "once", dt_cum,dt_cum)
184c
185         CALL histdef(nid_ctesGCM, "ok_limitvrai", 
186     ."Force la lecture de la bonne annee: 1=true, 0=false",
187     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
188     .                "once", dt_cum,dt_cum)
189c
190         CALL histdef(nid_ctesGCM, "nbapp_rad", 
191     ."Nombre  d appels des routines de rayonnements par jour",
192     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
193     .                "once", dt_cum,dt_cum)
194c
195         CALL histdef(nid_ctesGCM, "iflag_con", 
196     ."Flag  pour la convection: 1=LMD, 2=Tiedtke, 3=KE, 4=KE vect.",
197     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
198     .                "once", dt_cum,dt_cum)
199c
200         CALL histdef(nid_ctesGCM, "clon", 
201     ."longitude en degres du centre du zoom",
202     .                "deg",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
203     .                "once", dt_cum,dt_cum)
204c
205         CALL histdef(nid_ctesGCM, "clat", 
206     ."latitude en degres du centre du zoom",
207     .                "deg",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
208     .                "once", dt_cum,dt_cum)
209c
210         CALL histdef(nid_ctesGCM, "grossismx", 
211     ."facteur de grossissement du zoom, selon la longitude",
212     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
213     .                "once", dt_cum,dt_cum)
214c
215         CALL histdef(nid_ctesGCM, "grossismy", 
216     ."facteur de grossissement du zoom, selon la latitude",
217     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
218     .                "once", dt_cum,dt_cum)
219c
220         CALL histdef(nid_ctesGCM, "fxyhypb", 
221     ."Fonction f(y) hyperbolique  si true=1, sinusoidale si false=0",
222     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
223     .                "once", dt_cum,dt_cum)
224c
225         CALL histdef(nid_ctesGCM, "dzoomx", 
226     ."extension en longitude de la zone du zoom (fraction zone totale)"
227     .                ,"-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
228     .                "once", dt_cum,dt_cum)
229c
230         CALL histdef(nid_ctesGCM, "dzoomy", 
231     ."extension en latitude de la zone du zoom (fraction zone totale)"
232     .                ,"-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
233     .                "once", dt_cum,dt_cum)
234c
235         CALL histdef(nid_ctesGCM, "taux", 
236     ."raideur du zoom en  X"
237     .                ,"-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
238     .                "once", dt_cum,dt_cum)
239c
240         CALL histdef(nid_ctesGCM, "tauy", 
241     ."raideur du zoom en  Y"
242     .                ,"-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
243     .                "once", dt_cum,dt_cum)
244c
245         CALL histdef(nid_ctesGCM, "ysinus", 
246     ."ysinus=1: Ftion f(y) avec y=Sin(latit.)/ ysinus=0: y = latit"
247     .                ,"-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
248     .                "once", dt_cum,dt_cum)
249c
250         CALL histdef(nid_ctesGCM, "ip_ebil_dyn", 
251     ."PRINTlevel for energy conservation diag.; 0/1= pas de print,
252     . 2= print","-",iip1,jjp1,thoriid, 1,1,1, -99, 32,
253     .                "once", dt_cum,dt_cum)
254c
255c=================================================================
256c
257         CALL histend(nid_ctesGCM)
258c
259c=================================================================
Note: See TracBrowser for help on using the repository browser.