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

Timestamp:

2013-11-01T18:47:40+01:00 (11 years ago)

Author:

hadcv

Message:

Ticket #1157 (C1D fixes): redo the fix for #1096 to work for XIOS detached mode and add xios_context_finalize.

File:

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

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

@@ -3446 +3446 @@
    LOGICAL, PUBLIC, PARAMETER ::   lk_mpp = .FALSE.      !: mpp flag
    LOGICAL, PUBLIC            ::   ln_nnogather  = .FALSE.  !: namelist control of northfold comms (needed here in case "key_mpp_mpi" is not used)
-   INTEGER :: ncomm_ice
+   INTEGER                    ::   ncomm_ice
+   INTEGER, PUBLIC            ::   mpi_comm_opa             !: opa local communicator
    !!----------------------------------------------------------------------
 CONTAINS
@@ -3459 +3460 @@
       CHARACTER(len=*),DIMENSION(:) ::   ldtxt
       INTEGER ::   kumnam, 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'
    END FUNCTION mynode