Changeset 1986 for LMDZ5/trunk/libf/cosp/cosp_output_mod.F90

Timestamp:

Feb 19, 2014, 3:51:00 PM (10 years ago)

Author:

jghattas

Message:

cosp : corrections for compiling with XIOS. Runnig with cosp not tested.
xml : corrected error in field ozone_daylight. Error seen when read_climoz=2.

File:

• LMDZ5/trunk/libf/cosp/cosp_output_mod.F90 (modified) (1 diff)

LMDZ5/trunk/libf/cosp/cosp_output_mod.F90

@@ -205 +205 @@
     ! ug déclaration des axes verticaux de chaque fichier:
     if (use_vgrid) then
-      CALL wxios_add_vaxis("height", cosp_nidfiles(iff), Nlevout, vgrid%z)
+      CALL wxios_add_vaxis("height", cosp_outfilenames(iff), Nlevout, vgrid%z)
     else
-      CALL wxios_add_vaxis("presnivs", cosp_nidfiles(iff), Nlevout, presnivs)
+      CALL wxios_add_vaxis("presnivs", cosp_outfilenames(iff), Nlevout, presnivs)
     endif
-    CALL wxios_add_vaxis("height_mlev", cosp_nidfiles(iff), Nlevlmdz, vgrid%mz)
-    CALL wxios_add_vaxis("sza", cosp_nidfiles(iff), PARASOL_NREFL, PARASOL_SZA)
-    CALL wxios_add_vaxis("pressure2", cosp_nidfiles(iff), 7, ISCCP_PC)
-    CALL wxios_add_vaxis("column", cosp_nidfiles(iff), Ncolumns, column_ax)
+    CALL wxios_add_vaxis("height_mlev", cosp_outfilenames(iff), Nlevlmdz, vgrid%mz)
+    CALL wxios_add_vaxis("sza", cosp_outfilenames(iff), PARASOL_NREFL, PARASOL_SZA)
+    CALL wxios_add_vaxis("pressure2", cosp_outfilenames(iff), 7, ISCCP_PC)
+    CALL wxios_add_vaxis("column", cosp_outfilenames(iff), Ncolumns, column_ax)
 #endif