Changeset 10498 for NEMO/branches/UKMO/dev_10448_WAD_SBC_BUGFIX/tests/ISOMIP/MY_SRC/usrdef_zgr.F90

Timestamp:

2019-01-10T15:57:41+01:00 (5 years ago)

Author:

deazer

Message:

Bring in head of trunk to branch and resolve bib merge differences

File:

• NEMO/branches/UKMO/dev_10448_WAD_SBC_BUGFIX/tests/ISOMIP/MY_SRC/usrdef_zgr.F90 (modified) (1 diff)

NEMO/branches/UKMO/dev_10448_WAD_SBC_BUGFIX/tests/ISOMIP/MY_SRC/usrdef_zgr.F90

@@ -150 +150 @@
                   ! e3t into the ice shelf
                   pe3t (ji,jj,ik-1) = pdepw(ji,jj,ik  ) - pdepw(ji,jj,ik-1)
+                  pe3w (ji,jj,ik-1) = pdept(ji,jj,ik-1) - pdept(ji,jj,ik-2)
                END IF
             END DO