Changeset 5183 for trunk/NEMOGCM/NEMO/LIM_SRC_3

Timestamp:

2015-03-27T11:42:56+01:00 (9 years ago)

Author:

clem

Message:

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

File:

• trunk/NEMOGCM/NEMO/LIM_SRC_3/limcons.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/LIM_SRC_3/limcons.F90

@@ -75 +75 @@
       !! ** Method  : Arithmetics
       !!---------------------------------------------------------------------
-      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                                , INTENT(in   ) ::   ksum   !: number of categories
+      INTEGER                                , INTENT(in   ) ::   klay   !: number of vertical layers
+      REAL(wp), DIMENSION(jpi,jpj,nlay_i,jpl), INTENT(in   ) ::   pin    !: input field
+      REAL(wp), DIMENSION(jpi,jpj)           , INTENT(  out) ::   pout   !: output field
       !
       INTEGER ::   jk, jl   ! dummy loop indices