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 2231 – NEMO

Changeset 2231


Ignore:
Timestamp:
2010-10-12T18:34:13+02:00 (14 years ago)
Author:
cbricaud
Message:

mpi_comm_opa has to be PUBLIC

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/DEV_r2191_3partymerge2010/NEMO/OPA_SRC/lib_mpp.F90

    r2219 r2231  
    122122   INTEGER, PARAMETER         ::   nprocmax = 2**10   ! maximun dimension (required to be a power of 2) 
    123123    
    124    INTEGER ::   mppsize        ! number of process 
    125    INTEGER ::   mpprank        ! process number  [ 0 - size-1 ] 
    126    INTEGER ::   mpi_comm_opa   ! opa local communicator 
     124   INTEGER          ::   mppsize        ! number of process 
     125   INTEGER          ::   mpprank        ! process number  [ 0 - size-1 ] 
     126   INTEGER , PUBLIC ::   mpi_comm_opa   ! opa local communicator 
    127127 
    128128   INTEGER, PUBLIC :: MPI_SUMDD 
Note: See TracChangeset for help on using the changeset viewer.