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 9012 for branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/DOM – NEMO

Ignore:
Timestamp:
2017-12-13T14:57:33+01:00 (6 years ago)
Author:
acc
Message:

Branch dev_CNRS_2017. Merge in no_ghost changes from dev_r8126_ROBUST08_no_ghost. These changes include lib_mpp refresh and rationalisation of mppini from dev_r8126_ROBUST10_MPPINI

Location:
branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/DOM
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/DOM/dom_oce.F90

    r8882 r9012  
    9090   INTEGER, PUBLIC ::   noea, nowe        !: index of the local neighboring processors in 
    9191   INTEGER, PUBLIC ::   noso, nono        !: east, west, south and north directions 
    92    INTEGER, PUBLIC ::   npne, npnw        !: index of north east and north west processor 
    93    INTEGER, PUBLIC ::   npse, npsw        !: index of south east and south west processor 
    94    INTEGER, PUBLIC ::   nbne, nbnw        !: logical of north east & north west processor 
    95    INTEGER, PUBLIC ::   nbse, nbsw        !: logical of south east & south west processor 
    9692   INTEGER, PUBLIC ::   nidom             !: ??? 
    9793 
  • branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

    r8970 r9012  
    9696         WRITE(numout,cform) '       ' ,'   jpij    : ', jpij 
    9797         WRITE(numout,*)     '      mpp local domain info (mpp):' 
    98          WRITE(numout,*)     '              jpni    : ', jpni, '   jpreci  : ', jpreci 
    99          WRITE(numout,*)     '              jpnj    : ', jpnj, '   jprecj  : ', jprecj 
     98         WRITE(numout,*)     '              jpni    : ', jpni, '   nn_hls  : ', nn_hls 
     99         WRITE(numout,*)     '              jpnj    : ', jpnj, '   nn_hls  : ', nn_hls 
    100100         WRITE(numout,*)     '              jpnij   : ', jpnij 
    101101         WRITE(numout,*)     '      lateral boundary of the Global domain : jperio  = ', jperio 
  • branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90

    r8882 r9012  
    211211      ! -------------------- 
    212212      ! 
    213       iif = jpreci   ;   iil = nlci - jpreci + 1 
    214       ijf = jprecj   ;   ijl = nlcj - jprecj + 1 
     213      iif = nn_hls   ;   iil = nlci - nn_hls + 1 
     214      ijf = nn_hls   ;   ijl = nlcj - nn_hls + 1 
    215215      ! 
    216216      !                          ! halo mask : 0 on the halo and 1 elsewhere 
Note: See TracChangeset for help on using the changeset viewer.