Changeset 14239 for NEMO/trunk/src/SAS/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/src/SAS/nemogcm.F90 (modified) (3 diffs)

NEMO/trunk/src/SAS/nemogcm.F90

@@ -42 +42 @@
    USE lbcnfd  , ONLY : isendto, nsndto ! Setup of north fold exchanges
    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
@@ -185 +185 @@
       CALL nemo_closefile
       !
-#if defined key_iomput
+#if defined key_xios
                                     CALL xios_finalize  ! end mpp communications with xios
       IF( lk_oasis     )            CALL cpl_finalize   ! end coupling and mpp communications with OASIS
@@ -228 +228 @@
       !                             !-------------------------------------------------!
       !
-#if defined key_iomput
+#if defined key_xios
       IF( Agrif_Root() ) THEN
          IF( lk_oasis ) THEN