Changeset 2200 for branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/opa.F90

Timestamp:

2010-10-11T13:43:18+02:00 (14 years ago)

Author:

smasson

Message:

merge trunk rev 2198 into DEV_r2106_LOCEAN2010

File:

• branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/opa.F90 (modified) (1 diff)

branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/opa.F90

@@ -175 +175 @@
       !                             !--------------------------------------------!
 #if defined key_iomput
+      IF( Agrif_Root() ) THEN
 # if defined key_oasis3 || defined key_oasis4
-      CALL cpl_prism_init( ilocal_comm )      ! nemo local communicator given by oasis
-      CALL init_ioclient()                    ! io_server will get its communicators (if needed) from oasis (we don't see it)
-# else
-      CALL init_ioclient( ilocal_comm )       ! nemo local communicator (used or not) given by the io_server
+         CALL cpl_prism_init( ilocal_comm )   ! nemo local communicator given by oasis
 # endif
+         CALL  init_ioclient( ilocal_comm )   ! exchange io_server nemo local communicator with the io_server
+      ENDIF
       narea = mynode( cltxt, ilocal_comm )    ! Nodes selection
-
 #else
 # if defined key_oasis3 || defined key_oasis4