Changeset 156 for trunk/NEMO/OPA_SRC/DTA

Timestamp:

2004-10-19T15:37:38+02:00 (20 years ago)

Author:

opalod

Message:

CL + CT: UPDATE101: Avoid warning messages at compilation process

Location:

trunk/NEMO/OPA_SRC/DTA

Files:

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

trunk/NEMO/OPA_SRC/DTA/dtasal.F90

@@ -79 +79 @@
 
       INTEGER, PARAMETER ::   jpmois = 12, jpf = 1
-      INTEGER ::   ji, jj, jk, jl    ! dummy loop indicies
+      INTEGER ::   ji, jj, jl           ! dummy loop indicies
       INTEGER ::   &
          imois, iman, ik, i15,       &  ! temporary integers
-         ipi, ipj, ipk, itime,       &  !    "          "
-         il0, il1, ii0, ii1, ij0, ij1   !    "          "
+         ipi, ipj, ipk, itime           !    "          "
+#  if defined key_tradmp
+      INTEGER ::   &
+         jk, il0, il1,               &  ! temporary integers
+         ii0, ii1, ij0, ij1             !    "          "
+# endif
       INTEGER, DIMENSION(jpmois) ::   istep
       REAL(wp) ::   &

trunk/NEMO/OPA_SRC/DTA/dtatem.F90

@@ -91 +91 @@
       INTEGER ::   &
          imois, iman, itime, ik ,    &  ! temporary integers
-         i15, ipi, ipj, ipk,         &  !    "          "
-         il0, il1, ii0, ii1, ij0, ij1   !    "          "
+         i15, ipi, ipj, ipk             !    "          "
+#  if defined key_tradmp
+      INTEGER ::   &
+         il0, il1, ii0, ii1, ij0, ij1   ! temporary integers
+# endif
 
       INTEGER, DIMENSION(jpmois) ::   istep