source: LMDZ4/branches/LMDZ4_par_0/libf/phylmd/write_histhf3d.h @ 5008

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

Modifications faites à la physique pour la rendre parallele YM
Une branche de travail LMDZ4_par_0 a été créée provisoirement afin de tester
les modifs pleinement avant leurs inclusions dans le tronc principal
LF
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 941 bytes
Line 
1!
2! $Header$
3!
4c     if (ok_hf) then
5
6c   Comprendre comment marche el i=nint(zout/zsto)
7c
8c     print*,'ACRITURE HF !!! ACRITURE HF !!! ACRITURE HF !!! '
9      ndex2d = 0
10      ndex3d = 0
11c
12      zsto = dtime
13      zout = dtime * ecrit_hf
14      itau_w = itau_phy + itap
15c
16c     IF(lev_histhf.GE.1) THEN
17c
18c Champs 3D:
19c
20cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, t_seri, zx_tmp_3d)
21      CALL histwrite_phy(nid_hf3d,"temp",itau_w,t_seri)
22c
23cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, qx(1,1,ivap), zx_tmp_3d)
24      CALL histwrite_phy(nid_hf3d,"ovap",itau_w,qx(:,:,ivap))
25c
26cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, u_seri, zx_tmp_3d)
27      CALL histwrite_phy(nid_hf3d,"vitu",itau_w,u_seri)
28c
29cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, v_seri, zx_tmp_3d)
30      CALL histwrite_phy(nid_hf3d,"vitv",itau_w,v_seri)
31c
32c     ENDIF !lev_histhf.GE.1
33c
34      if (ok_sync) then
35        call histsync(nid_hf3d)
36      endif
37
38c     endif
Note: See TracBrowser for help on using the repository browser.