source: LMDZ4/branches/LMDZ4-dev-20091210/libf/phylmd/write_histhf3d.h @ 1280

Last change on this file since 1280 was 776, checked in by Laurent Fairhead, 17 years ago

Suite du merge entre la version et la HEAD: quelques modifications
de Yann sur le

LF

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