Changeset 34 for trunk/NEMO/OPA_SRC/TRA/trazdf_iso_vopt.F90

Timestamp:

2004-02-17T16:07:07+01:00 (20 years ago)

Author:

opalod

Message:

CT : BUGFIX016 : Compilation error is solved

File:

• trunk/NEMO/OPA_SRC/TRA/trazdf_iso_vopt.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/TRA/trazdf_iso_vopt.F90

@@ -506 +506 @@
          ztavg, zsavg,           &  ! temporary scalars
          zcoef0, zcoef3,         &  !    "         "
-         zcoef4, zcoeg3,         &  !    "         "
-         zbtr, zmku, zmkv  ,     &  !    "         "
-         zuwki, zvwki, zuwk,     &  !    "         "
-         zvwk, ztav, zsav
+         zcoef4,                 &  !    "         "
+         zbtr, zmku, zmkv,       &  !    "         "
+#if defined key_traldf_eiv
+         zcoeg3,                 &  !    "         "
+         zuwki, zvwki,           &  !    "         "
+         zuwk, zsav,             &  !    "         "
+#endif
+         zvwk, ztav
       REAL(wp), DIMENSION(jpi,jpj,jpk) ::   &
          zwz, zwt, ztfw, zsfw       ! temporary workspace arrays
@@ -604 +608 @@
       END DO
 
+#if defined key_traldf_eiv
       !                              ! ---------------------------------------!
-      IF( lk_traldf_eiv ) THEN       ! Eddy induced vertical advective fluxes !
-         !                           ! ---------------------------------------!
+      !                              ! Eddy induced vertical advective fluxes !
+      !                              ! ---------------------------------------!
          zwx(:,:, 1 ) = 0.e0
          zwy(:,:, 1 ) = 0.e0
@@ -650 +655 @@
             END DO
          END DO
-      ENDIF
+#endif
 
       ! I.5 Divergence of vertical fluxes added to the general tracer trend