source: LMDZ.3.3/branches/rel-LF/libf/phylmd/write_histREGDYN.h @ 509

      if (ok_regdyn) then

c   Comprendre comment marche el i=nint(zout/zsto)
c
      ndex2d = 0
      ndex3d = 0
c
c        itap = 0
c        zsto = dtime * REAL(NINT(86400./dtime*ecrit_regdyn))
c        zout = dtime * ecrit_mth

c        zsto = dtime
c        zout = dtime * ecrit_mth
c        zsto = dtime * REAL(NINT(86400./dtime*ecrit_regdyn))
         itau_w = itau_phy + itap
c
c     i = NINT(zout/zsto)
c     CALL gr_fi_ecrit(1,klon,iim,jjmp1,pphis,zx_tmp_2d)
c     CALL histwrite(nid_regdyn,"phis",i,zx_tmp_2d,iim*jjmp1,ndex2d)
c
c     i = NINT(zout/zsto)
c     CALL gr_fi_ecrit(1,klon,iim,jjmp1,paire,zx_tmp_2d)
c     CALL histwrite(nid_regdyn,"aire",i,zx_tmp_2d,iim*jjmp1,ndex2d)
C
c     CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxtsol,zx_tmp_2d)
c     CALL histwrite(nid_regdyn,"tsol",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
c
c 8 or day     CALL histwrite(nid_regdyn,"histoW",itap,histoW,
c 
c     CALL gr_fi_ecrit(klev,klon,iim,jjmp1, t_seri, zx_tmp_3d)

c
c     CALL gr_fi_ecrit(iwmax,kmaxm1*lmaxm1,kmaxm1,lmaxm1,
c    . histoW, zx_tmp_3d)

       CALL histwrite(nid_regdyn,"hw1",itau_w,histoW(:,:,:,1),
     &               kmaxm1*lmaxm1*iwmax,ndex3d)
c
       CALL histwrite(nid_regdyn,"nh1",itau_w,nhistoW(:,:,:,1),
     &               kmaxm1*lmaxm1*iwmax,ndex3d)
c
       CALL histwrite(nid_regdyn,"nht1",itau_w,nhistoWt(:,:,:,1),
     &               kmaxm1*lmaxm1*iwmax,ndex3d)
c
       CALL histwrite(nid_regdyn,"hw2",itau_w,histoW(:,:,:,2),
     &               kmaxm1*lmaxm1*iwmax,ndex3d)
c
       CALL histwrite(nid_regdyn,"nh2",itau_w,nhistoW(:,:,:,2),
     &               kmaxm1*lmaxm1*iwmax,ndex3d)
c
       CALL histwrite(nid_regdyn,"nht2",itau_w,nhistoWt(:,:,:,2),
     &               kmaxm1*lmaxm1*iwmax,ndex3d)
c
       CALL histwrite(nid_regdyn,"hw3",itau_w,histoW(:,:,:,3),
     &               kmaxm1*lmaxm1*iwmax,ndex3d)
c
       CALL histwrite(nid_regdyn,"nh3",itau_w,nhistoW(:,:,:,3),
     &               kmaxm1*lmaxm1*iwmax,ndex3d)
c
       CALL histwrite(nid_regdyn,"nht3",itau_w,nhistoWt(:,:,:,3),
     &               kmaxm1*lmaxm1*iwmax,ndex3d)
c
       CALL histwrite(nid_regdyn,"hw4",itau_w,histoW(:,:,:,4),
     &               kmaxm1*lmaxm1*iwmax,ndex3d)
c
       CALL histwrite(nid_regdyn,"nh4",itau_w,nhistoW(:,:,:,4),
     &               kmaxm1*lmaxm1*iwmax,ndex3d)
c
       CALL histwrite(nid_regdyn,"nht4",itau_w,nhistoWt(:,:,:,4),
     &               kmaxm1*lmaxm1*iwmax,ndex3d)
c
       CALL histwrite(nid_regdyn,"hw5",itau_w,histoW(:,:,:,5),
     &               kmaxm1*lmaxm1*iwmax,ndex3d)
c
       CALL histwrite(nid_regdyn,"nh5",itau_w,nhistoW(:,:,:,5),
     &               kmaxm1*lmaxm1*iwmax,ndex3d)
c
       CALL histwrite(nid_regdyn,"nht5",itau_w,nhistoWt(:,:,:,5),
     &               kmaxm1*lmaxm1*iwmax,ndex3d)

      if (ok_sync) then
        call histsync(nid_regdyn)
      endif

      endif