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

Timestamp:

Jul 10, 2023, 1:40:39 AM (12 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_unstruct.F90 (modified) (4 diffs)

LMDZ6/trunk/libf/phylmd/create_etat0_unstruct.F90

@@ -9 +9 @@
   
   SUBROUTINE init_create_etat0_unstruct
-#ifdef CPP_XIOS
-  USE xios
+  USE lmdz_xios
   USE netcdf
   USE mod_phys_lmdz_para
@@ -39 +38 @@
     ENDIF
 
-#endif
-  
   END SUBROUTINE init_create_etat0_unstruct
   
@@ -46 +43 @@
   SUBROUTINE create_etat0_unstruct
   USE dimphy
-#ifdef CPP_XIOS
-  USE xios
+  USE lmdz_xios
   USE infotrac_phy
   USE fonte_neige_mod
@@ -269 +265 @@
     CALL phyredem( "startphy.nc" )
 
-#endif
   END SUBROUTINE create_etat0_unstruct