Changeset 2104 for branches/DEV_r2006_merge_TRA_TRC/NEMO/OPA_SRC/DTA

Timestamp:

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

Author:

cetlod

Message:

update DEV_r2006_merge_TRA_TRC according to review

Location:

branches/DEV_r2006_merge_TRA_TRC/NEMO/OPA_SRC/DTA

Files:

• dtasal.F90 (modified) (1 diff)
• dtatem.F90 (modified) (1 diff)

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

@@ -69 +69 @@
       !! * 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 
       REAL(wp)::   zfac
 #endif
-      REAL(wp), DIMENSION(jpk) ::   zsaldta            ! auxiliary array for interpolation
+      REAL(wp), DIMENSION(jpk) :: zsaldta         ! auxiliary array for interpolation
       CHARACTER(len=100)       :: cn_dir          ! Root directory for location of ssr files
       TYPE(FLD_N)              :: sn_sal

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