Changeset 1100 for LMDZ4/trunk/libf/phylmd/phys_output_mod.F90

Timestamp:

Feb 16, 2009, 7:01:12 PM (15 years ago)

Author:

musat

Message:

Homogeneisation flags sorties convection + poches froides
IM

File:

• LMDZ4/trunk/libf/phylmd/phys_output_mod.F90 (modified) (6 diffs)

LMDZ4/trunk/libf/phylmd/phys_output_mod.F90

@@ -584 +584 @@
  CALL histdef2d(iff,flag_fbase,"fbase","Cld base mass flux","kg/m2/s")
  CALL histdef2d(iff,flag_prw,"prw","Precipitable water","kg/m2")
+ CALL histdef2d(iff,flag_cape_max,"cape_max","CAPE max.", "J/kg")
+ CALL histdef3d(iff,flag_upwd,"upwd","saturated updraft", "kg/m2/s")
+ CALL histdef3d(iff,flag_Ma,"Ma","undilute adiab updraft","kg/m2/s")
+ CALL histdef3d(iff,flag_dnwd,"dnwd","saturated downdraft","kg/m2/s")
+ CALL histdef3d(iff,flag_dnwd0,"dnwd0","unsat. downdraft", "kg/m2/s")
      ENDIF !iflag_con .GE. 3
 
@@ -632 +637 @@
       CALL histdef2d(iff,flag_slab_bils, "slab_wbils_oce","Bilan au sol sur ocean slab", "W/m2")
 
- IF (iflag_con.GE.3) THEN
- CALL histdef2d(iff,flag_ale_bl,"ale_bl","ALE BL","m2/s2") 
- CALL histdef2d(iff,flag_alp_bl,"alp_bl","ALP BL","m2/s2") 
- CALL histdef2d(iff,flag_ale_wk,"ale_wk","ALE WK","m2/s2") 
- CALL histdef2d(iff,flag_alp_wk,"alp_wk","ALP WK","m2/s2") 
-
+ IF (iflag_con.EQ.3) THEN
  CALL histdef2d(iff,flag_ale,"ale","ALE","m2/s2")
  CALL histdef2d(iff,flag_alp,"alp","ALP","W/m2")
  CALL histdef2d(iff,flag_cin,"cin","Convective INhibition","m2/s2")
- CALL histdef2d(iff,flag_wape,"WAPE","WAPE","m2/s2")
- ENDIF !(iflag_con.GE.3)
+ IF (iflag_coupl.EQ.1) THEN
+  CALL histdef2d(iff,flag_ale_bl,"ale_bl","ALE BL","m2/s2") 
+  CALL histdef2d(iff,flag_alp_bl,"alp_bl","ALP BL","m2/s2") 
+ ENDIF !iflag_coupl.EQ.1
+ IF (iflag_wake.EQ.1) THEN
+  CALL histdef2d(iff,flag_ale_wk,"ale_wk","ALE WK","m2/s2") 
+  CALL histdef2d(iff,flag_alp_wk,"alp_wk","ALP WK","m2/s2") 
+  CALL histdef2d(iff,flag_wape,"WAPE","WAPE","m2/s2")
+  CALL histdef2d(iff,flag_wake_h,"wake_h","wake_h", "-")
+  CALL histdef2d(iff,flag_wake_s,"wake_s","wake_s", "-")
+  CALL histdef3d(iff,flag_dtwak,"dtwak","Wake dT","K/s")
+  CALL histdef3d(iff,flag_dqwak,"dqwak","Wake dQ","(kg/kg)/s")
+  CALL histdef3d(iff,flag_wake_deltat,"wake_deltat","wake_deltat", " ")
+  CALL histdef3d(iff,flag_wake_deltaq,"wake_deltaq","wake_deltaq", " ")
+  CALL histdef3d(iff,flag_wake_omg,"wake_omg","wake_omg", " ")
+  CALL histdef3d(iff,flag_ftd,"ftd","tend temp due aux descentes precip","-")
+  CALL histdef3d(iff,flag_fqd,"fqd","tend vap eau due aux descentes precip","-")
+ ENDIF !iflag_wake.EQ.1
+  CALL histdef3d(iff,flag_Vprecip,"Vprecip","precipitation vertical profile","-")
+ ENDIF !(iflag_con.EQ.3)
 
  CALL histdef2d(iff,flag_weakinv, "weakinv","Weak inversion", "-")
