Changeset 13269
- Timestamp:
- 2020-07-08T16:27:53+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/LBC/mppini.F90
r13266 r13269 826 826 inbimax = 0 827 827 inbjmax = 0 828 isziref = jpiglo*jpjglo+1829 iszjref = jpiglo*jpjglo+1828 isziref = Ni0glo*Nj0glo+1 829 iszjref = Ni0glo*Nj0glo+1 830 830 ! 831 831 ! get the list of knbi that gives a smaller jpimax than knbi-1 … … 901 901 isz0 = 0 ! number of best partitions 902 902 inbij = 1 ! start with the min value of inbij1 => 1 903 iszij = jpiglo*jpjglo+1 ! default: larger than global domain903 iszij = Ni0glo*Nj0glo+1 ! default: larger than global domain 904 904 DO WHILE( inbij <= inbijmax ) ! if we did not reach the max of inbij1 905 905 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.