Changeset 3769 for branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/SAS_SRC/nemogcm.F90

Timestamp:

2013-02-01T15:56:10+01:00 (11 years ago)

Author:

smasson

Message:

dev_MERGE_2012: xios+agrif+oasis compliant

File:

• branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/SAS_SRC/nemogcm.F90 (modified) (4 diffs)

branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/SAS_SRC/nemogcm.F90

@@ -51 +51 @@
    USE lib_mpp         ! distributed memory computing
 #if defined key_iomput
-   USE mod_ioclient
+   USE xios
 #endif
    USE sbcssm
@@ -135 +135 @@
       !
       CALL nemo_closefile
+#if defined key_iomput
+      CALL xios_finalize                ! end mpp communications with xios
+#else
       IF( lk_mpp )   CALL mppstop       ! end mpp communications
+#endif
       !
    END SUBROUTINE nemo_gcm
@@ -167 +171 @@
 #if defined key_iomput
       IF( Agrif_Root() ) THEN
-         CALL  init_ioclient( ilocal_comm )                 ! exchange io_server nemo local communicator with the io_server
+         CALL  xios_initialize( "nemo",return_comm=ilocal_comm )
       ENDIF
       narea = mynode( cltxt, numnam, nstop, ilocal_comm )   ! Nodes selection
@@ -258 +262 @@
                             CALL sbc_init   ! Forcings : surface module 
       
-                            CALL iom_init   ! iom_put initialization
       IF(lwp) WRITE(numout,*) 'Euler time step switch is ', neuler
       !