Changeset 1895 for LMDZ5/trunk/libf/phylmd

Timestamp:

Oct 23, 2013, 2:49:46 PM (11 years ago)

Author:

idelkadi

Message:

Correction sur la sortie du chmaps wind10max (type d'operation : t_max(X) au lieu de ave(X))

File:

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

LMDZ5/trunk/libf/phylmd/phys_output_ctrlout_mod.F90

@@ -70 +70 @@
     'wind10m', '10-m wind speed', 'm/s', (/ ('', i=1, 9) /))
   TYPE(ctrl_out), SAVE :: o_wind10max = ctrl_out((/ 10, 1, 10, 10, 10, 10, 11, 11, 11 /), &
-    'wind10max', '10m wind speed max', 'm/s', (/ ('', i=1, 9) /))
+    'wind10max', '10m wind speed max', 'm/s', &
+    (/ "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)", & 
+     "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)" /))                                                                                                                                           
   TYPE(ctrl_out), SAVE :: o_sicf = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 /), &
     'sicf', 'Sea-ice fraction', '-', (/ ('', i=1, 9) /))