Changeset 508 for trunk/NEMO/OPA_SRC/ZDF/zdftke_jki.F90

Timestamp:

2006-10-03T17:58:55+02:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_update_071:RB: add iom for restart and reorganization of restart

File:

• trunk/NEMO/OPA_SRC/ZDF/zdftke_jki.F90 (modified) (4 diffs)

trunk/NEMO/OPA_SRC/ZDF/zdftke_jki.F90

@@ -5 +5 @@
    !!                 turbulent closure parameterization
    !!=====================================================================
+   !! History :
+   !!   9.0  !  02-08  (G. Madec)  autotasking optimization
+   !!----------------------------------------------------------------------
 #if defined key_zdftke   ||   defined key_esopa
    !!----------------------------------------------------------------------
@@ -23 +26 @@
    USE taumod          ! surface stress
    USE prtctl          ! Print control
+   USE restart         ! only for lrst_oce
 
    IMPLICIT NONE
@@ -99 +103 @@
       !!      Gaspar et al., jgr, 95, 1990,
       !!      Blanke and Delecluse, jpo, 1991
-      !! History :
-      !!   9.0  !  02-08  (G. Madec)  autotasking optimization
       !!----------------------------------------------------------------------
       !! * Modules used
@@ -518 +520 @@
       CALL lbc_lnk( avt, 'W', 1. )
 
+      ! write en in restart file
+      ! ------------------------
+      IF( lrst_oce )   CALL tke_rst( kt, 'WRITE' )
+
       IF(ln_ctl) THEN
          CALL prt_ctl(tab3d_1=en  , clinfo1=' tke  - e: ', tab3d_2=avt , clinfo2=' t: ', ovlap=1, kdim=jpk)