source: LMDZ.3.3/trunk/libf/phylmd/write_histhf3d.h @ 2168

Last change on this file since 2168 was 507, checked in by lmdzadmin, 21 years ago

Rajout de diagnostiques 3d HF
IM
  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 1.1 KB
RevLine 
[507]1c     if (ok_hf) then
2
3c   Comprendre comment marche el i=nint(zout/zsto)
4c
5c     print*,'ACRITURE HF !!! ACRITURE HF !!! ACRITURE HF !!! '
6      ndex2d = 0
7      ndex3d = 0
8c
9      zsto = dtime
10      zout = dtime * ecrit_hf
11      itau_w = itau_phy + itap
12c
13c     IF(lev_histhf.GE.1) THEN
14c
15c Champs 3D:
16c
17      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, t_seri, zx_tmp_3d)
18      CALL histwrite(nid_hf3d,"temp",itau_w,zx_tmp_3d,
19     .                                   iim*jjmp1*klev,ndex3d)
20c
21      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, qx(1,1,ivap), zx_tmp_3d)
22      CALL histwrite(nid_hf3d,"ovap",itau_w,zx_tmp_3d,
23     .                                   iim*jjmp1*klev,ndex3d)
24c
25      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, u_seri, zx_tmp_3d)
26      CALL histwrite(nid_hf3d,"vitu",itau_w,zx_tmp_3d,
27     .                                   iim*jjmp1*klev,ndex3d)
28c
29      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, v_seri, zx_tmp_3d)
30      CALL histwrite(nid_hf3d,"vitv",itau_w,zx_tmp_3d,
31     .                                   iim*jjmp1*klev,ndex3d)
32c
33c     ENDIF !lev_histhf.GE.1
34c
35      if (ok_sync) then
36        call histsync(nid_hf3d)
37      endif
38
39c     endif
Note: See TracBrowser for help on using the repository browser.