Ignore:
Timestamp:
2013-06-11T13:01:03+02:00 (7 years ago)
Author:
davestorkey
Message:

Bug fixes for BDY module - see ticket #1106.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/BDY/bdyini.F90

    r3703 r3909  
    10531053       
    10541054      bdytmask(:,:) = tmask(:,:,1) 
     1055      IF( .not. ln_mask_file ) THEN 
     1056         ! If .not. ln_mask_file then we need to derive mask on U and V grid  
     1057         ! from mask on T grid here. 
     1058         bdyumask(:,:) = 0.e0 
     1059         bdyvmask(:,:) = 0.e0 
     1060         DO ij=1, jpjm1 
     1061            DO ii=1, jpim1 
     1062               bdyumask(ii,ij)=bdytmask(ii,ij)*bdytmask(ii+1, ij ) 
     1063               bdyvmask(ii,ij)=bdytmask(ii,ij)*bdytmask(ii  ,ij+1)   
     1064            END DO 
     1065         END DO 
     1066         CALL lbc_lnk( bdyumask(:,:), 'U', 1. )   ;   CALL lbc_lnk( bdyvmask(:,:), 'V', 1. )      ! Lateral boundary cond. 
     1067      ENDIF 
    10551068 
    10561069      ! bdy masks and bmask are now set to zero on boundary points: 
Note: See TracChangeset for help on using the changeset viewer.