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

Ignore:
Timestamp:
2014-11-18T18:53:04+01:00 (9 years ago)
Author:
clem
Message:

LIM3: removing useless jkmax (=nlay_i+1) parameter

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r4872 r4873  
    130130      CALL wrk_alloc( jpij, zdh_s_mel, zdh_s_pre, zdh_s_sub, zqh_i, zqh_s, zq_s ) 
    131131      CALL wrk_alloc( jpij, zintermelt ) 
    132       CALL wrk_alloc( jpij, jkmax, zdeltah, zh_i ) 
     132      CALL wrk_alloc( jpij, nlay_i+1, zdeltah, zh_i ) 
    133133      CALL wrk_alloc( jpij, icount ) 
    134134       
    … …  
    728728      CALL wrk_dealloc( jpij, zdh_s_mel, zdh_s_pre, zdh_s_sub, zqh_i, zqh_s, zq_s ) 
    729729      CALL wrk_dealloc( jpij, zintermelt ) 
    730       CALL wrk_dealloc( jpij, jkmax, zdeltah, zh_i ) 
     730      CALL wrk_dealloc( jpij, nlay_i+1, zdeltah, zh_i ) 
    731731      CALL wrk_dealloc( jpij, icount ) 
    732732      ! 
Note: See TracChangeset for help on using the changeset viewer.