Changeset 4619 for LMDZ6/trunk/libf/phylmd/create_etat0_limit_unstruct.F90

Timestamp:

Jul 10, 2023, 1:40:39 AM (11 months ago)

Author:

yann meurdesoif

Message:

Suppress usage of preprocessing key CPP_XIOS.
Wrapper file is used to suppress XIOS symbol when xios is not linked and not used (-io ioipsl)
The CPP_XIOS key is replaced in model by "using_xios" boolean variable to switch between IOIPSL or XIOS output.

YM

File:

• LMDZ6/trunk/libf/phylmd/create_etat0_limit_unstruct.F90 (modified) (4 diffs)

LMDZ6/trunk/libf/phylmd/create_etat0_limit_unstruct.F90

@@ -10 +10 @@
   
   SUBROUTINE init_etat0_limit_unstruct
-#ifdef CPP_XIOS
-  USE xios, ONLY: xios_set_axis_attr, xios_set_fieldgroup_attr, &
+  USE lmdz_xios, ONLY: xios_set_axis_attr, xios_set_fieldgroup_attr, &
                   xios_set_filegroup_attr, xios_set_file_attr
   USE mod_phys_lmdz_para, ONLY: is_omp_master
@@ -49 +48 @@
       ENDIF  
 
-#endif
   END SUBROUTINE init_etat0_limit_unstruct
   
   SUBROUTINE create_etat0_limit_unstruct
-#ifdef CPP_XIOS
   USE mod_grid_phy_lmdz, ONLY: grid_type, unstructured
   USE create_etat0_unstruct_mod, ONLY: create_etat0_unstruct
@@ -62 +59 @@
   USE ioipsl_getin_p_mod, ONLY: getin_p
   USE dimphy, ONLY: klon
-  USE xios, ONLY: xios_context_finalize, xios_set_current_context, &
+  USE lmdz_xios, ONLY: xios_context_finalize, xios_set_current_context, &
                   xios_finalize
   USE print_control_mod, ONLY: lunout
@@ -109 +106 @@
       ENDIF
         
-#endif
   END SUBROUTINE create_etat0_limit_unstruct