Changeset 14320


Ignore:
Timestamp:
2021-01-20T13:02:04+01:00 (5 months ago)
Author:
smasson
Message:

dev_r14312_MPI_Interface: further cleaning remove N[ij][es][12]and N[ij]_[12], #2598

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  
    6161      IF( ln_timing )   CALL timing_start('dia_cfl') 
    6262      ! 
    63       llmsk(   1:Nis1,:,:) = .FALSE.                                              ! exclude halos from the checked region 
    64       llmsk(Nie1: jpi,:,:) = .FALSE. 
    65       llmsk(:,   1:Njs1,:) = .FALSE. 
    66       llmsk(:,Nje1: 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. 
    6767      ! 
    6868      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  
    436436         END_3D 
    437437         ! 
    438          llmsk(   1:Nis1,:,:) = .FALSE.   ! exclude halos from the checked region 
    439          llmsk(Nie1: jpi,:,:) = .FALSE. 
    440          llmsk(:,   1:Njs1,:) = .FALSE. 
    441          llmsk(:,Nje1: 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. 
    442442         ! 
    443443         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  
    11881188      !!---------------------------------------------------------------------- 
    11891189      ! 
    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 
    11951194      ! 
    11961195      Ni_0 = Nie0 - Nis0 + 1 
    11971196      Nj_0 = Nje0 - Njs0 + 1 
    1198       Ni_1 = Nie1 - Nis1 + 1 
    1199       Nj_1 = Nje1 - Njs1 + 1 
    1200       Ni_2 = Nie2 - Nis2 + 1 
    1201       Nj_2 = Nje2 - Njs2 + 1 
    12021197      ! 
    12031198      ! old indices to be removed... 
  • NEMO/branches/2021/dev_r14312_MPI_Interface/src/OCE/par_oce.F90

    r14314 r14320  
    9191 
    9292   ! 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 
    100100 
    101101   !!---------------------------------------------------------------------- 
  • NEMO/branches/2021/dev_r14312_MPI_Interface/src/OCE/stpctl.F90

    r14319 r14320  
    123123      !                                   !==  done by all processes at every time step  ==! 
    124124      ! 
    125       llmsk(   1:Nis1,:,:) = .FALSE.                                              ! exclude halos from the checked region 
    126       llmsk(Nie1: jpi,:,:) = .FALSE. 
    127       llmsk(:,   1:Njs1,:) = .FALSE. 
    128       llmsk(:,Nje1: 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. 
    129129      ! 
    130130      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  
    122122      !                                   !==  done by all processes at every time step  ==! 
    123123      ! 
    124       llmsk(   1:Nis1,:) = .FALSE.                                              ! exclude halos from the checked region 
    125       llmsk(Nie1: jpi,:) = .FALSE. 
    126       llmsk(:,   1:Njs1) = .FALSE. 
    127       llmsk(:,Nje1: 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. 
    128128      ! 
    129129      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  
    113113      !                                   !==  done by all processes at every time step  ==! 
    114114      ! 
    115       llmsk(   1:Nis1,:,:) = .FALSE.                                              ! exclude halos from the checked region 
    116       llmsk(Nie1: jpi,:,:) = .FALSE. 
    117       llmsk(:,   1:Njs1,:) = .FALSE. 
    118       llmsk(:,Nje1: 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. 
    119119      ! 
    120120      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  
    1919   USE par_oce , ONLY :   jp_sal   =>   jp_sal     !: indice for salinity 
    2020   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       !:  
    3927 
    4028   USE in_out_manager                           !* IO manager * 
  • NEMO/branches/2021/dev_r14312_MPI_Interface/tests/STATION_ASF/MY_SRC/stpctl.F90

    r14319 r14320  
    113113      !                                   !==  done by all processes at every time step  ==! 
    114114      ! 
    115       llmsk(   1:Nis1,:) = .FALSE.                                              ! exclude halos from the checked region 
    116       llmsk(Nie1: jpi,:) = .FALSE. 
    117       llmsk(:,   1:Njs1) = .FALSE. 
    118       llmsk(:,Nje1: 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. 
    119119      ! 
    120120      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.