Changeset 9874


Ignore:
Timestamp:
2018-07-04T19:35:48+02:00 (2 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.