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

Timestamp:

Jun 12, 2015, 6:44:36 AM (9 years ago)

Author:

fhourdin

Message:

Correction du seuil sur la probabilite de non declenchement.
Changement de priorite de sortie sur deux variables.

File:

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

LMDZ5/trunk/libf/phylmd/phys_output_ctrlout_mod.F90

@@ -1085 +1085 @@
   TYPE(ctrl_out), SAVE :: o_wake_omg = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11 /), &
     'wake_omg', 'wake_omg', ' ', (/ ('', i=1, 9) /))
-  TYPE(ctrl_out), SAVE :: o_wdtrainA = ctrl_out((/ 4, 1, 10,  4,  1, 10, 11, 11, 110 /), &
+  TYPE(ctrl_out), SAVE :: o_wdtrainA = ctrl_out((/ 4, 5, 10,  4,  1, 10, 11, 11, 110 /), &
     'wdtrainA', 'precipitation from AA', '-', (/ ('', i=1, 9) /))
-  TYPE(ctrl_out), SAVE :: o_wdtrainM = ctrl_out((/ 4, 1, 10,  4,  1, 10, 11, 11, 110 /), &
+  TYPE(ctrl_out), SAVE :: o_wdtrainM = ctrl_out((/ 4, 5, 10,  4,  1, 10, 11, 11, 110 /), &
     'wdtrainM', 'precipitation from mixture', '-', (/ ('', i=1, 9) /))
   TYPE(ctrl_out), SAVE :: o_Vprecip = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /), &