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 4870 for trunk/NEMOGCM/NEMO/LIM_SRC_3/limthd_lac.F90 – NEMO

Ignore:
Timestamp:
2014-11-18T17:03:01+01:00 (10 years ago)
Author:
clem
Message:

LIM3: replacing layer to jk for dummy loops

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMOGCM/NEMO/LIM_SRC_3/limthd_lac.F90

    r4869 r4870  
    7575      !!------------------------------------------------------------------------ 
    7676      INTEGER ::   ji,jj,jk,jl      ! dummy loop indices 
    77       INTEGER ::   layer, nbpac     ! local integers  
     77      INTEGER ::   nbpac            ! local integers  
    7878      INTEGER ::   ii, ij, iter     !   -       - 
    7979      REAL(wp)  ::   ztmelts, zdv, zfrazb, zweight, zindb, zinda, zde  ! local scalars 
Note: See TracChangeset for help on using the changeset viewer.