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

Changeset 4419


Ignore:
Timestamp:
2014-02-04T13:13:15+01:00 (10 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.