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 4325 for branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_mle.F90 – NEMO

Ignore:
Timestamp:
2013-11-29T16:27:48+01:00 (11 years ago)
Author:
cbricaud
Message:

dev_MERGE_2013: solve tickets 1192, 1193, 1194

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_mle.F90

    r4310 r4325  
    117117         END DO 
    118118      END DO 
    119       ikmax = MAX( MAXVAL( inml_mle(:,:) ), jpkm1 )                  ! max level of the computation 
     119      ikmax = MIN( MAXVAL( inml_mle(:,:) ), jpkm1 )                  ! max level of the computation 
    120120      ! 
    121121      ! 
Note: See TracChangeset for help on using the changeset viewer.