Changeset 1030 for LMDZ4/trunk/libf

Timestamp:

Oct 24, 2008, 5:16:20 PM (16 years ago)

Author:

lmdzadmin

Message:

Nettoyage de commentaires + correction d'un bug dans le cas sans convection
FH/IM

Location:

LMDZ4/trunk/libf/phylmd

Files:

• ini_histrac.h (modified) (1 diff)
• write_histrac.h (modified) (4 diffs)

LMDZ4/trunk/libf/phylmd/ini_histrac.h

@@ -6 +6 @@
          CALL ymds2ju(annee_ref, 1, day_ref, 0.0, zjulian)
 c
-cym         CALL gr_fi_ecrit(1,klon,iim,jjm+1,xlon,zx_lon)
-cym         DO i = 1, iim
-cym            zx_lon(i,1) = xlon(i+1)
-cym            zx_lon(i,jjm+1) = xlon(i+1)
-cym         ENDDO
-cym         CALL gr_fi_ecrit(1,klon,iim,jjm+1,xlat,zx_lat)
-cym         CALL histbeg("histrac", iim,zx_lon(:,1), jjm+1,zx_lat(1,:),
-cym     .                 1,iim,1,jjm+1, itau_phy, zjulian, pdtphys,
-cym     .                 nhori, nid_tra)
          CALL histbeg_phy("histrac", itau_phy, zjulian, pdtphys,
      .                 nhori, nid_tra)

LMDZ4/trunk/libf/phylmd/write_histrac.h

@@ -10 +10 @@
       itau_w = itau_phy + nstep
 
-cym      CALL gr_fi_ecrit(1,klon,iim,jjm+1,pphis,zx_tmp_2d)
       CALL histwrite_phy(nid_tra,"phis",itau_w,pphis)
 C
-cym      CALL gr_fi_ecrit(1,klon,iim,jjm+1,airephy,zx_tmp_2d)      
       CALL histwrite_phy(nid_tra,"aire",itau_w,airephy)
 
@@ -20 +18 @@
 
 
-cym      CALL gr_fi_ecrit(klev,klon,iim,jjm+1,tr_seri(1,1,it),zx_tmp_3d)
        CALL histwrite_phy(nid_tra,tnom(it+2),itau_w,tr_seri(:,:,it))
        if (lessivage) THEN
-cym      CALL gr_fi_ecrit(klev,klon,iim,jjm+1,flestottr(1,1,it),zx_tmp_3d)
        CALL histwrite_phy(nid_tra,"fl"//tnom(it+2),itau_w,
      .                                   flestottr(:,:,it))
@@ -29 +25 @@
       
 c----Olivia
-cym      CALL gr_fi_ecrit(klev,klon,iim,jjm+1,d_tr_th(1,1,it),zx_tmp_3d)
        CALL histwrite_phy(nid_tra,"d_tr_th_"//tnom(it+2),itau_w,
      .                                           d_tr_th(:,:,it))
-cym      CALL gr_fi_ecrit(klev,klon,iim,jjm+1,d_tr_cv(1,1,it),zx_tmp_3d)
+
+         if(iflag_con.GE.2) then
        CALL histwrite_phy(nid_tra,"d_tr_cv_"//tnom(it+2),itau_w,
      .                                           d_tr_cv(:,:,it))
-cym      CALL gr_fi_ecrit(klev,klon,iim,jjm+1,d_tr_cl(1,1,it),zx_tmp_3d)
+         endif !(iflag_con.GE.2) then
        CALL histwrite_phy(nid_tra,"d_tr_cl_"//tnom(it+2),itau_w,
      .                                           d_tr_cl(:,:,it))
@@ -44 +40 @@
 
 C abder
-cym      CALL gr_fi_ecrit(1,klon,iim,jjm+1,yu1,zx_tmp_2d)
          CALL histwrite_phy(nid_tra,"pyu1",itau_w,yu1)
 
