Changeset 10491 for NEMO/trunk/tests/ISOMIP/MY_SRC/usrdef_zgr.F90
- Timestamp:
- 2019-01-09T20:53:37+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/tests/ISOMIP/MY_SRC/usrdef_zgr.F90
r10425 r10491 150 150 ! e3t into the ice shelf 151 151 pe3t (ji,jj,ik-1) = pdepw(ji,jj,ik ) - pdepw(ji,jj,ik-1) 152 pe3w (ji,jj,ik-1) = pdept(ji,jj,ik-1) - pdept(ji,jj,ik-2) 152 153 END IF 153 154 END DO
Note: See TracChangeset
for help on using the changeset viewer.