Changeset 4467
- Timestamp:
- 2014-02-04T13:18:09+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
r4437 r4467 1439 1439 #if defined key_mpp_mpi 1440 1440 IF ( nn_pttrim ) THEN 1441 nextra = 21441 nextra = 3 1442 1442 CALL part_trim ( imask, trimmed, ierr ) 1443 1443 ELSE … … 2762 2762 DO ji = 1, x_size-1 2763 2763 imask(ji,jj) = MAX(imask(ji,jj)+1, & ! W (= T-level + 1) 2764 M IN( imask(ji+1,jj ) , imask(ji,jj)), & ! U2765 M IN( imask(ji ,jj+1) , imask(ji,jj)) ) ! V2764 MAX(1, MIN(imask(ji+1,jj), imask(ji,jj)) ), & ! U 2765 MAX(1, MIN(imask(ji ,jj+1), imask(ji,jj))) ) ! V 2766 2766 END DO 2767 2767 imask(x_size,jj) = imask(x_size-1,jj) … … 2769 2769 2770 2770 ! Check on jperio because we've not set cyclic_bc in mapcomms yet 2771 IF(jperio == 1 .OR. jperio == 4 .OR. jperio == 6)THEN 2772 ! Impose global cyclic boundary conditions on the array holding the 2771 IF(jperio == 0)THEN 2772 ! In zgr_bat_ctl mbathy is zeroed along E/W boundaries if there are no 2773 ! cyclic boundary conditions. 2774 imask(1,:) =0 2775 imask(x_size,:)=0 2776 ELSE IF(jperio == 1 .OR. jperio == 4 .OR. jperio == 6)THEN 2777 ! Impose global E-W cyclic boundary conditions on the array holding the 2773 2778 ! deepest level 2774 2779 imask(1,:) = imask(x_size - 1, :)
Note: See TracChangeset
for help on using the changeset viewer.