Changeset 684 for LMDZ4/trunk/libf/phylmd/ini_histday.h

Timestamp:

Apr 4, 2006, 5:00:40 PM (19 years ago)

Author:

lmdzadmin

Message:

Ajout nouveaux flags (ip_ebil_phy, ok_slab_sicOBS) ds physiq.def +
Lecture freq. ecriture en nombre de jours
IM

File:

• LMDZ4/trunk/libf/phylmd/ini_histday.h (modified) (4 diffs)

LMDZ4/trunk/libf/phylmd/ini_histday.h

@@ -5 +5 @@
 c
        zstophy = dtime
-       zstoday= dtime * FLOAT(ecrit_day)
-       zout = dtime * FLOAT(ecrit_day)
+       zstoday= ecrit_day
+       zout = ecrit_day
 c
          idayref = day_ref
@@ -156 +156 @@
      .                "ave(X)", zstophy,zout)
 c
+         CALL histdef(nid_day, "radsol", "Rayonnement au sol", "W/m2",
+     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
+     .                "ave(X)", zstophy,zout)
+c
          CALL histdef(nid_day, "cldl", "Low-level cloudiness", "-",
      .                iim,jjmp1,nhori, 1,1,1, -99, 32, 
@@ -381 +385 @@
      .                32, "ave(X)", zstophy,zout)
 c
+cIM AMMA-MIP
+         CALL histdef(nid_day, "LWdnSFC",
+     .                "LW down at surface","W/m2",
+     .                iim,jjmp1,nhori, 1,1,1,-99,
+     .                32, "ave(X)", zstophy,zout)
+c
+         CALL histdef(nid_day, "LWupSFC",
+     .                "LW down at surface","W/m2",
+     .                iim,jjmp1,nhori, 1,1,1,-99,
+     .                32, "ave(X)", zstophy,zout)
+c
+cIM     IF (iflag_con.GE.3) THEN 
+         CALL histdef(nid_day, "ptop",
+c    .                "Cld top pressure","mb",
+     .                "Cld top pressure (cf ISCCP simulator)","Pa",
+     .                iim,jjmp1,nhori, 1,1,1,-99,
+     .                32, "ave(X)", zstophy,zout)
+cIM     ENDIF !(iflag_con.GE.3) THEN 
+c
 c=================================================================
 c=================================================================
@@ -579 +602 @@
      .                "ave(X)", zstophy,zout)
 c
+cIM rajout AMMA-MIP
+c
+         CALL histdef(nid_day, "dtcon", "Convection dT", "K/s",
+     .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
+     .                "ave(X)", zstophy,zout)
+c
+         CALL histdef(nid_day, "dqcon", "Convection dQ", "(kg/kg)/s",
+     .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
+     .                "ave(X)", zstophy,zout)
+c
+         CALL histdef(nid_day, "rh2m", "Relative humidity at 2m", "%",
+     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
+     .                "ave(X)", zstophy,zout)
+c
+         CALL histdef(nid_day, "qsat2m", "Saturant humidity at 2m", "%",
+     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
+     .                "ave(X)", zstophy,zout)
+c
+         CALL histdef(nid_day, "tpot", 
+     .                "Surface air potential temperature", "K",
+     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
+     .                "ave(X)", zstophy,zout)
+c
+         CALL histdef(nid_day, "tpote", 
+     .        "Surface air equivalent potential temperature", "K",
+     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
+     .                "ave(X)", zstophy,zout)
+c
       ENDIF !lev_histday.GE.5
 c=================================================================