Changeset 3754 for LMDZ6/branches/Optimisation_LMDZ/libf/phylmd/phys_output_write_xios_mod.f90

Timestamp:

Jul 8, 2020, 7:49:08 PM (4 years ago)

Author:

adurocher

Message:

Fix conditional compilation to compile without XIOS

File:

• LMDZ6/branches/Optimisation_LMDZ/libf/phylmd/phys_output_write_xios_mod.f90 (modified) (2 diffs)

LMDZ6/branches/Optimisation_LMDZ/libf/phylmd/phys_output_write_xios_mod.f90

@@ -326 +326 @@
     USE print_control_mod, ONLY: prt_level, lunout
 
-    USE xios
+    USE xios_interface, ONLY : CPP_XIOS_defined, xios_fieldgroup, xios_field, xios_get_handle, xios_add_child, xios_set_attr, xios_update_calendar
     USE wxios, ONLY: wxios_closedef, missing_val, wxios_set_context
     USE vertical_layers_mod, ONLY: presnivs
@@ -382 +382 @@
     REAL, DIMENSION(klon)      :: zrho, zt
 
+    if( .not. CPP_XIOS_defined ) call abort_physic("phys_output_write_xios", "This io backend can only be used when LMDZ is compiled with XIOS support",1 )
     if( .not. ok_all_xml ) call abort_physic("phys_output_write_xios", "This io backend only supports ok_all_xml = .true.", 1)