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 5182 – NEMO

Changeset 5182


Ignore:
Timestamp:
2015-03-27T11:41:30+01:00 (9 years ago)
Author:
clem
Message:

LIM3. finishing cleaning useless dimension nlay_i+1 in the routines

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r5167 r5182  
    120120      CALL wrk_alloc( jpij, zdv_res, zda_res, zat_i_1d, zv_frazb, zvrel_1d ) 
    121121      CALL wrk_alloc( jpij,jpl, zv_b, za_b, za_i_1d, zv_i_1d, zoa_i_1d, zsmv_i_1d ) 
    122       CALL wrk_alloc( jpij,nlay_i+1,jpl, ze_i_1d ) 
     122      CALL wrk_alloc( jpij,nlay_i,jpl, ze_i_1d ) 
    123123      CALL wrk_alloc( jpi,jpj, zvrel ) 
    124124 
    … …  
    539539      CALL wrk_dealloc( jpij, zdv_res, zda_res, zat_i_1d, zv_frazb, zvrel_1d ) 
    540540      CALL wrk_dealloc( jpij,jpl, zv_b, za_b, za_i_1d, zv_i_1d, zoa_i_1d, zsmv_i_1d ) 
    541       CALL wrk_dealloc( jpij,nlay_i+1,jpl, ze_i_1d ) 
     541      CALL wrk_dealloc( jpij,nlay_i,jpl, ze_i_1d ) 
    542542      CALL wrk_dealloc( jpi,jpj, zvrel ) 
    543543      ! 
Note: See TracChangeset for help on using the changeset viewer.