Changeset 7761 for trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90
- Timestamp:
- 2017-03-06T18:58:35+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90
r7753 r7761 1330 1330 jpi = size(fsp,1) 1331 1331 jpj = size(fsp,2) 1332 jpkm1 = size(fsp,3) - 11332 jpkm1 = MAX( 1, size(fsp,3) - 1 ) 1333 1333 ! 1334 1334 IF (polynomial_type == 1) THEN ! Constrained Cubic Spline
Note: See TracChangeset
for help on using the changeset viewer.