Changeset 1221 for trunk/NEMO/C1D_SRC/diawri_c1d.F90

Timestamp:

2008-10-31T14:48:31+01:00 (15 years ago)

Author:

ctlod

Message:

correct compilation errors when using key_c1d cpp key, see ticket: #274

File:

• trunk/NEMO/C1D_SRC/diawri_c1d.F90 (modified) (2 diffs)

trunk/NEMO/C1D_SRC/diawri_c1d.F90

@@ -229 +229 @@
          CALL histdef( nid_T, "votkeend", "TKE: Turbulent kinetic energy"       , "m2/s"   ,   &  ! TKE
             &          jpi, jpj, nh_T, ipk, 1, ipk, nz_T, 32, clop, zsto, zout )
+         CALL histdef( nid_T, "sotkehlc", "TKE: Langmuir Circulation depth"     , "m"      ,   &  ! hlc
+            &          jpi, jpj, nh_T, 1  , 1, 1  , -99 , 32, clop, zsto, zout )
 #endif
 #if defined key_zdfkpp
@@ -322 +324 @@
       CALL histwrite( nid_T, "votlsric", it, e_ric         , ndim_T , ndex_T )    ! local Richardson number
       CALL histwrite( nid_T, "votkeend", it, en            , ndim_T , ndex_T )    ! TKE
+      CALL histwrite( nid_T, "sotkehlc", it, hlc           , ndim_hT, ndex_hT )   ! TKE Langmuir Circulation depth
 #endif
 #if defined key_zdfkpp