Changeset 879 for LMDZ4/trunk/libf/phylmd/ini_histmth.h

Timestamp:

Jan 17, 2008, 10:20:32 PM (16 years ago)

Author:

Laurent Fairhead

Message:

Suite de la bascule vers une physique avec thermiques, nouvelle convection, poche froide ...
LF

File:

• LMDZ4/trunk/libf/phylmd/ini_histmth.h (modified) (5 diffs)

LMDZ4/trunk/libf/phylmd/ini_histmth.h

@@ -34 +34 @@
      .                 klev, presnivs/100., nvert)
 c
+         CALL histdef(nid_mth, "dtthe", "Dry adjust. dT", "K/s",
+     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
+     .                "ave(X)", zstophy,zout)
+
+         CALL histdef(nid_mth, "dtcon", "Convection dT", "K/s",
+     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
+     .                "ave(X)", zstophy,zout)
+c
       IF(type_run.EQ."CLIM".OR.type_run.EQ."ENSP") THEN
 c
@@ -72 +80 @@
 c
 c ENSEMBLES BEG
-         CALL histdef(nid_mth, "t2m_min", "Temp. 2m min.",
-     .                "K",
-     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
-     .                t2mincels, zstophy,zout)
-c
-         CALL histdef(nid_mth, "t2m_max", "Temp. 2m max.",
-     .                "K",
-     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
-     .                t2maxcels, zstophy,zout)
+c        CALL histdef(nid_mth, "t2m_min", "Temp. 2m min.",
+c    .                "K",
+c    .                iim,jj_nb,nhori, 1,1,1, -99, 32,
+c    .                t2mincels, zstophy,zout)
+c
+c        CALL histdef(nid_mth, "t2m_max", "Temp. 2m max.",
+c    .                "K",
+c    .                iim,jj_nb,nhori, 1,1,1, -99, 32,
+c    .                t2maxcels, zstophy,zout)
 c
 c        CALL histdef(nid_mth, "tsoil", "Sfce soil Temperature",
@@ -122 +130 @@
       endif
 c
-         CALL histdef(nid_mth, "ndayrain", 
-     .                "Number of day with rain (liq+sol)", "-",
-     .                iim,jj_nb,nhori, 1,1,1, -99, 32, 
-     .                "inst(X)", zstomth,zout)
+c        CALL histdef(nid_mth, "ndayrain", 
+c    .                "Number of day with rain (liq+sol)", "-",
+c    .                iim,jj_nb,nhori, 1,1,1, -99, 32, 
+c    .                "inst(X)", zstomth,zout)
 c
          CALL histdef(nid_mth, "precip", "Precipitation Totale liq+sol", 
@@ -990 +998 @@
      .                "ave(X)", zstophy,zout)
 c
-          CALL histdef(nid_mth, "dtcon","dtcon","K/s",
-     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
-     .                "ave(X)", zstophy,zout)
-c
-         CALL histdef(nid_mth, "dtthe", "Dry adjust. dT", "K/s",
-     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
-     .                "ave(X)", zstophy,zout)
-
          CALL histdef(nid_mth,"dqthe","Dry adjust. dQ","(kg/kg)/s",
      .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
@@ -1083 +1083 @@
      .                "ave(X)", zstorad,zout)
 c
-         CALL histdef(nid_mth, "t2m_min", "Temp. 2m min.",
-     .                "K",
-     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
-     .                t2mincels, zstophy,zout)
-c
-         CALL histdef(nid_mth, "t2m_max", "Temp. 2m max.",
-     .                "K",
-     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
-     .                t2maxcels, zstophy,zout)
+c        CALL histdef(nid_mth, "t2m_min", "Temp. 2m min.",
+c    .                "K",
+c    .                iim,jj_nb,nhori, 1,1,1, -99, 32,
+c    .                t2mincels, zstophy,zout)
+c
+c        CALL histdef(nid_mth, "t2m_max", "Temp. 2m max.",
+c    .                "K",
+c    .                iim,jj_nb,nhori, 1,1,1, -99, 32,
+c    .                t2maxcels, zstophy,zout)
 c
 c        CALL histdef(nid_mth, "tsoil", "Sfce soil Temperature",