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

Timestamp:

Jan 14, 2008, 1:03:39 PM (17 years ago)

Author:

Laurent Fairhead

Message:

Bascule de la physique du LMD vers la physique avec thermiques
LF

File:

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

LMDZ4/trunk/libf/phylmd/ini_histday.h

@@ -53 +53 @@
 c Champs 2D:
 c
+         CALL histdef(nid_day, "weakinv", "Weak inversion", "",
+     s           iim,jjmp1,nhori, 1,1,1, -99, 32,
+     s           "ave(X)", zstophy,zout)
+
+         CALL histdef(nid_day, "dthmin", "dTheta mini", "K/m",
+     s           iim,jjmp1,nhori, 1,1,1, -99, 32,
+     s           "ave(X)", zstophy,zout)
+
+
          CALL histdef(nid_day, "tsol", "Surface Temperature", "K",
      .                iim,jj_nb,nhori, 1,1,1, -99, 32, 
@@ -538 +547 @@
      $         "ave(X)", zstophy,zout)
 C
+
+
+! FH Sorties specifiques pour Mellor et Yamada
+      if (iflag_pbl>1 .and. lev_histday.gt.10 ) then
+           call histdef(nid_day, "tke_"//clnsurf(nsrf), 
+     $         "Max Turb. Kinetic Energy "//clnsurf(nsrf), "-",  
+     $         iim,jj_nb,nhori, klev,1,klev,nvert, 32,
+     $         "ave(X)", zstophy,zout)
+
+           call histdef(nid_day, "tke_max_"//clnsurf(nsrf), 
+     $         "Max Turb. Kinetic Energy "//clnsurf(nsrf), "-",  
+     $         iim,jj_nb,nhori, klev,1,klev,nvert, 32,
+     $         "t_max(X)", zstophy,zout)
+      endif     
+
+C
          END DO 
 C