Changeset 14326 for NEMO


Ignore:
Timestamp:
2021-01-22T11:49:55+01:00 (5 months ago)
Author:
smasson
Message:

dev_r14312_MPI_Interface: bugfix following [14320], #2598

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  
    6161      IF( ln_timing )   CALL timing_start('dia_cfl') 
    6262      ! 
    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. 
     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

    r14320 r14326  
    436436         END_3D 
    437437         ! 
    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. 
     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/stpctl.F90

    r14320 r14326  
    123123      !                                   !==  done by all processes at every time step  ==! 
    124124      ! 
    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. 
     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/SWE/stpctl.F90

    r14320 r14326  
    113113      !                                   !==  done by all processes at every time step  ==! 
    114114      ! 
    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. 
     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 
Note: See TracChangeset for help on using the changeset viewer.