Changeset 2170


Ignore:
Timestamp:
2010-10-06T16:50:18+02:00 (11 years ago)
Author:
smasson
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/opa.F90

    r1793 r2170  
    192192      !                             !--------------------------------------------! 
    193193#if defined key_iomput 
     194      IF( Agrif_Root() ) THEN 
    194195# if defined key_oasis3 || defined key_oasis4 
    195       IF( Agrif_Root() ) THEN 
    196196         CALL cpl_prism_init( ilocal_comm )      ! nemo local communicator given by oasis 
    197          CALL init_ioclient()                    ! io_server will get its communicators (if needed) from oasis (we don't see it) 
    198       ENDIF 
    199 # else 
    200       IF( Agrif_Root() ) THEN 
    201          CALL init_ioclient( ilocal_comm )       ! nemo local communicator (used or not) given by the io_server 
    202       ENDIF 
    203197# endif 
     198         CALL  init_ioclient( ilocal_comm )      ! exchange io_server nemo local communicator with the io_server 
     199      ENDIF 
    204200      narea = mynode( cltxt, ilocal_comm )    ! Nodes selection 
    205  
    206201#else 
    207202# if defined key_oasis3 || defined key_oasis4 
Note: See TracChangeset for help on using the changeset viewer.