Changeset 5412 for trunk/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

Timestamp:

2015-06-12T20:29:43+02:00 (9 years ago)

Author:

hadcv

Message:

• Set mpi_comm_opa in non-MPP cases (addresses #1533)
• Add an xios_context_finalize in step_C1D

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90 (modified) (2 diffs)

trunk/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

@@ -3185 +3185 @@
    LOGICAL, PUBLIC            ::   ln_nnogather          !: namelist control of northfold comms (needed here in case "key_mpp_mpi" is not used)
    INTEGER :: ncomm_ice
+   INTEGER, PUBLIC            ::   mpi_comm_opa          ! opa local communicator
    !!----------------------------------------------------------------------
 CONTAINS
@@ -3198 +3199 @@
       CHARACTER(len=*) ::   ldname
       INTEGER ::   kumnam_ref, knumnam_cfg , kumond , kstop
-      IF( PRESENT( localComm ) .OR. .NOT.PRESENT( localComm ) )   function_value = 0
+      IF( PRESENT( localComm ) ) mpi_comm_opa = localComm
+      function_value = 0
       IF( .FALSE. )   ldtxt(:) = 'never done'
       CALL ctl_opn( kumond, TRIM(ldname), 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. , 1 )