Changeset 2958 for LMDZ5/trunk/libf/phylmd/phys_output_ctrlout_mod.F90

Timestamp:

Jul 18, 2017, 2:21:01 PM (7 years ago)

Author:

jbmadeleine

Message:

Added new outputs to cloudth_vert (level 10):
s_th, Thermal plume saturation deficit, kg/kg
s_env, Environment saturation deficit, kg/kg
sigma_th, Thermal plume gauss variance, kg/kg
sigma_env, Environment gauss variance, kg/kg

File:

• LMDZ5/trunk/libf/phylmd/phys_output_ctrlout_mod.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/phys_output_ctrlout_mod.F90

@@ -1571 +1571 @@
   TYPE(ctrl_out), SAVE :: o_a_th = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
     'a_th', "Thermal plume fraction", "", (/ ('', i=1, 10) /))
+
+  TYPE(ctrl_out), SAVE :: o_cloudth_sth = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
+    's_th', "Thermal plume saturation deficit", "kg/kg", (/ ('', i=1, 10) /))
+  TYPE(ctrl_out), SAVE :: o_cloudth_senv = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
+    's_env', "Environment saturation deficit", "kg/kg", (/ ('', i=1, 10) /))
+  TYPE(ctrl_out), SAVE :: o_cloudth_sigmath = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
+    'sigma_th', "Thermal plume gauss variance", "kg/kg", (/ ('', i=1, 10) /))
+  TYPE(ctrl_out), SAVE :: o_cloudth_sigmaenv = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
+    'sigma_env', "Environment gauss variance", "kg/kg", (/ ('', i=1, 10) /))
+
   TYPE(ctrl_out), SAVE :: o_d_th = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
     'd_th', 'Thermal plume detrainment', 'K/s', (/ ('', i=1, 10) /))