Changeset 2170
- Timestamp:
- 2010-10-06T16:50:18+02:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/opa.F90
r1793 r2170 192 192 ! !--------------------------------------------! 193 193 #if defined key_iomput 194 IF( Agrif_Root() ) THEN 194 195 # if defined key_oasis3 || defined key_oasis4 195 IF( Agrif_Root() ) THEN196 196 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 ENDIF199 # else200 IF( Agrif_Root() ) THEN201 CALL init_ioclient( ilocal_comm ) ! nemo local communicator (used or not) given by the io_server202 ENDIF203 197 # endif 198 CALL init_ioclient( ilocal_comm ) ! exchange io_server nemo local communicator with the io_server 199 ENDIF 204 200 narea = mynode( cltxt, ilocal_comm ) ! Nodes selection 205 206 201 #else 207 202 # if defined key_oasis3 || defined key_oasis4
Note: See TracChangeset
for help on using the changeset viewer.