source: LMDZ4/tags/LMDZ4_V2/libf/phylmd/write_histhf3d.h @ 741

Last change on this file since 741 was 741, checked in by (none), 17 years ago

This commit was manufactured by cvs2svn to create tag 'LMDZ4_V2'.
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 911 bytes
Line 
1c
2c $Header$
3c
4c
5      ndex2d = 0
6      ndex3d = 0
7c
8      itau_w = itau_phy + itap
9c
10c Champs 3D:
11c
12      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, t_seri, zx_tmp_3d)
13      CALL histwrite(nid_hf3d,"temp",itau_w,zx_tmp_3d,
14     .                                   iim*jjmp1*klev,ndex3d)
15c
16      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, qx(1,1,ivap), zx_tmp_3d)
17      CALL histwrite(nid_hf3d,"ovap",itau_w,zx_tmp_3d,
18     .                                   iim*jjmp1*klev,ndex3d)
19c
20      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, u_seri, zx_tmp_3d)
21      CALL histwrite(nid_hf3d,"vitu",itau_w,zx_tmp_3d,
22     .                                   iim*jjmp1*klev,ndex3d)
23c
24      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, v_seri, zx_tmp_3d)
25      CALL histwrite(nid_hf3d,"vitv",itau_w,zx_tmp_3d,
26     .                                   iim*jjmp1*klev,ndex3d)
27c
28      if (ok_sync) then
29        call histsync(nid_hf3d)
30      endif
Note: See TracBrowser for help on using the repository browser.