Changeset 644 for LMDZ4/trunk/libf/phylmd/ini_histins.h

Timestamp:

May 25, 2005, 3:10:09 PM (19 years ago)

Author:

Laurent Fairhead

Message:

Synchronisation avec tous les diagnostiques de Ionela IM
Inclusion du slab ocean IM
LF

File:

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

LMDZ4/trunk/libf/phylmd/ini_histins.h

@@ -24 +24 @@
          write(*,*)'Inst ', itau_phy, zjulian
          CALL histvert(nid_ins, "presnivs", "Vertical levels", "mb",
-     .                 klev, presnivs, nvert)
+cIM    .                 klev, presnivs, nvert)
+     .                 klev, presnivs/100., nvert)
 c        call histvert(nid_ins, 'sig_s', 'Niveaux sigma','-',
 c    .              klev, znivsig, nvert)
@@ -88 +89 @@
      .                "inst(X)", zsto,zout)
 c
-         CALL histdef(nid_ins, "snow_mass", "Snow Mass", "kg/m2",
-     .                iim,jjmp1,nhori, 1,1,1, -99, 32, 
-     .                "inst(X)", zsto,zout)
+c        CALL histdef(nid_ins, "snow_mass", "Snow Mass", "kg/m2",
+c    .                iim,jjmp1,nhori, 1,1,1, -99, 32, 
+c    .                "inst(X)", zsto,zout)
 c
          CALL histdef(nid_ins, "topl", "OLR", "W/m2",
@@ -143 +144 @@
 C
            call histdef(nid_ins, "pourc_"//clnsurf(nsrf), 
-     $         "Fraction"//clnsurf(nsrf), "W/m2",  
+     $         "% "//clnsurf(nsrf), "%",  
+     $         iim,jjmp1,nhori, 1,1,1, -99, 32,
+     $         "inst(X)", zsto,zout)
+
+           call histdef(nid_ins, "fract_"//clnsurf(nsrf), 
+     $         "Fraction "//clnsurf(nsrf), "1",  
      $         iim,jjmp1,nhori, 1,1,1, -99, 32,
      $         "inst(X)", zsto,zout)
@@ -196 +202 @@
 c
 c
+cIM cf. AM 081204 BEG
+c HBTM2
+         CALL histdef(nid_ins, "s_pblh", "Boundary Layer Height", "m",
+     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
+     .                "inst(X)", zsto,zout)
+c
+         CALL histdef(nid_ins, "s_pblt", "T at Boundary Layer Height", 
+     .                "K",
+     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
+     .                "inst(X)", zsto,zout)
+c
+         CALL histdef(nid_ins, "s_lcl", "Condensation level", "m",
+     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
+     .                "inst(X)", zsto,zout)
+c
+         CALL histdef(nid_ins, "s_capCL", "Conv avlbl pot ener for 
+     .                ABL", "J/m2",
+     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
+     .                "inst(X)", zsto,zout)
+c
+         CALL histdef(nid_ins, "s_oliqCL", "Liq Water in BL", "kg/m2",
+     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
+     .                "inst(X)", zsto,zout)
+c
+         CALL histdef(nid_ins, "s_cteiCL", "Instability criteria 
+     .                (ABL)", "K",
+     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
+     .                "inst(X)", zsto,zout)
+c
+         CALL histdef(nid_ins, "s_therm", "Exces du thermique", "K",
+     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
+     .                "inst(X)", zsto,zout)
+c
+         CALL histdef(nid_ins, "s_trmb1", "deep_cape(HBTM2)", "J/m2",
+     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
+     .                "inst(X)", zsto,zout)
+c
+         CALL histdef(nid_ins, "s_trmb2", "inhibition (HBTM2)", "J/m2",
+     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
+     .                "inst(X)", zsto,zout)
+c
+         CALL histdef(nid_ins, "s_trmb3", "Point Omega (HBTM2)", "m",
+     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
+     .                "inst(X)", zsto,zout)
+c
+cIM cf. AM 081204 END
+c
 c Champs 3D:
 c