Changeset 28 for trunk/NEMO/OPA_SRC/LDF/ldfeiv.F90

Timestamp:

2004-02-17T10:08:46+01:00 (20 years ago)

Author:

opalod

Message:

CT : BUGFIX014 : Compilation problem is solved

File:

• trunk/NEMO/OPA_SRC/LDF/ldfeiv.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/LDF/ldfeiv.F90

@@ -295 +295 @@
          DO jj = 2, jpjm1
             DO ji = fs_2, fs_jpim1   ! vector opt.
-               aeiw(ji,jj) = MIN( aeiw(ji,jj), 1000. )
+               aeiw(ji,jj) = MIN( aeiw(ji,jj), aeiv0 )
             END DO
          END DO
@@ -336 +336 @@
 #else
    !!----------------------------------------------------------------------
-   !!   Default option                                         Empty module
+   !!   Default option                                         Dummy module
    !!----------------------------------------------------------------------
 CONTAINS
-   SUBROUTINE ldf_eiv             ! Empty routine
+   SUBROUTINE ldf_eiv( kt )       ! Empty routine
+      WRITE(*,*) 'ldf_eiv: You should not have seen this print! error?', kt
    END SUBROUTINE ldf_eiv
 #endif