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

Changeset 1432


Ignore:
Timestamp:
2009-05-11T15:24:36+02:00 (15 years ago)
Author:
rblod
Message:

dev_004_VVL:sync: correct a small bug in tradmp (probably there in the trunk too)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/dev_004_VVL/NEMO/OPA_SRC/TRA/tradmp.F90

    r1428 r1432  
    331331      INTEGER ::   ji, jj, jk                   ! dummy loop indices 
    332332      INTEGER ::   ii0, ii1, ij0, ij1           !    "          " 
    333       INTEGER ::   idmp                         ! logical unit for file restoring damping term 
     333      INTEGER ::   inum0                        ! logical unit for file restoring damping term 
    334334      INTEGER ::   icot                         ! logical unit for file distance to the coast 
    335335      REAL(wp) ::   zinfl, zlon                 ! temporary scalars 
Note: See TracChangeset for help on using the changeset viewer.