source: LMDZ4/trunk/libf/dyn3d/write_paramLMDZ_dyn.h @ 757

Last change on this file since 757 was 721, checked in by lmdzadmin, 18 years ago

Correction typage ecritphy
FH/IM
  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 7.8 KB
Line 
1c
2      ndex2d = 0
3      itau_dyn=itau_dyn+itau
4      print*,'write_paramLMDZ_dyn :itau_dyn=',itau_dyn
5c
6      zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(prt_level) 
7      CALL histwrite(nid_ctesGCM, "prt_level", itau_dyn,
8     .               zx_tmp_2d,iip1*jjp1,ndex2d)
9c
10      zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(dayref)
11      CALL histwrite(nid_ctesGCM, "dayref", itau_dyn,
12     .               zx_tmp_2d,iip1*jjp1,ndex2d)
13c
14      zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(anneeref)
15      CALL histwrite(nid_ctesGCM, "anneeref", itau_dyn,
16     .               zx_tmp_2d,iip1*jjp1,ndex2d)
17c
18      zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(raz_date)
19      CALL histwrite(nid_ctesGCM, "raz_date", itau_dyn,
20     .               zx_tmp_2d,iip1*jjp1,ndex2d)
21c
22      zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(nday)
23      CALL histwrite(nid_ctesGCM, "nday", itau_dyn,
24     .               zx_tmp_2d,iip1*jjp1,ndex2d)
25c
26      zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(day_step)
27      CALL histwrite(nid_ctesGCM, "day_step", itau_dyn,
28     .               zx_tmp_2d,iip1*jjp1,ndex2d)
29c
30      zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(iperiod)
31      CALL histwrite(nid_ctesGCM, "iperiod", itau_dyn,
32     .               zx_tmp_2d,iip1*jjp1,ndex2d)
33c
34      zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(iapp_tracvl)
35      CALL histwrite(nid_ctesGCM, "iapp_tracvl", itau_dyn,
36     .               zx_tmp_2d,iip1*jjp1,ndex2d)
37c
38      zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(iconser)
39      CALL histwrite(nid_ctesGCM, "iconser", itau_dyn,
40     .               zx_tmp_2d,iip1*jjp1,ndex2d)
41c
42      zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(iecri)
43      CALL histwrite(nid_ctesGCM, "iecri", itau_dyn,
44     .               zx_tmp_2d,iip1*jjp1,ndex2d)
45c
46      zx_tmp_2d(1:iip1,1:jjp1)=periodav
47      CALL histwrite(nid_ctesGCM, "periodav", itau_dyn,
48     .               zx_tmp_2d,iip1*jjp1,ndex2d)
49c
50      zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(idissip)
51      CALL histwrite(nid_ctesGCM, "idissip", itau_dyn,
52     .               zx_tmp_2d,iip1*jjp1,ndex2d)
53c
54      IF(lstardis) THEN
55       zx_tmp_2d(1:iip1,1:jjp1)=1.
56      ELSE
57       zx_tmp_2d(1:iip1,1:jjp1)=0.
58      ENDIF
59      CALL histwrite(nid_ctesGCM, "lstardis", itau_dyn,
60     .               zx_tmp_2d,iip1*jjp1,ndex2d)
61c
62      zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(nitergdiv)
63      CALL histwrite(nid_ctesGCM, "nitergdiv", itau_dyn,
64     .               zx_tmp_2d,iip1*jjp1,ndex2d)
65c
66      zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(nitergrot)
67      CALL histwrite(nid_ctesGCM, "nitergrot", itau_dyn,
68     .               zx_tmp_2d,iip1*jjp1,ndex2d)
69c
70      zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(niterh) 
71      CALL histwrite(nid_ctesGCM, "niterh", itau_dyn,
72     .               zx_tmp_2d,iip1*jjp1,ndex2d)
73c
74      zx_tmp_2d(1:iip1,1:jjp1)=tetagdiv
75      CALL histwrite(nid_ctesGCM, "tetagdiv", itau_dyn,
76     .               zx_tmp_2d,iip1*jjp1,ndex2d)
77c
78      zx_tmp_2d(1:iip1,1:jjp1)=tetagrot
79      CALL histwrite(nid_ctesGCM, "tetagrot", itau_dyn,
80     .               zx_tmp_2d,iip1*jjp1,ndex2d)
81c
82      zx_tmp_2d(1:iip1,1:jjp1)=tetatemp
83      CALL histwrite(nid_ctesGCM, "tetatemp", itau_dyn,
84     .               zx_tmp_2d,iip1*jjp1,ndex2d)
85c
86      zx_tmp_2d(1:iip1,1:jjp1)=coefdis
87      CALL histwrite(nid_ctesGCM, "coefdis", itau_dyn,
88     .               zx_tmp_2d,iip1*jjp1,ndex2d)
89c
90      IF(purmats) THEN
91       zx_tmp_2d(1:iip1,1:jjp1)=1.
92      ELSE
93       zx_tmp_2d(1:iip1,1:jjp1)=0.
94      ENDIF
95      CALL histwrite(nid_ctesGCM, "purmats", itau_dyn,
96     .               zx_tmp_2d,iip1*jjp1,ndex2d)
97c
98      IF(ok_guide) THEN
99       zx_tmp_2d(1:iip1,1:jjp1)=1.
100      ELSE
101       zx_tmp_2d(1:iip1,1:jjp1)=0.
102      ENDIF
103      CALL histwrite(nid_ctesGCM, "ok_guide", itau_dyn,
104     .               zx_tmp_2d,iip1*jjp1,ndex2d)
105c
106      IF(true_calendar) THEN
107       zx_tmp_2d(1:iip1,1:jjp1)=1.
108      ELSE
109       zx_tmp_2d(1:iip1,1:jjp1)=0.
110      ENDIF
111      CALL histwrite(nid_ctesGCM, "true_calendar", itau_dyn,
112     .               zx_tmp_2d,iip1*jjp1,ndex2d)
113c
114      zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(iflag_phys)
115      CALL histwrite(nid_ctesGCM, "iflag_phys", itau_dyn,
116     .               zx_tmp_2d,iip1*jjp1,ndex2d)
117c
118      zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(iphysiq)
119      CALL histwrite(nid_ctesGCM, "iphysiq", itau_dyn,
120     .               zx_tmp_2d,iip1*jjp1,ndex2d)
121c
122      zx_tmp_2d(1:iip1,1:jjp1)=ecritphy
123      CALL histwrite(nid_ctesGCM, "ecritphy", itau_dyn,
124     .               zx_tmp_2d,iip1*jjp1,ndex2d)
125c
126      IF(cycle_diurne) THEN
127       zx_tmp_2d(1:iip1,1:jjp1)=1.
128      ELSE
129       zx_tmp_2d(1:iip1,1:jjp1)=0.
130      ENDIF
131      CALL histwrite(nid_ctesGCM, "cycle_diurne", itau_dyn,
132     .               zx_tmp_2d,iip1*jjp1,ndex2d)
133c
134      IF(soil_model) THEN
135       zx_tmp_2d(1:iip1,1:jjp1)=1.
136      ELSE
137       zx_tmp_2d(1:iip1,1:jjp1)=0.
138      ENDIF
139      CALL histwrite(nid_ctesGCM, "soil_model", itau_dyn,
140     .               zx_tmp_2d,iip1*jjp1,ndex2d)
141c
142      IF(new_oliq) THEN
143       zx_tmp_2d(1:iip1,1:jjp1)=1.
144      ELSE
145       zx_tmp_2d(1:iip1,1:jjp1)=0.
146      ENDIF
147      CALL histwrite(nid_ctesGCM, "new_oliq", itau_dyn,
148     .               zx_tmp_2d,iip1*jjp1,ndex2d)
149c
150      IF(ok_orodr) THEN
151       zx_tmp_2d(1:iip1,1:jjp1)=1.
152      ELSE
153       zx_tmp_2d(1:iip1,1:jjp1)=0.
154      ENDIF
155      CALL histwrite(nid_ctesGCM, "ok_orodr", itau_dyn,
156     .               zx_tmp_2d,iip1*jjp1,ndex2d)
157c
158      IF(ok_orolf) THEN
159       zx_tmp_2d(1:iip1,1:jjp1)=1.
160      ELSE
161       zx_tmp_2d(1:iip1,1:jjp1)=0.
162      ENDIF
163      CALL histwrite(nid_ctesGCM, "ok_orolf", itau_dyn,
164     .               zx_tmp_2d,iip1*jjp1,ndex2d)
165c
166      IF(ok_limitvrai) THEN
167       zx_tmp_2d(1:iip1,1:jjp1)=1.
168      ELSE
169       zx_tmp_2d(1:iip1,1:jjp1)=0.
170      ENDIF
171      CALL histwrite(nid_ctesGCM, "ok_limitvrai", itau_dyn,
172     .               zx_tmp_2d,iip1*jjp1,ndex2d)
173c
174      zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(nbapp_rad)
175      CALL histwrite(nid_ctesGCM, "nbapp_rad", itau_dyn,
176     .               zx_tmp_2d,iip1*jjp1,ndex2d)
177c
178      zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(iflag_con)
179      CALL histwrite(nid_ctesGCM, "iflag_con", itau_dyn,
180     .               zx_tmp_2d,iip1*jjp1,ndex2d)
181c
182      zx_tmp_2d(1:iip1,1:jjp1)=clon
183      CALL histwrite(nid_ctesGCM, "clon", itau_dyn,
184     .               zx_tmp_2d,iip1*jjp1,ndex2d)
185c
186      zx_tmp_2d(1:iip1,1:jjp1)=clat
187      CALL histwrite(nid_ctesGCM, "clat", itau_dyn,
188     .               zx_tmp_2d,iip1*jjp1,ndex2d)
189c
190      zx_tmp_2d(1:iip1,1:jjp1)=grossismx
191      CALL histwrite(nid_ctesGCM, "grossismx", itau_dyn,
192     .               zx_tmp_2d,iip1*jjp1,ndex2d)
193c
194      zx_tmp_2d(1:iip1,1:jjp1)=grossismy
195      CALL histwrite(nid_ctesGCM, "grossismy", itau_dyn,
196     .               zx_tmp_2d,iip1*jjp1,ndex2d)
197c
198      IF(fxyhypb) THEN
199       zx_tmp_2d(1:iip1,1:jjp1)=1.
200      ELSE
201       zx_tmp_2d(1:iip1,1:jjp1)=0.
202      ENDIF
203      CALL histwrite(nid_ctesGCM, "fxyhypb", itau_dyn,
204     .               zx_tmp_2d,iip1*jjp1,ndex2d)
205c
206      zx_tmp_2d(1:iip1,1:jjp1)=dzoomx
207      CALL histwrite(nid_ctesGCM, "dzoomx", itau_dyn,
208     .               zx_tmp_2d,iip1*jjp1,ndex2d)
209c
210      zx_tmp_2d(1:iip1,1:jjp1)=dzoomy
211      CALL histwrite(nid_ctesGCM, "dzoomy", itau_dyn,
212     .               zx_tmp_2d,iip1*jjp1,ndex2d)
213c
214      zx_tmp_2d(1:iip1,1:jjp1)=taux
215      CALL histwrite(nid_ctesGCM, "taux", itau_dyn,
216     .               zx_tmp_2d,iip1*jjp1,ndex2d)
217c
218      zx_tmp_2d(1:iip1,1:jjp1)=tauy
219      CALL histwrite(nid_ctesGCM, "tauy", itau_dyn,
220     .               zx_tmp_2d,iip1*jjp1,ndex2d)
221c
222      IF(ysinus) THEN
223       zx_tmp_2d(1:iip1,1:jjp1)=1.
224      ELSE
225       zx_tmp_2d(1:iip1,1:jjp1)=0.
226      ENDIF
227      CALL histwrite(nid_ctesGCM, "ysinus", itau_dyn,
228     .               zx_tmp_2d,iip1*jjp1,ndex2d)
229c
230      zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(ip_ebil_dyn)
231      CALL histwrite(nid_ctesGCM, "ip_ebil_dyn", itau_dyn,
232     .               zx_tmp_2d,iip1*jjp1,ndex2d)
233c
234c=================================================================
235c
236      if (ok_sync) then
237        call histsync(nid_ctesGCM)
238      endif
239c
240c=================================================================
Note: See TracBrowser for help on using the repository browser.