Changeset 23 for trunk/NEMO/OPA_SRC/DIA/diawri.F90

Timestamp:

2004-02-17T09:54:08+01:00 (20 years ago)

Author:

opalod

Message:

CT : BUGFIX015 : Compilation error is solved

File:

• trunk/NEMO/OPA_SRC/DIA/diawri.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/DIA/diawri.F90

@@ -371 +371 @@
          CALL histdef( nid_W, "soleahtw", "lateral eddy diffusivity"           , "m2/s"   ,   &  ! ahtw
             &          jpi, jpj, nh_W, 1  , 1, 1  , - 99, 32, clop, zsto, zout )
-         IF( lk_traldf_eiv ) THEN
+# if defined key_traldf_eiv 
             CALL histdef( nid_W, "soleaeiw", "eddy induced vel. coeff. at w-point", "m2/s",   &  ! aeiw
                &       jpi, jpj, nh_W, 1  , 1, 1  , - 99, 32, clop, zsto, zout )
-         ENDIF
+# endif
 #endif
 
@@ -482 +482 @@
 #if defined key_traldf_c2d
       CALL histwrite( nid_W, "soleahtw", it, ahtw          , ndim_hT, ndex_hT )   ! lateral eddy diff. coef.
-      IF( lk_traldf_eiv ) THEN
+# if defined key_traldf_eiv
          CALL histwrite( nid_W, "soleaeiw", it, aeiw       , ndim_hT, ndex_hT )   ! EIV coefficient at w-point
-      ENDIF
+# endif
 #endif