Changeset 10491 for NEMO/trunk/src/OCE/DYN/dynhpg.F90
- Timestamp:
- 2019-01-09T20:53:37+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/DYN/dynhpg.F90
r10425 r10491 245 245 END DO 246 246 IF (ikt >= 2) ziceload(ji,jj) = ziceload(ji,jj) + (2._wp * znad + zrhdtop_isf(ji,jj) + zrhd(ji,jj,ikt-1)) & 247 & * ( risfdep(ji,jj) - gdept_ 1d(ikt-1) )247 & * ( risfdep(ji,jj) - gdept_n(ji,jj,ikt-1) ) 248 248 END DO 249 249 END DO
Note: See TracChangeset
for help on using the changeset viewer.