Changeset 4419


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

Explicit zeroing of bdytmask array

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/BDY/bdyini.F90

    r3211 r4419  
    5555      !! 
    5656      !! ** Input   :  bdy_init.nc, input file for unstructured open boundaries 
    57       !!----------------------------------------------------------------------       
     57      !!---------------------------------------------------------------------- 
    5858      INTEGER  ::   ii, ij, ik, igrd, ib, ir   ! dummy loop indices 
    5959      INTEGER  ::   icount, icountr, ib_len, ibr_max   ! local integers 
     
    170170      ENDIF 
    171171 
     172      bdytmask(:,:) = 0 
    172173      DO ij = 1, nlcj      ! Save mask over local domain       
    173174         DO ii = 1, nlci 
Note: See TracChangeset for help on using the changeset viewer.