New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 13269 for NEMO/branches – NEMO

Changeset 13269 for NEMO/branches


Ignore:
Timestamp:
2020-07-08T16:27:53+02:00 (4 years ago)
Author:
smasson
Message:

Extra_Halo: bugfix on bestpartition when nn_hls > 1, see #2366

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/LBC/mppini.F90

    r13266 r13269  
    826826      inbimax = 0 
    827827      inbjmax = 0 
    828       isziref = jpiglo*jpjglo+1 
    829       iszjref = jpiglo*jpjglo+1 
     828      isziref = Ni0glo*Nj0glo+1 
     829      iszjref = Ni0glo*Nj0glo+1 
    830830      ! 
    831831      ! get the list of knbi that gives a smaller jpimax than knbi-1 
     
    901901      isz0 = 0                                                  ! number of best partitions      
    902902      inbij = 1                                                 ! start with the min value of inbij1 => 1 
    903       iszij = jpiglo*jpjglo+1                                   ! default: larger than global domain 
     903      iszij = Ni0glo*Nj0glo+1                                   ! default: larger than global domain 
    904904      DO WHILE( inbij <= inbijmax )                             ! if we did not reach the max of inbij1 
    905905         ii = MINLOC(iszij1, mask = inbij1 == inbij, dim = 1)   ! warning: send back the first occurence if multiple results 
Note: See TracChangeset for help on using the changeset viewer.