source: LMDZ4/trunk/libf/phylmd/write_histrac.h @ 1146

!
! $Header$
!

      IF (ecrit_tra>0. .AND. config_inca == 'none') THEN
      ndex = 0
      ndex2d = 0
      ndex3d = 0
c
      itau_w = itau_phy + nstep

      CALL histwrite_phy(nid_tra,"phis",itau_w,pphis)
C
      CALL histwrite_phy(nid_tra,"aire",itau_w,airephy)

      DO it=1,nbtr
       iiq=niadv(it+2)

       CALL histwrite_phy(nid_tra,tname(iiq),itau_w,tr_seri(:,:,it))
       if (lessivage) THEN
       CALL histwrite_phy(nid_tra,"fl"//tname(iiq),itau_w,
     .                                   flestottr(:,:,it))
      endif
      
c----Olivia
       CALL histwrite_phy(nid_tra,"d_tr_th_"//tname(iiq),itau_w,
     .                                           d_tr_th(:,:,it))

         if(iflag_con.GE.2) then
       CALL histwrite_phy(nid_tra,"d_tr_cv_"//tname(iiq),itau_w,
     .                                           d_tr_cv(:,:,it))
         endif !(iflag_con.GE.2) then
       CALL histwrite_phy(nid_tra,"d_tr_cl_"//tname(iiq),itau_w,
     .                                           d_tr_cl(:,:,it))
c---fin Olivia      
      
      ENDDO


C abder
         CALL histwrite_phy(nid_tra,"pyu1",itau_w,yu1)

         CALL histwrite_phy(nid_tra,"pyv1",itau_w,yv1)

         CALL histwrite_phy(nid_tra,"ftsol1",itau_w,pftsol1)

         CALL histwrite_phy(nid_tra,"ftsol2",itau_w,pftsol2)

         CALL histwrite_phy(nid_tra,"ftsol3",itau_w,pftsol3)

         CALL histwrite_phy(nid_tra,"ftsol4",itau_w,pftsol4)

         CALL histwrite_phy(nid_tra,"psrf1",itau_w,ppsrf1)

         CALL histwrite_phy(nid_tra,"psrf2",itau_w,ppsrf2)

         CALL histwrite_phy(nid_tra,"psrf3",itau_w,ppsrf3)

         CALL histwrite_phy(nid_tra,"psrf4",itau_w,ppsrf4)
        CALL histwrite_phy(nid_tra,"pplay",itau_w,pplay)

        CALL histwrite_phy(nid_tra,"t",itau_w,t_seri)
        CALL histwrite_phy(nid_tra,"mfu",itau_w,pmfu)
        CALL histwrite_phy(nid_tra,"mfd",itau_w,pmfd)
        CALL histwrite_phy(nid_tra,"en_u",itau_w,pen_u)
        CALL histwrite_phy(nid_tra,"en_d",itau_w,pen_d)
        CALL histwrite_phy(nid_tra,"de_d",itau_w,pde_d)
        CALL histwrite_phy(nid_tra,"de_u",itau_w,pde_u)
        CALL histwrite_phy(nid_tra,"coefh",itau_w,coefh)


c abder

      if (ok_sync) then
c$OMP MASTER
        call histsync(nid_tra)
c$OMP END MASTER
       endif

       END IF !ecrit_tra>0. .AND. config_inca == 'none'