Changeset 418 for trunk/NEMO/OPA_SRC/DOM/dommsk.F90
- Timestamp:
- 2006-03-21T09:26:27+01:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DOM/dommsk.F90
r367 r418 501 501 !!---------------------------------------------------------------------- 502 502 !! *Local declarations 503 INTEGER :: ji, jj, jk, ii 503 INTEGER :: ji, jj, jk, ii, jl ! dummy loop indices 504 504 INTEGER :: ine, inw, ins, inn, itest, ierror, iind, ijnd 505 505 INTEGER, DIMENSION(jpi*jpj*jpk,3) :: icoord
Note: See TracChangeset
for help on using the changeset viewer.