Changeset 14239 for NEMO/trunk/tests/STATION_ASF/MY_SRC

Timestamp:

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

Author:

smasson

Message:

trunk: replace key_iomput by key_xios

Location:

NEMO/trunk/tests/STATION_ASF/MY_SRC

Files:

• diawri.F90 (modified) (1 diff)
• nemogcm.F90 (modified) (3 diffs)
• step_c1d.F90 (modified) (1 diff)

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

@@ -63 +63 @@
 CONTAINS
 
-#if defined key_iomput
-   !!----------------------------------------------------------------------
-   !!   'key_iomput'                                        use IOM library
+#if defined key_xios
+   !!----------------------------------------------------------------------
+   !!   'key_xios'                                        use IOM library
    !!----------------------------------------------------------------------
    INTEGER FUNCTION dia_wri_alloc()

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

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

@@ -79 +79 @@
       IF( lrst_oce       )   CALL rst_write( kstp, Nbb, Nnn )  ! write output ocean restart file
       !
-#if defined key_iomput
+#if defined key_xios
       IF( kstp == nitend .OR. nstop > 0 )   CALL xios_context_finalize()   ! needed for XIOS
       !