Changeset 32 for trunk/NEMO/OPA_SRC/TRA/trazdf_iso.F90

Timestamp:

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

Author:

opalod

Message:

CT : UPDATE001 : First major NEMO update

File:

• trunk/NEMO/OPA_SRC/TRA/trazdf_iso.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/TRA/trazdf_iso.F90

@@ -137 +137 @@
          zsfw, zdis, zdjs, zdj1s,   &
          zavt, zavs
-#if defined key_traldf_eiv
+#if defined key_traldf_eiv   ||   defined key_esopa
       REAL(wp), DIMENSION(jpi,jpk) ::   &
          ztfwg, zsfwg
@@ -538 +538 @@
 CONTAINS
    SUBROUTINE tra_zdf_iso( kt )              ! empty routine
-      WRITE(*,*) kt
+      WRITE(*,*) 'tra_zdf_iso: You should not have seen this print! error?', kt
    END SUBROUTINE tra_zdf_iso
 #endif