Changeset 506 for LMDZ.3.3/branches/rel-LF/libf/phylmd/ini_histins.h

Timestamp:

Mar 24, 2004, 9:43:54 AM (20 years ago)

Author:

lmdzadmin

Message:

IM: ajout lev_hist(hf,day,mth) niveaux output definis dans physiq.def et

variables ENSEMBLES + rearrangement

File:

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

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

@@ -1 +1 @@
       IF (ok_instan) THEN
+c
+        IF(region.EQ.'3d') THEN
+          zsto = dtime * ecrit_ins
+          zout = dtime * ecrit_ins
+        ELSEIF(REGION.eq.'1d') THEN
+         zsto = dtime
+c        zout = dtime
+         zout = dtime *4.
+        ENDIF
 c
          idayref = day_ref
@@ -14 +23 @@
          CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat)
          CALL histbeg("histins", iim,zx_lon(:,1), jjmp1,zx_lat(1,:),
-     .                 1,iim,1,jjmp1, itau_phy, zjulian, dtime,
+c071103
+c    .                 1,iim,1,jjmp1, 
+     .                 imin_debut,nbpti,
+     .                 jmin_debut,nbptj,
+c071103
+     .                 itau_phy, zjulian, dtime,
      .                 nhori, nid_ins)
          write(*,*)'Inst ', itau_phy, zjulian
@@ -23 +37 @@
 c
 c
-         zsto = dtime * ecrit_ins
-         zout = dtime * ecrit_ins
-C
          CALL histdef(nid_ins, "phis", "Surface geop. height", "-",
      .                iim,jjmp1,nhori, 1,1,1, -99, 32,