Changeset 4419
- Timestamp:
- 2014-02-04T13:13:15+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/BDY/bdyini.F90
r3211 r4419 55 55 !! 56 56 !! ** Input : bdy_init.nc, input file for unstructured open boundaries 57 !!---------------------------------------------------------------------- 57 !!---------------------------------------------------------------------- 58 58 INTEGER :: ii, ij, ik, igrd, ib, ir ! dummy loop indices 59 59 INTEGER :: icount, icountr, ib_len, ibr_max ! local integers … … 170 170 ENDIF 171 171 172 bdytmask(:,:) = 0 172 173 DO ij = 1, nlcj ! Save mask over local domain 173 174 DO ii = 1, nlci
Note: See TracChangeset
for help on using the changeset viewer.