Changeset 1056 for trunk/NEMO/OPA_SRC/DYN

Timestamp:

2008-06-04T18:43:38+02:00 (16 years ago)

Author:

ctlod

Message:

trunk: solve one compilation error and one warning message when key_noslip_accurate is active, see ticket: #187

File:

• trunk/NEMO/OPA_SRC/DYN/divcur.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/DYN/divcur.F90

@@ -87 +87 @@
       INTEGER ::   ii, ij, jl     ! temporary integer
       INTEGER ::   ijt, iju       ! temporary integer
-      REAL(wp) ::   zdiv, zdju
       REAL(wp), DIMENSION(   jpi  ,1:jpj+2) ::   zwu   ! workspace
       REAL(wp), DIMENSION(-1:jpi+2,  jpj  ) ::   zwv   ! workspace