Changeset 470 for LMDZ.3.3/branches/rel-LF/libf/phylmd

Timestamp:

Sep 5, 2003, 5:10:02 PM (21 years ago)

Author:

lmdzadmin

Message:

ENDIF !iflag_con.EQ.3 mal place <=> pb avec Tiedtke

File:

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

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

@@ -149 +149 @@
      .                "ave(X)", zsto,zout)
 c
-         CALL histdef(nid_mth, "frtu", "Zonal wind stress", "Pa",
-     .                iim,jjmp1,nhori, 1,1,1, -99, 32, 
-     .                "ave(X)", zsto,zout)
-c
-         CALL histdef(nid_mth, "frtv", "Meridional wind stress", "Pa",
-     .                iim,jjmp1,nhori, 1,1,1, -99, 32, 
-     .                "ave(X)", zsto,zout)
+c          CALL histdef(nid_mth, "frtu", "Zonal wind stress", "Pa",
+c    .                iim,jjmp1,nhori, 1,1,1, -99, 32, 
+c    .                "ave(X)", zsto,zout)
+c
+c        CALL histdef(nid_mth, "frtv", "Meridional wind stress", "Pa",
+c    .                iim,jjmp1,nhori, 1,1,1, -99, 32, 
+c    .                "ave(X)", zsto,zout)
 cIM cf JLD
          CALL histdef(nid_mth, "ffonte","Thermal flux for snow melting",
@@ -228 +228 @@
          END DO
 C
-         CALL histdef(nid_mth, "sicf", "Sea-ice fraction", "-",
-     .                iim,jjmp1,nhori, 1,1,1, -99, 32, 
-     .                "ave(X)", zsto,zout)
+c        CALL histdef(nid_mth, "sicf", "Sea-ice fraction", "-",
+c    .                iim,jjmp1,nhori, 1,1,1, -99, 32, 
+c    .                "ave(X)", zsto,zout)
 c
          CALL histdef(nid_mth, "albs", "Surface albedo", "-",
@@ -369 +369 @@
      .                "ave(X)", zsto,zout)
 c
-         CALL histdef(nid_mth, "ducon", "Convection du", "m/s2",
-     .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
-     .                "ave(X)", zsto,zout)
+c        CALL histdef(nid_mth, "ducon", "Convection du", "m/s2",
+c    .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
+c    .                "ave(X)", zsto,zout)
 c
          CALL histdef(nid_mth, "dqcon", "Convection dQ", "Kg/Kg/s",
@@ -539 +539 @@
      .                iim,jjmp1,nhori, 1,1,1,-99,
      .                32, "ave(X)", zsto,zout)
+      ENDIF
 c
          CALL histdef(nid_mth, "prw", "Precipitable water", "kg/m2",
@@ -579 +580 @@
 
 
-      ENDIF
+cIM     ENDIF
 c34EK
          CALL histend(nid_mth)