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

Timestamp:

Nov 3, 2008, 11:57:59 AM (16 years ago)

Author:

lmdzadmin

Message:

Corrections sorties KE sous flag iflag_con + choix Tiedtke / sorties ISCCP - incompatibles
IM

File:

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

LMDZ4/trunk/libf/phylmd/phys_output_mod.F90

@@ -600 +600 @@
       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") 
@@ -609 +610 @@
  CALL histdef2d(iff,flag_cin,"cin","Convective INhibition","m2/s2")
  CALL histdef2d(iff,flag_wape,"WAPE","WAPE","m2/s2")
+ ENDIF !(iflag_con.GE.3)
 
  CALL histdef2d(iff,flag_weakinv, "weakinv","Weak inversion", "-")
@@ -623 +625 @@
  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")
@@ -646 +650 @@
  CALL histdef3d(iff,flag_rhum,"rhum","Relative humidity","-")
  CALL histdef3d(iff,flag_ozone,"ozone","Ozone concentration", "ppmv")
- CALL histdef3d(iff,flag_upwd,"upwd","saturated updraft", "kg/m2/s")
+ 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")
@@ -666 +672 @@
  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")
@@ -674 +682 @@
  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 histdef3d(iff,flag_dtwak,"dtwak","Wake dT","K/s")
    CALL histdef3d(iff,flag_dqwak,"dqwak","Wake dQ","(kg/kg)/s")
- endif
+ ENDIF
+ ENDIF !(iflag_con.GE.3)
  CALL histdef3d(iff,flag_dtlsc,"dtlsc","Condensation dT", "K/s")
  CALL histdef3d(iff,flag_dtlschr,"dtlschr","Large-scale condensational heating rate","K/s")