Changeset 1301 for trunk/LMDZ.VENUS/libf/phyvenus/ini_histmth.h

Timestamp:

Jun 26, 2014, 12:25:31 PM (11 years ago)

Author:

slebonnois

Message:

SL: many bug corrections in phyvenus, some cleaning, and a new ksi matrix format for Venus IR

File:

• trunk/LMDZ.VENUS/libf/phyvenus/ini_histmth.h (modified) (1 diff)

trunk/LMDZ.VENUS/libf/phyvenus/ini_histmth.h

@@ -151 +151 @@
      .                32, "ave(X)", zsto,zout)
 c
-         CALL histdef(nid_mth, "fluxvdf", "PBL net flux","W/m2",
-     .                iim,jj_nb,nhori, klev,1,klev,nvert,
-     .                32, "ave(X)", zsto,zout)
-c
-         CALL histdef(nid_mth, "fluxdyn", "Dyn. net flux","W/m2",
-     .                iim,jj_nb,nhori, klev,1,klev,nvert,
-     .                32, "ave(X)", zsto,zout)
-c
-         CALL histdef(nid_mth, "fluxajs", "Dry adj. net flux","W/m2",
-     .                iim,jj_nb,nhori, klev,1,klev,nvert,
-     .                32, "ave(X)", zsto,zout)
+c        CALL histdef(nid_mth, "fluxvdf", "PBL net flux","W/m2",
+c    .                iim,jj_nb,nhori, klev,1,klev,nvert,
+c    .                32, "ave(X)", zsto,zout)
+c
+c        CALL histdef(nid_mth, "fluxdyn", "Dyn. net flux","W/m2",
+c    .                iim,jj_nb,nhori, klev,1,klev,nvert,
+c    .                32, "ave(X)", zsto,zout)
+c
+c        CALL histdef(nid_mth, "fluxajs", "Dry adj. net flux","W/m2",
+c    .                iim,jj_nb,nhori, klev,1,klev,nvert,
+c    .                32, "ave(X)", zsto,zout)
 c
 c        CALL histdef(nid_mth, "fluxec", "Cin. net flux","W/m2",