Changeset 10461 for NEMO/branches/UKMO/dev_r10448_bdyvol/src

Timestamp:

2019-01-07T16:37:52+01:00 (5 years ago)

Author:

mathiot

Message:

rm un-used variables

File:

• NEMO/branches/UKMO/dev_r10448_bdyvol/src/OCE/BDY/bdyvol.F90 (modified) (1 diff)

NEMO/branches/UKMO/dev_r10448_bdyvol/src/OCE/BDY/bdyvol.F90

@@ -64 +64 @@
       !!            (set nn_volctl to 1 in tne namelist for this option)
       !!----------------------------------------------------------------------
-      INTEGER, INTENT(in) ::   kt, kc   ! ocean time-step index, cycle time step
+      INTEGER, INTENT(in) ::   kt, kc   ! ocean time-step index, cycle time-step
       !
       INTEGER  ::   ji, jj, jk, jb, jgrd
       INTEGER  ::   ib_bdy, ii, ij
-      REAL(wp) ::   zubtpecor, ztranst, zeh
+      REAL(wp) ::   zubtpecor, ztranst
       REAL(wp), SAVE :: z_cflxemp   
       REAL(wp), DIMENSION(jpi,jpj), INTENT(inout) :: pua2d, pva2d