134 |
ndex3d = 0 |
ndex3d = 0 |
135 |
i=itap |
i=itap |
136 |
CALL gr_fi_ecrit(1,klon,iim,jjm+1,pphis,zx_tmp_2d) |
CALL gr_fi_ecrit(1,klon,iim,jjm+1,pphis,zx_tmp_2d) |
137 |
CALL histwrite(physid,"phis",i,zx_tmp_2d,iim*(jjm+1),ndex2d) |
CALL histwrite(physid,"phis",i,zx_tmp_2d) |
138 |
c |
c |
139 |
i=itap |
i=itap |
140 |
CALL gr_fi_ecrit(1,klon,iim,jjm+1,paire,zx_tmp_2d) |
CALL gr_fi_ecrit(1,klon,iim,jjm+1,paire,zx_tmp_2d) |
141 |
CALL histwrite(physid,"aire",i,zx_tmp_2d,iim*(jjm+1),ndex2d) |
CALL histwrite(physid,"aire",i,zx_tmp_2d) |
142 |
|
|
143 |
iadvtr=iadvtr+1 |
iadvtr=iadvtr+1 |
144 |
c |
c |
245 |
|
|
246 |
ccccc |
ccccc |
247 |
CALL gr_fi_ecrit(klev,klon,iim,jjm+1, t, zx_tmp_3d) |
CALL gr_fi_ecrit(klev,klon,iim,jjm+1, t, zx_tmp_3d) |
248 |
CALL histwrite(physid,"t",itap,zx_tmp_3d, |
CALL histwrite(physid,"t",itap,zx_tmp_3d) |
|
. iim*(jjm+1)*klev,ndex3d) |
|
249 |
|
|
250 |
CALL gr_fi_ecrit(klev,klon,iim,jjm+1, mfu, zx_tmp_3d) |
CALL gr_fi_ecrit(klev,klon,iim,jjm+1, mfu, zx_tmp_3d) |
251 |
CALL histwrite(physid,"mfu",itap,zx_tmp_3d, |
CALL histwrite(physid,"mfu",itap,zx_tmp_3d) |
|
. iim*(jjm+1)*klev,ndex3d) |
|
252 |
CALL gr_fi_ecrit(klev,klon,iim,jjm+1, mfd, zx_tmp_3d) |
CALL gr_fi_ecrit(klev,klon,iim,jjm+1, mfd, zx_tmp_3d) |
253 |
CALL histwrite(physid,"mfd",itap,zx_tmp_3d, |
CALL histwrite(physid,"mfd",itap,zx_tmp_3d) |
|
. iim*(jjm+1)*klev,ndex3d) |
|
254 |
CALL gr_fi_ecrit(klev,klon,iim,jjm+1, en_u, zx_tmp_3d) |
CALL gr_fi_ecrit(klev,klon,iim,jjm+1, en_u, zx_tmp_3d) |
255 |
CALL histwrite(physid,"en_u",itap,zx_tmp_3d, |
CALL histwrite(physid,"en_u",itap,zx_tmp_3d) |
|
. iim*(jjm+1)*klev,ndex3d) |
|
256 |
CALL gr_fi_ecrit(klev,klon,iim,jjm+1, de_u, zx_tmp_3d) |
CALL gr_fi_ecrit(klev,klon,iim,jjm+1, de_u, zx_tmp_3d) |
257 |
CALL histwrite(physid,"de_u",itap,zx_tmp_3d, |
CALL histwrite(physid,"de_u",itap,zx_tmp_3d) |
|
. iim*(jjm+1)*klev,ndex3d) |
|
258 |
CALL gr_fi_ecrit(klev,klon,iim,jjm+1, en_d, zx_tmp_3d) |
CALL gr_fi_ecrit(klev,klon,iim,jjm+1, en_d, zx_tmp_3d) |
259 |
CALL histwrite(physid,"en_d",itap,zx_tmp_3d, |
CALL histwrite(physid,"en_d",itap,zx_tmp_3d) |
|
. iim*(jjm+1)*klev,ndex3d) |
|
260 |
CALL gr_fi_ecrit(klev,klon,iim,jjm+1, de_d, zx_tmp_3d) |
CALL gr_fi_ecrit(klev,klon,iim,jjm+1, de_d, zx_tmp_3d) |
261 |
CALL histwrite(physid,"de_d",itap,zx_tmp_3d, |
CALL histwrite(physid,"de_d",itap,zx_tmp_3d) |
|
. iim*(jjm+1)*klev,ndex3d) |
|
262 |
CALL gr_fi_ecrit(klev,klon,iim,jjm+1, coefh, zx_tmp_3d) |
CALL gr_fi_ecrit(klev,klon,iim,jjm+1, coefh, zx_tmp_3d) |
263 |
CALL histwrite(physid,"coefh",itap,zx_tmp_3d, |
CALL histwrite(physid,"coefh",itap,zx_tmp_3d) |
|
. iim*(jjm+1)*klev,ndex3d) |
|
264 |
|
|
265 |
c ajou... |
c ajou... |
266 |
do k=1,klev |
do k=1,klev |
270 |
enddo |
enddo |
271 |
|
|
272 |
CALL gr_fi_ecrit(klev,klon,iim,jjm+1, fm_therm1, zx_tmp_3d) |
CALL gr_fi_ecrit(klev,klon,iim,jjm+1, fm_therm1, zx_tmp_3d) |
273 |
CALL histwrite(physid,"fm_th",itap,zx_tmp_3d, |
CALL histwrite(physid,"fm_th",itap,zx_tmp_3d) |
|
. iim*(jjm+1)*klev,ndex3d) |
|
274 |
c |
c |
275 |
CALL gr_fi_ecrit(klev,klon,iim,jjm+1, entr_therm, zx_tmp_3d) |
CALL gr_fi_ecrit(klev,klon,iim,jjm+1, entr_therm, zx_tmp_3d) |
276 |
CALL histwrite(physid,"en_th",itap,zx_tmp_3d, |
CALL histwrite(physid,"en_th",itap,zx_tmp_3d) |
|
. iim*(jjm+1)*klev,ndex3d) |
|
277 |
cccc |
cccc |
278 |
CALL gr_fi_ecrit(klev,klon,iim,jjm+1,frac_impa,zx_tmp_3d) |
CALL gr_fi_ecrit(klev,klon,iim,jjm+1,frac_impa,zx_tmp_3d) |
279 |
CALL histwrite(physid,"frac_impa",itap,zx_tmp_3d, |
CALL histwrite(physid,"frac_impa",itap,zx_tmp_3d) |
|
. iim*(jjm+1)*klev,ndex3d) |
|
280 |
|
|
281 |
CALL gr_fi_ecrit(klev,klon,iim,jjm+1,frac_nucl,zx_tmp_3d) |
CALL gr_fi_ecrit(klev,klon,iim,jjm+1,frac_nucl,zx_tmp_3d) |
282 |
CALL histwrite(physid,"frac_nucl",itap,zx_tmp_3d, |
CALL histwrite(physid,"frac_nucl",itap,zx_tmp_3d) |
|
. iim*(jjm+1)*klev,ndex3d) |
|
283 |
|
|
284 |
CALL gr_fi_ecrit(1, klon,iim,jjm+1, pyu1,zx_tmp_2d) |
CALL gr_fi_ecrit(1, klon,iim,jjm+1, pyu1,zx_tmp_2d) |
285 |
CALL histwrite(physid,"pyu1",itap,zx_tmp_2d,iim*(jjm+1), |
CALL histwrite(physid,"pyu1",itap,zx_tmp_2d) |
|
. ndex2d) |
|
286 |
|
|
287 |
CALL gr_fi_ecrit(1, klon,iim,jjm+1, pyv1,zx_tmp_2d) |
CALL gr_fi_ecrit(1, klon,iim,jjm+1, pyv1,zx_tmp_2d) |
288 |
CALL histwrite(physid,"pyv1",itap,zx_tmp_2d,iim*(jjm+1) |
CALL histwrite(physid,"pyv1",itap,zx_tmp_2d) |
|
. ,ndex2d) |
|
289 |
|
|
290 |
CALL gr_fi_ecrit(1,klon,iim,jjm+1, pftsol1, zx_tmp_2d) |
CALL gr_fi_ecrit(1,klon,iim,jjm+1, pftsol1, zx_tmp_2d) |
291 |
CALL histwrite(physid,"ftsol1",itap,zx_tmp_2d, |
CALL histwrite(physid,"ftsol1",itap,zx_tmp_2d) |
|
. iim*(jjm+1),ndex2d) |
|
292 |
CALL gr_fi_ecrit(1,klon,iim,jjm+1, pftsol2, zx_tmp_2d) |
CALL gr_fi_ecrit(1,klon,iim,jjm+1, pftsol2, zx_tmp_2d) |
293 |
CALL histwrite(physid,"ftsol2",itap,zx_tmp_2d, |
CALL histwrite(physid,"ftsol2",itap,zx_tmp_2d) |
|
. iim*(jjm+1),ndex2d) |
|
294 |
CALL gr_fi_ecrit(1,klon,iim,jjm+1, pftsol3, zx_tmp_2d) |
CALL gr_fi_ecrit(1,klon,iim,jjm+1, pftsol3, zx_tmp_2d) |
295 |
CALL histwrite(physid,"ftsol3",itap,zx_tmp_2d, |
CALL histwrite(physid,"ftsol3",itap,zx_tmp_2d) |
|
. iim*(jjm+1),ndex2d) |
|
296 |
CALL gr_fi_ecrit(1,klon,iim,jjm+1, pftsol4, zx_tmp_2d) |
CALL gr_fi_ecrit(1,klon,iim,jjm+1, pftsol4, zx_tmp_2d) |
297 |
CALL histwrite(physid,"ftsol4",itap,zx_tmp_2d, |
CALL histwrite(physid,"ftsol4",itap,zx_tmp_2d) |
|
. iim*(jjm+1),ndex2d) |
|
298 |
|
|
299 |
CALL gr_fi_ecrit(1,klon,iim,jjm+1, ppsrf1, zx_tmp_2d) |
CALL gr_fi_ecrit(1,klon,iim,jjm+1, ppsrf1, zx_tmp_2d) |
300 |
CALL histwrite(physid,"psrf1",itap,zx_tmp_2d, |
CALL histwrite(physid,"psrf1",itap,zx_tmp_2d) |
|
. iim*(jjm+1),ndex2d) |
|
301 |
CALL gr_fi_ecrit(1,klon,iim,jjm+1, ppsrf2, zx_tmp_2d) |
CALL gr_fi_ecrit(1,klon,iim,jjm+1, ppsrf2, zx_tmp_2d) |
302 |
CALL histwrite(physid,"psrf2",itap,zx_tmp_2d, |
CALL histwrite(physid,"psrf2",itap,zx_tmp_2d) |
|
. iim*(jjm+1),ndex2d) |
|
303 |
CALL gr_fi_ecrit(1,klon,iim,jjm+1, ppsrf3, zx_tmp_2d) |
CALL gr_fi_ecrit(1,klon,iim,jjm+1, ppsrf3, zx_tmp_2d) |
304 |
CALL histwrite(physid,"psrf3",itap,zx_tmp_2d, |
CALL histwrite(physid,"psrf3",itap,zx_tmp_2d) |
|
. iim*(jjm+1),ndex2d) |
|
305 |
CALL gr_fi_ecrit(1,klon,iim,jjm+1, ppsrf4, zx_tmp_2d) |
CALL gr_fi_ecrit(1,klon,iim,jjm+1, ppsrf4, zx_tmp_2d) |
306 |
CALL histwrite(physid,"psrf4",itap,zx_tmp_2d, |
CALL histwrite(physid,"psrf4",itap,zx_tmp_2d) |
|
. iim*(jjm+1),ndex2d) |
|
307 |
|
|
308 |
if (ok_sync) call histsync(physid) |
if (ok_sync) call histsync(physid) |
309 |
c if (ok_sync) call histsync |
c if (ok_sync) call histsync |