Changeset 3177 for LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/phys_output_ctrlout_mod.F90

Timestamp:

Feb 2, 2018, 11:50:14 AM (7 years ago)

Author:

Laurent Fairhead

Message:

Inclusion of changesets 3167 and 3171 from trunk into branch

File:

• LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/phys_output_ctrlout_mod.F90 (modified) (2 diffs)

LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/phys_output_ctrlout_mod.F90

@@ +1 @@
+!
+! $Id$
+!
 MODULE phys_output_ctrlout_mod
 
@@ -1505 +1508 @@
   TYPE(ctrl_out), SAVE :: o_mc = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11, 11/), &
     'mc', 'Convective mass flux', 'kg/m2/s', (/ ('', i=1, 10) /))
+  TYPE(ctrl_out), SAVE :: o_ftime_deepcv = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
+    'ftime_deepcv', 'Fraction of time deep convection Occurs', ' ', (/ ('', i=1, 10) /))
   TYPE(ctrl_out), SAVE :: o_ftime_con = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
-    'ftime_con', 'Fraction of time convection Occurs', ' ',                 &
-      (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', & 
-         'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /))
+    'ftime_con', 'Fraction of time convection Occurs', ' ', (/ ('', i=1, 10) /))
+!!jyg    'ftime_con', 'Fraction of time convection Occurs', ' ',                 &
+!!jyg      (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', & 
+!!jyg         'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /))
   TYPE(ctrl_out), SAVE :: o_dtdyn = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
     'dtdyn', 'Dynamics dT', 'K/s', (/ ('', i=1, 10) /))