Changeset 4873 for trunk/NEMOGCM/NEMO/LIM_SRC_3/limthd_lac.F90

Timestamp:

2014-11-18T18:53:04+01:00 (9 years ago)

Author:

clem

Message:

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

File:

• trunk/NEMOGCM/NEMO/LIM_SRC_3/limthd_lac.F90 (modified) (2 diffs)

trunk/NEMOGCM/NEMO/LIM_SRC_3/limthd_lac.F90

@@ -121 +121 @@
       CALL wrk_alloc( jpij, zdv_res, zda_res, zat_i_1d, zv_frazb, zvrel_1d )
       CALL wrk_alloc( jpij,jpl, zv_b, za_b, za_i_1d, zv_i_1d, zoa_i_1d, zsmv_i_1d )
-      CALL wrk_alloc( jpij,jkmax,jpl, ze_i_1d )
+      CALL wrk_alloc( jpij,nlay_i+1,jpl, ze_i_1d )
       CALL wrk_alloc( jpi,jpj, zvrel )
 
@@ -542 +542 @@
       CALL wrk_dealloc( jpij, zdv_res, zda_res, zat_i_1d, zv_frazb, zvrel_1d )
       CALL wrk_dealloc( jpij,jpl, zv_b, za_b, za_i_1d, zv_i_1d, zoa_i_1d, zsmv_i_1d )
-      CALL wrk_dealloc( jpij,jkmax,jpl, ze_i_1d )
+      CALL wrk_dealloc( jpij,nlay_i+1,jpl, ze_i_1d )
       CALL wrk_dealloc( jpi,jpj, zvrel )
       !