Changeset 4485
- Timestamp:
- 2014-02-04T13:19:44+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/LBC/partition_mod.F90
r4477 r4485 302 302 ! Initialise mbkmax because it's needed in any halo swap calls but we didn't have 303 303 ! 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 310 312 311 313 ! ARPDBG - test comms setup
Note: See TracChangeset
for help on using the changeset viewer.