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 4785 for branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90 – NEMO

Ignore:
Timestamp:
2014-09-24T14:03:02+02:00 (10 years ago)
Author:
rblod
Message:

dev_r4765_CNRS_agrif: First update of AGRIF for dynamic only (_flt and _ts), see ticket #1380 and associated wiki page

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

    r4765 r4785  
    289289      ENDIF 
    290290 
     291#if defined key_agrif 
     292      IF (Agrif_Root()) THEN 
     293         CALL Agrif_MPI_Init(mpi_comm_opa) 
     294      ELSE 
     295         CALL Agrif_MPI_set_grid_comm(mpi_comm_opa) 
     296      ENDIF 
     297#endif 
     298 
    291299      CALL mpi_comm_rank( mpi_comm_opa, mpprank, ierr ) 
    292300      CALL mpi_comm_size( mpi_comm_opa, mppsize, ierr ) 
Note: See TracChangeset for help on using the changeset viewer.