Changeset 5183 for trunk/NEMOGCM/NEMO
- Timestamp:
- 2015-03-27T11:42:56+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/LIM_SRC_3/limcons.F90
r5177 r5183 75 75 !! ** Method : Arithmetics 76 76 !!--------------------------------------------------------------------- 77 INTEGER 78 INTEGER 79 REAL(wp), DIMENSION(jpi,jpj,nlay_i +1,jpl), INTENT(in ) :: pin!: input field80 REAL(wp), DIMENSION(jpi,jpj) 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 81 81 ! 82 82 INTEGER :: jk, jl ! dummy loop indices
Note: See TracChangeset
for help on using the changeset viewer.