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

Changeset 2096


Ignore:
Timestamp:
2010-09-15T14:48:45+02:00 (14 years ago)
Author:
smasson
Message:

DEV_r1879_FCM: use cpp keys to define the domain decomposition

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/DEV_r1879_FCM/NEMOGCM/NEMO/OPA_SRC/par_oce.F90

    r1647 r2096  
    2626 
    2727#if ! defined key_mpp_dyndist  
    28    INTEGER, PUBLIC, PARAMETER ::    &  !:  
    29       jpni   = 1,                   &  !: number of processors following i  
     28 
     29   INTEGER, PUBLIC, PARAMETER ::    &  !: 
     30# if ! defined key_nproci 
     31      jpni   = 1,                   &  !: number of processors following i 
    3032      jpnj   = 1,                   &  !: number of processors following j 
    3133      jpnij  = 1                       !: nb of local domain = nb of processors  
    3234      !                                !  ( <= jpni x jpnj ) 
     35# else 
     36      jpni   = key_nproci,          &  !: number of processors following i 
     37      jpnj   = key_nprocj,          &  !: number of processors following j 
     38#  if ! defined key_nprocij 
     39      jpnij  = key_nproci * key_nprocj !: nb of local domain = nb of processors  
     40      !                                !  ( <= jpni x jpnj ) 
     41#  else 
     42      jpnij  = key_nprocij             !: nb of local domain = nb of processors  
     43      !                                !  ( <= jpni x jpnj ) 
     44#  endif 
     45# endif 
    3346#else 
    3447   INTEGER, PUBLIC ::               &  ! 
Note: See TracChangeset for help on using the changeset viewer.