source: LMDZ4/trunk/libf/phylmd/write_histhf3d.h @ 684

Last change on this file since 684 was 644, checked in by Laurent Fairhead, 20 years ago

Synchronisation avec tous les diagnostiques de Ionela IM
Inclusion du slab ocean IM
LF
  • 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.