Ignore:
Timestamp:
2015-03-27T11:42:56+01:00 (6 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/limcons.F90

    r5177 r5183  
    7575      !! ** Method  : Arithmetics 
    7676      !!--------------------------------------------------------------------- 
    77       INTEGER                                  , INTENT(in   ) ::   ksum   !: number of categories 
    78       INTEGER                                  , INTENT(in   ) ::   klay   !: number of vertical layers 
    79       REAL(wp), DIMENSION(jpi,jpj,nlay_i+1,jpl), INTENT(in   ) ::   pin   !: input field 
    80       REAL(wp), DIMENSION(jpi,jpj)             , INTENT(  out) ::   pout   !: output field 
     77      INTEGER                                , INTENT(in   ) ::   ksum   !: number of categories 
     78      INTEGER                                , INTENT(in   ) ::   klay   !: number of vertical layers 
     79      REAL(wp), DIMENSION(jpi,jpj,nlay_i,jpl), INTENT(in   ) ::   pin    !: input field 
     80      REAL(wp), DIMENSION(jpi,jpj)           , INTENT(  out) ::   pout   !: output field 
    8181      ! 
    8282      INTEGER ::   jk, jl   ! dummy loop indices 
Note: See TracChangeset for help on using the changeset viewer.