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

Timestamp:

Apr 22, 2010, 12:46:16 PM (14 years ago)

Author:

idelkadi

Message:

• Rajout des cles logiques pour activer les sorties COSP par frequence
• Reglages des niveaux de sorties pour les variables CFMIP

File:

• LMDZ4/trunk/libf/phylmd/phys_output_mod.F90 (modified) (1 diff)

LMDZ4/trunk/libf/phylmd/phys_output_mod.F90

@@ -470 +470 @@
   type(ctrl_out),save :: o_dnwd         = ctrl_out((/ 4, 10, 10, 10, 10 /),'dnwd')
   type(ctrl_out),save :: o_dnwd0        = ctrl_out((/ 4, 10, 10, 10, 10 /),'dnwd0')
-  type(ctrl_out),save :: o_mc           = ctrl_out((/ 4, 10, 10, 10, 10 /),'mc')
+  type(ctrl_out),save :: o_mc           = ctrl_out((/ 4, 5, 10, 10, 10 /),'mc')
   type(ctrl_out),save :: o_ftime_con    = ctrl_out((/ 4, 10, 10, 10, 10 /),'ftime_con')
   type(ctrl_out),save :: o_dtdyn        = ctrl_out((/ 4, 10, 10, 10, 1 /),'dtdyn')