Changeset 1030 for LMDZ4/trunk/libf/phylmd/ini_histrac.h

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

File:

• LMDZ4/trunk/libf/phylmd/ini_histrac.h (modified) (1 diff)

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)