- Timestamp:
- 2021-01-22T11:49:55+01:00 (3 years ago)
- Location:
- NEMO/branches/2021/dev_r14312_MPI_Interface/src
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/dev_r14312_MPI_Interface/src/OCE/DIA/diacfl.F90
r14320 r14326 61 61 IF( ln_timing ) CALL timing_start('dia_cfl') 62 62 ! 63 llmsk( 1:nn_hls,: ) = .FALSE. ! exclude halos from the checked region64 llmsk(Nie0+1: jpi,: ) = .FALSE.65 llmsk(:, 1:nn_hls ) = .FALSE.66 llmsk(:,Nje0+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
r14320 r14326 436 436 END_3D 437 437 ! 438 llmsk( 1:nn_hls,: ) = .FALSE. ! exclude halos from the checked region439 llmsk(Nie0+1: jpi,: ) = .FALSE.440 llmsk(:, 1:nn_hls ) = .FALSE.441 llmsk(:,Nje0+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/stpctl.F90
r14320 r14326 123 123 ! !== done by all processes at every time step ==! 124 124 ! 125 llmsk( 1:nn_hls,: ) = .FALSE.! exclude halos from the checked region126 llmsk(Nie0+1: jpi,: ) = .FALSE.127 llmsk(:, 1:nn_hls ) = .FALSE.128 llmsk(:,Nje0+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/SWE/stpctl.F90
r14320 r14326 113 113 ! !== done by all processes at every time step ==! 114 114 ! 115 llmsk( 1:nn_hls,: ) = .FALSE.! exclude halos from the checked region116 llmsk(Nie0+1: jpi,: ) = .FALSE.117 llmsk(:, 1:nn_hls ) = .FALSE.118 llmsk(:,Nje0+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
Note: See TracChangeset
for help on using the changeset viewer.