Changeset 2002 for LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90

Timestamp:

Apr 4, 2014, 2:39:54 PM (10 years ago)

Author:

Ehouarn Millour

Message:

Further cleanup concerning XIOS (mainly about axes being defined as axes and not as groups of axes).
EM

File:

• LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90

@@ -230 +230 @@
 #ifdef CPP_XIOS
     ! ug Pour les sorties XIOS
-    USE wxios, only: wxios_update_calendar, wxios_closedef
+    USE xios, ONLY: xios_update_calendar
+    USE wxios, only: wxios_closedef
 #endif
     USE phys_cal_mod, only : mth_len
@@ -292 +293 @@
        IF (vars_defined) THEN
           if (prt_level >= 10) then
-             write(lunout,*)"phys_output_write: call wxios_update_calendar, itau_w=",itau_w
+             write(lunout,*)"phys_output_write: call xios_update_calendar, itau_w=",itau_w
           endif
-          CALL wxios_update_calendar(itau_w)
+          CALL xios_update_calendar(itau_w)
        END IF
        !$OMP END MASTER