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 156 for trunk/NEMO/OPA_SRC/DTA/dtasal.F90 – NEMO

Ignore:
Timestamp:
2004-10-19T15:37:38+02:00 (20 years ago)
Author:
opalod
Message:

CL + CT: UPDATE101: Avoid warning messages at compilation process

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/DTA/dtasal.F90

    r114 r156  
    7979 
    8080      INTEGER, PARAMETER ::   jpmois = 12, jpf = 1 
    81       INTEGER ::   ji, jj, jk, jl    ! dummy loop indicies 
     81      INTEGER ::   ji, jj, jl           ! dummy loop indicies 
    8282      INTEGER ::   & 
    8383         imois, iman, ik, i15,       &  ! temporary integers 
    84          ipi, ipj, ipk, itime,       &  !    "          " 
    85          il0, il1, ii0, ii1, ij0, ij1   !    "          " 
     84         ipi, ipj, ipk, itime           !    "          " 
     85#  if defined key_tradmp 
     86      INTEGER ::   & 
     87         jk, il0, il1,               &  ! temporary integers 
     88         ii0, ii1, ij0, ij1             !    "          " 
     89# endif 
    8690      INTEGER, DIMENSION(jpmois) ::   istep 
    8791      REAL(wp) ::   & 
Note: See TracChangeset for help on using the changeset viewer.