Changeset 6448 for branches/UKMO/dev_r5518_GC3p0_package/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfmxl.F90

Timestamp:

2016-04-07T18:21:30+02:00 (8 years ago)

Author:

dancopsey

Message:

Merged in changeset 5239 of dev_r5021_nn_etau_revision

File:

• branches/UKMO/dev_r5518_GC3p0_package/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfmxl.F90 (modified) (3 diffs)

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

@@ -104 +104 @@
       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'
@@ -147 +147 @@
       ! no need to output in offline mode
       IF( .NOT.lk_offline ) THEN   
+      IF( kt >= nit000 ) THEN               ! workaround for calls before SOMETHING reads the XIOS namelist
          IF ( iom_use("mldr10_1") ) THEN
             IF( ln_isfcav ) THEN
@@ -161 +162 @@
             END IF
          END IF
+      ENDIF
       ENDIF