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 4467 – NEMO

Changeset 4467


Ignore:
Timestamp:
2014-02-04T13:18:09+01:00 (10 years ago)
Author:
trackstand2
Message:

Changes to make global depth mask the same as that generated locally later. Increase nextra from 2 to 3 to get 192 PE case to work.

File:
1 edited

Legend:

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

    r4437 r4467  
    14391439#if defined key_mpp_mpi 
    14401440        IF ( nn_pttrim ) THEN 
    1441            nextra = 2 
     1441           nextra = 3 
    14421442           CALL part_trim ( imask, trimmed, ierr ) 
    14431443        ELSE 
     
    27622762         DO ji = 1, x_size-1 
    27632763            imask(ji,jj) = MAX(imask(ji,jj)+1,                           & ! W (= T-level + 1) 
    2764                                MIN(  imask(ji+1,jj  ) , imask(ji,jj) ), & ! U 
    2765                                MIN(  imask(ji  ,jj+1) , imask(ji,jj)  ) )  ! V 
     2764                               MAX(1, MIN(imask(ji+1,jj), imask(ji,jj)) ), & ! U 
     2765                               MAX(1, MIN(imask(ji  ,jj+1), imask(ji,jj))) )  ! V 
    27662766         END DO 
    27672767         imask(x_size,jj) = imask(x_size-1,jj) 
     
    27692769 
    27702770      ! 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 
    27732778         ! deepest level 
    27742779         imask(1,:)      = imask(x_size - 1, :) 
Note: See TracChangeset for help on using the changeset viewer.