New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 5412 – NEMO

Changeset 5412


Ignore:
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
Location:
trunk/NEMOGCM/NEMO/OPA_SRC
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/C1D/step_c1d.F90

    r5215 r5412  
    154154      IF( lrst_oce       )   CALL rst_write( kstp )        ! write output ocean restart file 
    155155      ! 
     156#if defined key_iomput 
     157      IF( kstp == nitend .OR. indic < 0 )   CALL xios_context_finalize()   ! needed for XIOS 
     158      ! 
     159#endif 
    156160   END SUBROUTINE stp_c1d 
    157161 
  • trunk/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

    r5407 r5412  
    102102      clname = cdname 
    103103      IF( TRIM(Agrif_CFixed()) /= '0' )   clname = TRIM(Agrif_CFixed())//"_"//TRIM(cdname) 
    104 # if defined key_mpp_mpi 
    105104      CALL xios_context_initialize(TRIM(clname), mpi_comm_opa) 
    106 # else 
    107       CALL xios_context_initialize(TRIM(clname), 0) 
    108 # endif 
    109105      CALL iom_swap( cdname ) 
    110106 
  • trunk/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

    r5407 r5412  
    31853185   LOGICAL, PUBLIC            ::   ln_nnogather          !: namelist control of northfold comms (needed here in case "key_mpp_mpi" is not used) 
    31863186   INTEGER :: ncomm_ice 
     3187   INTEGER, PUBLIC            ::   mpi_comm_opa          ! opa local communicator 
    31873188   !!---------------------------------------------------------------------- 
    31883189CONTAINS 
     
    31983199      CHARACTER(len=*) ::   ldname 
    31993200      INTEGER ::   kumnam_ref, knumnam_cfg , kumond , kstop 
    3200       IF( PRESENT( localComm ) .OR. .NOT.PRESENT( localComm ) )   function_value = 0 
     3201      IF( PRESENT( localComm ) ) mpi_comm_opa = localComm 
     3202      function_value = 0 
    32013203      IF( .FALSE. )   ldtxt(:) = 'never done' 
    32023204      CALL ctl_opn( kumond, TRIM(ldname), 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. , 1 ) 
Note: See TracChangeset for help on using the changeset viewer.