Changeset 2104 for branches/DEV_r2006_merge_TRA_TRC/NEMO/OPA_SRC/DTA/dtatem.F90

Timestamp:

2010-09-17T14:35:46+02:00 (14 years ago)

Author:

cetlod

Message:

update DEV_r2006_merge_TRA_TRC according to review

File:

• branches/DEV_r2006_merge_TRA_TRC/NEMO/OPA_SRC/DTA/dtatem.F90 (modified) (1 diff)

branches/DEV_r2006_merge_TRA_TRC/NEMO/OPA_SRC/DTA/dtatem.F90

@@ -74 +74 @@
       !! * Local declarations
       INTEGER ::   ji, jj, jk, jl, jkk            ! dummy loop indicies
-      INTEGER ::   imois, iman, i15 , ik          ! temporary integers
-      INTEGER ::   ierror
+      INTEGER ::   ik, ierror                     ! temporary integers
 #if defined key_tradmp
       INTEGER ::   il0, il1, ii0, ii1, ij0, ij1   ! temporary integers
 #endif
-      REAL(wp)::   zxy, zl
+      REAL(wp)::   zl
 #if defined key_orca_lev10
       INTEGER ::   ikr, ikw, ikt, jjk