Changeset 4485


Ignore:
Timestamp:
2014-02-04T13:19:44+01:00 (7 years ago)
Author:
trackstand2
Message:

Undo early setting of mbkmax because not needed for halo swaps anymore

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/LBC/partition_mod.F90

    r4477 r4485  
    302302      ! Initialise mbkmax because it's needed in any halo swap calls but we didn't have 
    303303      ! jpi and jpj until the partitioning was done. 
    304       DO jj=1,jpj,1 
    305          DO ji=1,jpi,1 
    306             mbkmax(ji,jj) = ibotlevel(MIN(jpiglo,ji+nimpp-1), & 
    307                                       MIN(jpjglo,jj+njmpp-1)) 
    308          END DO 
    309       END DO 
     304      ! ARP - not used in halo swap calls because, actually, need more info - my first 
     305      !       implementation was broken. Therefore, don't need this early calc. of mbkmax. 
     306      !DO jj=1,jpj,1 
     307      !   DO ji=1,jpi,1 
     308      !      mbkmax(ji,jj) = ibotlevel(MIN(jpiglo,ji+nimpp-1), & 
     309      !                                MIN(jpjglo,jj+njmpp-1)) 
     310      !   END DO 
     311      !END DO 
    310312 
    311313      ! ARPDBG - test comms setup 
Note: See TracChangeset for help on using the changeset viewer.