Changeset 14320
- Timestamp:
- 2021-01-20T13:02:04+01:00 (3 years ago)
- Location:
- NEMO/branches/2021/dev_r14312_MPI_Interface
- Files:
-
- 9 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/dev_r14312_MPI_Interface/src/OCE/DIA/diacfl.F90
r13497 r14320 61 61 IF( ln_timing ) CALL timing_start('dia_cfl') 62 62 ! 63 llmsk( 1:Nis1,:,:) = .FALSE.! exclude halos from the checked region64 llmsk(Nie 1: jpi,:,:) = .FALSE.65 llmsk(:, 1:Njs1,:) = .FALSE.66 llmsk(:,Nje 1: jpj,:) = .FALSE.63 llmsk( 1:nn_hls,:) = .FALSE. ! exclude halos from the checked region 64 llmsk(Nie0+1: jpi,:) = .FALSE. 65 llmsk(:, 1:nn_hls) = .FALSE. 66 llmsk(:,Nje0+1: jpj) = .FALSE. 67 67 ! 68 68 DO_3D( 0, 0, 0, 0, 1, jpk ) ! calculate Courant numbers -
NEMO/branches/2021/dev_r14312_MPI_Interface/src/OCE/DOM/domvvl.F90
r14140 r14320 436 436 END_3D 437 437 ! 438 llmsk( 1:Nis1,:,:) = .FALSE. ! exclude halos from the checked region439 llmsk(Nie 1: jpi,:,:) = .FALSE.440 llmsk(:, 1:Njs1,:) = .FALSE.441 llmsk(:,Nje 1: jpj,:) = .FALSE.438 llmsk( 1:nn_hls,:) = .FALSE. ! exclude halos from the checked region 439 llmsk(Nie0+1: jpi,:) = .FALSE. 440 llmsk(:, 1:nn_hls) = .FALSE. 441 llmsk(:,Nje0+1: jpj) = .FALSE. 442 442 ! 443 443 llmsk(Nis0:Nie0,Njs0:Nje0,:) = tmask(Nis0:Nie0,Njs0:Nje0,:) == 1._wp ! define only the inner domain -
NEMO/branches/2021/dev_r14312_MPI_Interface/src/OCE/LBC/mppini.F90
r14314 r14320 1188 1188 !!---------------------------------------------------------------------- 1189 1189 ! 1190 Nis0 = 1+nn_hls ; Nis1 = Nis0-1 ; Nis2 = MAX( 1, Nis0-2) 1191 Njs0 = 1+nn_hls ; Njs1 = Njs0-1 ; Njs2 = MAX( 1, Njs0-2) 1192 ! 1193 Nie0 = jpi-nn_hls ; Nie1 = Nie0+1 ; Nie2 = MIN(jpi, Nie0+2) 1194 Nje0 = jpj-nn_hls ; Nje1 = Nje0+1 ; Nje2 = MIN(jpj, Nje0+2) 1190 Nis0 = 1+nn_hls 1191 Njs0 = 1+nn_hls 1192 Nie0 = jpi-nn_hls 1193 Nje0 = jpj-nn_hls 1195 1194 ! 1196 1195 Ni_0 = Nie0 - Nis0 + 1 1197 1196 Nj_0 = Nje0 - Njs0 + 1 1198 Ni_1 = Nie1 - Nis1 + 11199 Nj_1 = Nje1 - Njs1 + 11200 Ni_2 = Nie2 - Nis2 + 11201 Nj_2 = Nje2 - Njs2 + 11202 1197 ! 1203 1198 ! old indices to be removed... -
NEMO/branches/2021/dev_r14312_MPI_Interface/src/OCE/par_oce.F90
r14314 r14320 91 91 92 92 ! halo with and starting/inding DO-loop indices 93 INTEGER, PUBLIC :: nn_hls !: halo width (applies to both rows and columns)94 INTEGER, PUBLIC :: Nis0 , Nis1, Nis2 !: start I-index (_0: without halo, _1 or _2: with 1 or 2 halos)95 INTEGER, PUBLIC :: Nie0 , Nie1, Nie2 !: end I-index (_0: without halo, _1 or _2: with 1 or 2 halos)96 INTEGER, PUBLIC :: Njs0 , Njs1, Njs2 !: start J-index (_0: without halo, _1 or _2: with 1 or 2 halos)97 INTEGER, PUBLIC :: Nje0 , Nje1, Nje2 !: end J-index (_0: without halo, _1 or _2: with 1 or 2 halos)98 INTEGER, PUBLIC :: Ni_0, Nj_0 , Ni_1, Nj_1, Ni_2, Nj_2 !: domain size (_0: without halo, _1 or _2: with 1 or 2 halos)99 INTEGER, PUBLIC :: Ni0glo, Nj0glo 93 INTEGER, PUBLIC :: nn_hls !: halo width (applies to both rows and columns) 94 INTEGER, PUBLIC :: Nis0 !: start I-index without halo 95 INTEGER, PUBLIC :: Nie0 !: end I-index without halo 96 INTEGER, PUBLIC :: Njs0 !: start J-index without halo 97 INTEGER, PUBLIC :: Nje0 !: end J-index without halo 98 INTEGER, PUBLIC :: Ni_0, Nj_0 !: local domain size without halo 99 INTEGER, PUBLIC :: Ni0glo, Nj0glo !: global domain size without halo 100 100 101 101 !!---------------------------------------------------------------------- -
NEMO/branches/2021/dev_r14312_MPI_Interface/src/OCE/stpctl.F90
r14319 r14320 123 123 ! !== done by all processes at every time step ==! 124 124 ! 125 llmsk( 1:Nis1,:,:) = .FALSE.! exclude halos from the checked region126 llmsk(Nie 1: jpi,:,:) = .FALSE.127 llmsk(:, 1:Njs1,:) = .FALSE.128 llmsk(:,Nje 1: jpj,:) = .FALSE.125 llmsk( 1:nn_hls,:) = .FALSE. ! exclude halos from the checked region 126 llmsk(Nie0+1: jpi,:) = .FALSE. 127 llmsk(:, 1:nn_hls) = .FALSE. 128 llmsk(:,Nje0+1: jpj) = .FALSE. 129 129 ! 130 130 llmsk(Nis0:Nie0,Njs0:Nje0,1) = ssmask(Nis0:Nie0,Njs0:Nje0) == 1._wp ! define only the inner domain -
NEMO/branches/2021/dev_r14312_MPI_Interface/src/SAS/stpctl.F90
r14319 r14320 122 122 ! !== done by all processes at every time step ==! 123 123 ! 124 llmsk( 1:Nis1,:) = .FALSE.! exclude halos from the checked region125 llmsk(Nie 1:jpi,:) = .FALSE.126 llmsk(:, 1:Njs1) = .FALSE.127 llmsk(:,Nje 1:jpj) = .FALSE.124 llmsk( 1:nn_hls,:) = .FALSE. ! exclude halos from the checked region 125 llmsk(Nie0+1: jpi,:) = .FALSE. 126 llmsk(:, 1:nn_hls) = .FALSE. 127 llmsk(:,Nje0+1: jpj) = .FALSE. 128 128 ! 129 129 llmsk(Nis0:Nie0,Njs0:Nje0) = tmask(Nis0:Nie0,Njs0:Nje0,1) == 1._wp ! test only the inner domain -
NEMO/branches/2021/dev_r14312_MPI_Interface/src/SWE/stpctl.F90
r14319 r14320 113 113 ! !== done by all processes at every time step ==! 114 114 ! 115 llmsk( 1:Nis1,:,:) = .FALSE.! exclude halos from the checked region116 llmsk(Nie 1: jpi,:,:) = .FALSE.117 llmsk(:, 1:Njs1,:) = .FALSE.118 llmsk(:,Nje 1: jpj,:) = .FALSE.115 llmsk( 1:nn_hls,:) = .FALSE. ! exclude halos from the checked region 116 llmsk(Nie0+1: jpi,:) = .FALSE. 117 llmsk(:, 1:nn_hls) = .FALSE. 118 llmsk(:,Nje0+1: jpj) = .FALSE. 119 119 ! 120 120 llmsk(Nis0:Nie0,Njs0:Nje0,1) = ssmask(Nis0:Nie0,Njs0:Nje0) == 1._wp ! define only the inner domain -
NEMO/branches/2021/dev_r14312_MPI_Interface/src/TOP/oce_trc.F90
r14314 r14320 19 19 USE par_oce , ONLY : jp_sal => jp_sal !: indice for salinity 20 20 USE par_oce , ONLY : nn_hls => nn_hls !: 21 USE par_oce , ONLY : Nis0 => Nis0 !: 22 USE par_oce , ONLY : Njs0 => Njs0 !: 23 USE par_oce , ONLY : Nie0 => Nie0 !: 24 USE par_oce , ONLY : Nje0 => Nje0 !: 25 USE par_oce , ONLY : Nis1 => Nis1 !: 26 USE par_oce , ONLY : Njs1 => Njs1 !: 27 USE par_oce , ONLY : Nie1 => Nie1 !: 28 USE par_oce , ONLY : Nje1 => Nje1 !: 29 USE par_oce , ONLY : Nis2 => Nis2 !: 30 USE par_oce , ONLY : Njs2 => Njs2 !: 31 USE par_oce , ONLY : Nie2 => Nie2 !: 32 USE par_oce , ONLY : Nje2 => Nje2 !: 33 USE par_oce , ONLY : Ni_0 => Ni_0 !: 34 USE par_oce , ONLY : Nj_0 => Nj_0 !: 35 USE par_oce , ONLY : Ni_1 => Ni_1 !: 36 USE par_oce , ONLY : Nj_1 => Nj_1 !: 37 USE par_oce , ONLY : Ni_2 => Ni_2 !: 38 USE par_oce , ONLY : Nj_2 => Nj_2 !: 21 USE par_oce , ONLY : Nis0 => Nis0 !: 22 USE par_oce , ONLY : Njs0 => Njs0 !: 23 USE par_oce , ONLY : Nie0 => Nie0 !: 24 USE par_oce , ONLY : Nje0 => Nje0 !: 25 USE par_oce , ONLY : Ni_0 => Ni_0 !: 26 USE par_oce , ONLY : Nj_0 => Nj_0 !: 39 27 40 28 USE in_out_manager !* IO manager * -
NEMO/branches/2021/dev_r14312_MPI_Interface/tests/STATION_ASF/MY_SRC/stpctl.F90
r14319 r14320 113 113 ! !== done by all processes at every time step ==! 114 114 ! 115 llmsk( 1:Nis1,:) = .FALSE.! exclude halos from the checked region116 llmsk(Nie 1:jpi,:) = .FALSE.117 llmsk(:, 1:Njs1) = .FALSE.118 llmsk(:,Nje 1:jpj) = .FALSE.115 llmsk( 1:nn_hls,:) = .FALSE. ! exclude halos from the checked region 116 llmsk(Nie0+1: jpi,:) = .FALSE. 117 llmsk(:, 1:nn_hls) = .FALSE. 118 llmsk(:,Nje0+1: jpj) = .FALSE. 119 119 ! 120 120 llmsk(Nis0:Nie0,Njs0:Nje0) = tmask(Nis0:Nie0,Njs0:Nje0,1) == 1._wp ! test only the inner domain
Note: See TracChangeset
for help on using the changeset viewer.