Changeset 5239 for branches/UKMO/dev_r5021_nn_etau_revision/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfmxl.F90

Timestamp:

2015-04-29T10:35:19+02:00 (9 years ago)

Author:

davestorkey

Message:

Commit changes to UKMO nn_etau revision branch (including clearing
SVN keywords).

File:

• branches/UKMO/dev_r5021_nn_etau_revision/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfmxl.F90 (modified) (3 diffs, 1 prop)

branches/UKMO/dev_r5021_nn_etau_revision/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfmxl.F90

@@ -40 +40 @@
    !!----------------------------------------------------------------------
    !! NEMO/OPA 4.0 , NEMO Consortium (2011)
-   !! $Id$ 
+   !! $Id$
    !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
@@ -89 +89 @@
       CALL wrk_alloc( jpi,jpj, imld )
 
-      IF( kt == nit000 ) THEN
+      IF( kt <= nit000 ) THEN
          IF(lwp) WRITE(numout,*)
          IF(lwp) WRITE(numout,*) 'zdf_mxl : mixed layer depth'
@@ -133 +133 @@
       END DO
       IF( .NOT.lk_offline ) THEN            ! no need to output in offline mode
+      IF( kt >= nit000 ) THEN               ! workaround for calls before SOMETHING reads the XIOS namelist
          CALL iom_put( "mldr10_1", hmlp )   ! mixed layer depth
          CALL iom_put( "mldkz5"  , hmld )   ! turbocline depth
+      ENDIF
       ENDIF