Changeset 14239 for NEMO/trunk/tests/STATION_ASF/MY_SRC/nemogcm.F90

Timestamp:

2020-12-23T09:57:16+01:00 (3 years ago)

Author:

smasson

Message:

trunk: replace key_iomput by key_xios

File:

• NEMO/trunk/tests/STATION_ASF/MY_SRC/nemogcm.F90 (modified) (3 diffs)

NEMO/trunk/tests/STATION_ASF/MY_SRC/nemogcm.F90

@@ -34 +34 @@
    USE mppini         ! shared/distributed memory setting (mpp_init routine)
    USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)
-#if defined key_iomput
+#if defined key_xios
    USE xios           ! xIOserver
 #endif
@@ -113 +113 @@
       CALL nemo_closefile
       !
-#if defined key_iomput
+#if defined key_xios
       CALL xios_finalize  ! end mpp communications with xios
 #else
@@ -148 +148 @@
       !                             !-------------------------------------------------!
       !
-#if defined key_iomput
+#if defined key_xios
       IF( Agrif_Root() ) THEN
          CALL xios_initialize( "for_xios_mpi_id", return_comm=ilocal_comm )   ! nemo local communicator given by xios