source: LMDZ4/trunk/libf/phytherm/write_histhf3d.h @ 1088

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

Rajout de la physique utilisant les thermiques FH
LF
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 712 bytes
RevLine 
[814]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.