@@ -654 +672 @@
  CALL histdef2d(iff,flag_LWdownOR,"LWdownOR","Sfce incident LW radiation OR","W/m2")
  CALL histdef2d(iff,flag_snowl,"snowl","Solid Large-scale Precip.","kg/(m2*s)")
- IF (iflag_con.GE.3) THEN
- CALL histdef2d(iff,flag_cape_max,"cape_max","CAPE max.", "J/kg")
- ENDIF !(iflag_con.GE.3) 
  CALL histdef2d(iff,flag_solldown,"solldown","Down. IR rad. at surface","W/m2")
  CALL histdef2d(iff,flag_dtsvdfo,"dtsvdfo","Boundary-layer dTs(o)","K/s")
@@ -679 +694 @@
  CALL histdef3d(iff,flag_rhum,"rhum","Relative humidity","-")
  CALL histdef3d(iff,flag_ozone,"ozone","Ozone concentration", "ppmv")
- IF(iflag_con.GE.3) THEN
-  CALL histdef3d(iff,flag_upwd,"upwd","saturated updraft", "kg/m2/s")
- ENDIF !iflag_con.GE.3
  CALL histdef3d(iff,flag_dtphy,"dtphy","Physics dT","K/s")
  CALL histdef3d(iff,flag_dqphy,"dqphy","Physics dQ", "(kg/kg)/s")
@@ -701 +713 @@
  CALL histdef3d(iff,flag_kz_max,"kz_max","Kz melange max","m2/s" )
  CALL histdef3d(iff,flag_clwcon,"clwcon","Convective Cloud Liquid water content", "kg/kg") 
- IF(iflag_con.GE.3) THEN
- CALL histdef3d(iff,flag_Ma,"Ma","undilute adiab updraft","kg/m2/s")
- CALL histdef3d(iff,flag_dnwd,"dnwd","saturated downdraft","kg/m2/s")
- CALL histdef3d(iff,flag_dnwd0,"dnwd0","unsat. downdraft", "kg/m2/s")
- ENDIF !(iflag_con.GE.3) 
  CALL histdef3d(iff,flag_dtdyn,"dtdyn","Dynamics dT","K/s")
  CALL histdef3d(iff,flag_dqdyn,"dqdyn","Dynamics dQ", "(kg/kg)/s")
@@ -713 +720 @@
  CALL histdef3d(iff,flag_ducon,"ducon","Convection du","m/s2")
  CALL histdef3d(iff,flag_dqcon,"dqcon","Convection dQ", "(kg/kg)/s")
- IF(iflag_con.GE.3) THEN
- IF (iflag_wake == 1) THEN
-   CALL histdef2d(iff,flag_wake_h,"wake_h","wake_h", "-")
-   CALL histdef2d(iff,flag_wake_s,"wake_s","wake_s", "-")
-   CALL histdef3d(iff,flag_dtwak,"dtwak","Wake dT","K/s")
-   CALL histdef3d(iff,flag_dqwak,"dqwak","Wake dQ","(kg/kg)/s")
-   CALL histdef3d(iff,flag_wake_deltat,"wake_deltat","wake_deltat", " ")
-   CALL histdef3d(iff,flag_wake_deltaq,"wake_deltaq","wake_deltaq", " ")
-   CALL histdef3d(iff,flag_wake_omg,"wake_omg","wake_omg", " ")
- ENDIF
-   CALL histdef3d(iff,flag_Vprecip,"Vprecip","precipitation vertical profile","-")
-   CALL histdef3d(iff,flag_ftd,"ftd","tend temp due aux descentes precip","-")
-   CALL histdef3d(iff,flag_fqd,"fqd","tend vap eau due aux descentes precip","-")
- ENDIF !(iflag_con.GE.3)
 
  CALL histdef3d(iff,flag_dtlsc,"dtlsc","Condensation dT", "K/s")