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

trunk/NEMOGCM/NEMO/LIM_SRC_3/limcons.F90

@@ -73 +73 @@
       !! ** Method  : Arithmetics
       !!---------------------------------------------------------------------
-      INTEGER                               , INTENT(in   ) ::   ksum   !: number of categories
-      INTEGER                               , INTENT(in   ) ::   klay   !: number of vertical layers
-      REAL(wp), DIMENSION(jpi,jpj,jkmax,jpl), INTENT(in   ) ::   pin   !: input field
-      REAL(wp), DIMENSION(jpi,jpj)          , INTENT(  out) ::   pout   !: output field
+      INTEGER                                  , INTENT(in   ) ::   ksum   !: number of categories
+      INTEGER                                  , INTENT(in   ) ::   klay   !: number of vertical layers
+      REAL(wp), DIMENSION(jpi,jpj,nlay_i+1,jpl), INTENT(in   ) ::   pin   !: input field
+      REAL(wp), DIMENSION(jpi,jpj)             , INTENT(  out) ::   pout   !: output field
       !
       INTEGER ::   jk, jl   ! dummy loop indices