Changeset 1518 for LMDZ5/trunk/libf/phylmd/phys_output_mod.F90

Timestamp:

May 12, 2011, 3:32:22 PM (13 years ago)

Author:

idelkadi

Message:

Modifications des routines de convection :

• correction de bug : le champ sigd n'etait pas decompresse avant d'etre sorti de la convection.
• sortir de nouveaux champs de convection (plcl, plfc, wb)

File:

• LMDZ5/trunk/libf/phylmd/phys_output_mod.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/phys_output_mod.F90

@@ -229 +229 @@
   type(ctrl_out),save :: o_ptop         = ctrl_out((/ 1, 5, 10, 10, 10 /),'ptop')
   type(ctrl_out),save :: o_fbase        = ctrl_out((/ 1, 10, 10, 10, 10 /),'fbase')
+  type(ctrl_out),save :: o_plcl        = ctrl_out((/ 1, 10, 10, 10, 10 /),'plcl')
+  type(ctrl_out),save :: o_plfc        = ctrl_out((/ 1, 10, 10, 10, 10 /),'plfc')
+  type(ctrl_out),save :: o_wbeff        = ctrl_out((/ 1, 10, 10, 10, 10 /),'wbeff')
   type(ctrl_out),save :: o_prw          = ctrl_out((/ 1, 1, 10, 10, 10 /),'prw')
 
@@ -1004 +1007 @@
  CALL histdef2d(iff,o_ptop%flag,o_ptop%name, "Cld top pressure", "Pa")
  CALL histdef2d(iff,o_fbase%flag,o_fbase%name, "Cld base mass flux", "kg/m2/s")
+ CALL histdef2d(iff,o_plcl%flag,o_plcl%name, "Lifting Condensation Level", "hPa")
+ CALL histdef2d(iff,o_plfc%flag,o_plfc%name, "Level of Free Convection", "hPa")
+ CALL histdef2d(iff,o_wbeff%flag,o_wbeff%name, "Conv. updraft velocity at LFC", "m/s")
  CALL histdef2d(iff,o_prw%flag,o_prw%name, "Precipitable water", "kg/m2")
    type_ecri(1) = 't_max(X)'