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 9874 for NEMO/trunk/src/ICE/icethd_ent.F90 – NEMO

Ignore:
Timestamp:
2018-07-04T19:35:48+02:00 (4 years ago)
Author:
clem
Message:

bug fix following ticket #2108

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/ICE/icethd_ent.F90

    r9604 r9874  
    103103      zeh_cum1(1:npti,0:nlay_i) = 0._wp  
    104104      ! new cumulative q*h => linear interpolation 
    105       DO jk0 = 1, nlay_i+1 
     105      DO jk0 = 1, nlay_i+2 
    106106         DO jk1 = 1, nlay_i-1 
    107107            DO ji = 1, npti 
Note: See TracChangeset for help on using the changeset viewer.