Changeset 683 for trunk/NEMO/OPA_SRC/ZDF

Timestamp:

2007-06-29T18:37:27+02:00 (17 years ago)

Author:

rblod

Message:

nemo_v2_update_021 : SM : use jpdom_autoglo in restarts

File:

• trunk/NEMO/OPA_SRC/ZDF/zdftke.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/ZDF/zdftke.F90

@@ -81 +81 @@
    !!----------------------------------------------------------------------
    !!   OPA 9.0 , LOCEAN-IPSL (2006) 
-   !! $Header$ 
+   !! $Header: /home/opalod/NEMOCVSROOT/NEMO/OPA_SRC/ZDF/zdftke.F90,v 1.16 2007/06/05 10:39:27 opalod Exp $ 
    !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
@@ -800 +800 @@
         IF( ln_rstart ) THEN
            IF( iom_varid( numror, 'en' ) > 0 .AND. .NOT.(ln_rstke) ) THEN 
-              CALL iom_get( numror, jpdom_local, 'en', en )
+              CALL iom_get( numror, jpdom_autoglo, 'en', en )
            ELSE
               IF(lwp .AND. iom_varid(numror,'en') > 0 ) WRITE(numout,*) ' ===>>>> : previous run without tke scheme'