Changeset 511 for LMDZ.3.3/branches/rel-LF/libf/phylmd/ini_histday.h

Timestamp:

Mar 24, 2004, 11:41:29 AM (20 years ago)

Author:

lmdzadmin

Message:

Enleve region "1d" des fichiers ini*.h
IM

File:

• LMDZ.3.3/branches/rel-LF/libf/phylmd/ini_histday.h (modified) (2 diffs)

LMDZ.3.3/branches/rel-LF/libf/phylmd/ini_histday.h

@@ -1 +1 @@
       IF (ok_journe) THEN
 c
-       IF(region.EQ.'3d') THEN
          zsto = dtime
-c        zout = dtime * FLOAT(ecrit_day)
-c        zsto1= dtime * FLOAT(ecrit_day)
-         zout = dtime * REAL(ecrit_day)
-         zsto1= dtime * REAL(ecrit_day)
-       ELSEIF(region.EQ.'1d') THEN
-         zsto = dtime
-c        zout = dtime
-         zout = dtime *4.
-       ENDIF
+         zout = dtime * FLOAT(ecrit_day)
+         zsto1= dtime * FLOAT(ecrit_day)
+c         zout = dtime * REAL(ecrit_day)
+c         zsto1= dtime * REAL(ecrit_day)
 c
          idayref = day_ref
@@ -25 +19 @@
          ENDDO
          CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat)
-         write(*,*)'zx_lon = ',zx_lon(:,1)
-         write(*,*)'zx_lat = ',zx_lat(1,:)
          CALL histbeg("histday", iim,zx_lon(:,1), jjmp1,zx_lat(1,:),
-c071103
-c    .                 1,iim,1,jjmp1, 
-     .                 imin_debut,nbpti,
-     .                 jmin_debut,nbptj,
-c071103
-     .                 itau_phy, zjulian, dtime, 
+     .                 1,iim,1,jjmp1, itau_phy, zjulian, dtime, 
      .                 nhori, nid_day)
          write(*,*)'Journee ', itau_phy, zjulian