Changeset 511 for LMDZ.3.3/branches/rel-LF/libf/phylmd/ini_histhf.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_histhf.h (modified) (3 diffs)

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

@@ -1 +1 @@
 
       IF (ok_hf) THEN
-c
-       IF(region.EQ.'3d') THEN
 c
         zout = dtime * REAL(NINT(86400./dtime*ecrit_hf))
@@ -9 +7 @@
         PRINT*, 'La frequence de sortie instant. est de ', ecrit_hf
 c
-       ELSEIF(region.EQ.'1d') THEN 
-c
-c   pour les champs instantannes, il faut mettre la meme valeur pour
-c   zout et tsto.
-c   dtime est passe par ailleurs a histbeg
-         zsto = dtime
-c        zout = dtime
-         zout = dtime *4. 
-       ENDIF 
-       print*,'zout,zsto=',zout,zsto
-cIM cf LF
          idayref = day_ref
          CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian)
-
-cccIM    CALL ymds2ju(anne_ini, 1, 1, 0.0, zjulian)
-c        CALL ymds2ju(annee_ref, 1, 1, 0.0, zjulian)
-c        zjulian = zjulian + day_ini
-cIM cf LF
 
 c
@@ -39 +21 @@
 cccIM      CALL histbeg("histhf", iim,zx_lon, jjmp1,zx_lat,
          CALL histbeg("histhf", iim,zx_lon(:,1), jjmp1,zx_lat(1,:),
-cIM cf LF    .                 1,iim,1,jjmp1, 0, zjulian, dtime, 
-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_hf)