Changeset 2170 for trunk/NEMO/OPA_SRC/opa.F90

Timestamp:

2010-10-06T16:50:18+02:00 (14 years ago)

Author:

smasson

Message:

wrong cpu ranking of iom_put files (coupled mode only), see ticket:727

File:

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

trunk/NEMO/OPA_SRC/opa.F90

@@ -192 +192 @@
       !                             !--------------------------------------------!
 #if defined key_iomput
+      IF( Agrif_Root() ) THEN
 # if defined key_oasis3 || defined key_oasis4
-      IF( Agrif_Root() ) THEN
          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)
-      ENDIF
-# else
-      IF( Agrif_Root() ) THEN
-         CALL init_ioclient( ilocal_comm )       ! nemo local communicator (used or not) given by the io_server
-      ENDIF
 # 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