- Timestamp:
- 2009-05-11T15:24:36+02:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_004_VVL/NEMO/OPA_SRC/TRA/tradmp.F90
r1428 r1432 331 331 INTEGER :: ji, jj, jk ! dummy loop indices 332 332 INTEGER :: ii0, ii1, ij0, ij1 ! " " 333 INTEGER :: i dmp! logical unit for file restoring damping term333 INTEGER :: inum0 ! logical unit for file restoring damping term 334 334 INTEGER :: icot ! logical unit for file distance to the coast 335 335 REAL(wp) :: zinfl, zlon ! temporary scalars
Note: See TracChangeset
for help on using the changeset viewer.