Changeset 14239 for NEMO/trunk/src/OFF

Timestamp:

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

Author:

smasson

Message:

trunk: replace key_iomput by key_xios

File:

• NEMO/trunk/src/OFF/nemogcm.F90 (modified) (4 diffs)

NEMO/trunk/src/OFF/nemogcm.F90

@@ -57 +57 @@
    USE mppini         ! shared/distributed memory setting (mpp_init routine)
    USE lib_mpp        ! distributed memory computing
-#if defined key_iomput
+#if defined key_xios
    USE xios           ! xIOserver
 #endif 
@@ -175 +175 @@
       END DO
       !
-#if defined key_iomput
+#if defined key_xios
       CALL iom_context_finalize( cxios_context ) ! needed for XIOS+AGRIF
 #endif
@@ -194 +194 @@
       CALL nemo_closefile
       !
-#if defined key_iomput
+#if defined key_xios
                      CALL xios_finalize   ! end mpp communications with xios
 #else
@@ -230 +230 @@
       !                             !-------------------------------------------------!
       !
-#if defined key_iomput
+#if defined key_xios
       CALL xios_initialize( "for_xios_mpi_id", return_comm=ilocal_comm )   ! nemo local communicator given by xios
       CALL mpp_start( ilocal_comm )