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 13083 for NEMO/trunk/src/OCE/TRD/trdtra.F90 – NEMO

Ignore:
Timestamp:
2020-06-10T09:55:09+02:00 (4 years ago)
Author:
smasson
Message:

trunk: correct typo introduced in [13069]

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/TRD/trdtra.F90

    r13069 r13083  
    8282      REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT(in), OPTIONAL ::   ptra    ! now tracer variable 
    8383      ! 
    84       INTEGER ::   j k   ! loop indices 
     84      INTEGER ::   jk    ! loop indices 
    8585      INTEGER ::   i01   ! 0 or 1 
    8686      REAL(wp),        DIMENSION(jpi,jpj,jpk) ::   ztrds             ! 3D workspace 
Note: See TracChangeset for help on using the changeset viewer.