Changeset 9012 for branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/DOM
- Timestamp:
- 2017-12-13T14:57:33+01:00 (6 years ago)
- 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 90 90 INTEGER, PUBLIC :: noea, nowe !: index of the local neighboring processors in 91 91 INTEGER, PUBLIC :: noso, nono !: east, west, south and north directions 92 INTEGER, PUBLIC :: npne, npnw !: index of north east and north west processor93 INTEGER, PUBLIC :: npse, npsw !: index of south east and south west processor94 INTEGER, PUBLIC :: nbne, nbnw !: logical of north east & north west processor95 INTEGER, PUBLIC :: nbse, nbsw !: logical of south east & south west processor96 92 INTEGER, PUBLIC :: nidom !: ??? 97 93 -
branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90
r8970 r9012 96 96 WRITE(numout,cform) ' ' ,' jpij : ', jpij 97 97 WRITE(numout,*) ' mpp local domain info (mpp):' 98 WRITE(numout,*) ' jpni : ', jpni, ' jpreci : ', jpreci99 WRITE(numout,*) ' jpnj : ', jpnj, ' jprecj : ', jprecj98 WRITE(numout,*) ' jpni : ', jpni, ' nn_hls : ', nn_hls 99 WRITE(numout,*) ' jpnj : ', jpnj, ' nn_hls : ', nn_hls 100 100 WRITE(numout,*) ' jpnij : ', jpnij 101 101 WRITE(numout,*) ' lateral boundary of the Global domain : jperio = ', jperio -
branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90
r8882 r9012 211 211 ! -------------------- 212 212 ! 213 iif = jpreci ; iil = nlci - jpreci+ 1214 ijf = jprecj ; ijl = nlcj - jprecj+ 1213 iif = nn_hls ; iil = nlci - nn_hls + 1 214 ijf = nn_hls ; ijl = nlcj - nn_hls + 1 215 215 ! 216 216 ! ! halo mask : 0 on the halo and 1 elsewhere
Note: See TracChangeset
for help on using the changeset viewer.