Changeset 4873 for trunk/NEMOGCM/NEMO/LIM_SRC_3/iceini.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/iceini.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/LIM_SRC_3/iceini.F90

@@ -66 +66 @@
       !
       !                                ! adequation jpk versus ice/snow layers/categories
-      IF( jpl > jpk .OR. jkmax > jpk .OR. nlay_s > jpk )   &
+      IF( jpl > jpk .OR. (nlay_i+1) > jpk .OR. nlay_s > jpk )   &
          &      CALL ctl_stop( 'STOP',                     &
          &     'ice_init: the 3rd dimension of workspace arrays is too small.',   &