-cym      CALL gr_fi_ecrit(1,klon,iim,jjm+1,yv1,zx_tmp_2d)
          CALL histwrite_phy(nid_tra,"pyv1",itau_w,yv1)
 
-cym      CALL gr_fi_ecrit(1,klon,iim,jjm+1,pftsol1,zx_tmp_2d)
          CALL histwrite_phy(nid_tra,"ftsol1",itau_w,pftsol1)
 
-cym      CALL gr_fi_ecrit(1,klon,iim,jjm+1,pftsol2,zx_tmp_2d)
          CALL histwrite_phy(nid_tra,"ftsol2",itau_w,pftsol2)
 
-cym      CALL gr_fi_ecrit(1,klon,iim,jjm+1,pftsol3,zx_tmp_2d)
          CALL histwrite_phy(nid_tra,"ftsol3",itau_w,pftsol3)
 
-cym      CALL gr_fi_ecrit(1,klon,iim,jjm+1,pftsol4,zx_tmp_2d)
          CALL histwrite_phy(nid_tra,"ftsol4",itau_w,pftsol4)
 
-cym      CALL gr_fi_ecrit(1,klon,iim,jjm+1,ppsrf1,zx_tmp_2d)
          CALL histwrite_phy(nid_tra,"psrf1",itau_w,ppsrf1)
 
-cym      CALL gr_fi_ecrit(1,klon,iim,jjm+1,ppsrf2,zx_tmp_2d)
          CALL histwrite_phy(nid_tra,"psrf2",itau_w,ppsrf2)
 
-cym      CALL gr_fi_ecrit(1,klon,iim,jjm+1,ppsrf3,zx_tmp_2d)
          CALL histwrite_phy(nid_tra,"psrf3",itau_w,ppsrf3)
 
-cym      CALL gr_fi_ecrit(1,klon,iim,jjm+1,ppsrf4,zx_tmp_2d)
          CALL histwrite_phy(nid_tra,"psrf4",itau_w,ppsrf4)
-cym      CALL gr_fi_ecrit(klev,klon,iim,jjm+1,pplay,zx_tmp_3d)
         CALL histwrite_phy(nid_tra,"pplay",itau_w,pplay)
 
-cym      CALL gr_fi_ecrit(klev,klon,iim,jjm+1,t_seri,zx_tmp_3d)
         CALL histwrite_phy(nid_tra,"t",itau_w,t_seri)
-cym      CALL gr_fi_ecrit(klev,klon,iim,jjm+1,pmfu,zx_tmp_3d)
         CALL histwrite_phy(nid_tra,"mfu",itau_w,pmfu)
-cym      CALL gr_fi_ecrit(klev,klon,iim,jjm+1,pmfd,zx_tmp_3d)
         CALL histwrite_phy(nid_tra,"mfd",itau_w,pmfd)
-cym      CALL gr_fi_ecrit(klev,klon,iim,jjm+1,pen_u,zx_tmp_3d)
         CALL histwrite_phy(nid_tra,"en_u",itau_w,pen_u)
-cym      CALL gr_fi_ecrit(klev,klon,iim,jjm+1,pen_d,zx_tmp_3d)
         CALL histwrite_phy(nid_tra,"en_d",itau_w,pen_d)
-cym      CALL gr_fi_ecrit(klev,klon,iim,jjm+1,pde_d,zx_tmp_3d)
         CALL histwrite_phy(nid_tra,"de_d",itau_w,pde_d)
-cym      CALL gr_fi_ecrit(klev,klon,iim,jjm+1,pde_u,zx_tmp_3d)
         CALL histwrite_phy(nid_tra,"de_u",itau_w,pde_u)
-cym      CALL gr_fi_ecrit(klev,klon,iim,jjm+1,coefh,zx_tmp_3d)
         CALL histwrite_phy(nid_tra,"coefh",itau_w,coefh)