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

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

@@ -1 +1 @@
       IF (ok_isccp) THEN
 c
-       IF (region.EQ.'3d') THEN !region
 c pour les champs instantannes, il faut mettre la meme valeur pour
 c zout et zsto.
@@ -18 +17 @@
 c ecriture mensuelle
         zout = dtime * ecrit_mth
-c
-      ELSE IF (region.EQ.'1d') THEN !region      
-       zsto = dtime
-       zout = dtime *4.
-c      zout = dtime
-      ENDIF
 c
         print*,'ISCCP zout,zsto=',zout,zsto
@@ -45 +38 @@
 c
          CALL histbeg("histISCCP.nc", iim,zx_lon(:,1),jjmp1,zx_lat(1,:),
-     .                 imin_debut,nbpti,
-     .                 jmin_debut,nbptj,
+     .                 1, iim, 1, jjmp1,
      .                 itau_phy, zjulian, dtime,
      .                 nhori, nid_isccp)