Changeset 5872 for branches/2014/dev_r4650_UKMO7_STARTHOUR/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90

Timestamp:

2015-11-09T19:20:54+01:00 (8 years ago)

Author:

djlea

Message:

Fixes to enable restartability for runs of less than one day.

File:

• branches/2014/dev_r4650_UKMO7_STARTHOUR/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90 (modified) (2 diffs)

branches/2014/dev_r4650_UKMO7_STARTHOUR/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90

@@ -11 +11 @@
    !!             -   ! 2010-05  (D. Lea)  add calc_month_len routine based on day_init 
    !!            3.4  ! 2012-10  (A. Weaver and K. Mogensen) Fix for direct initialization
-   !!                 ! 2014-09  (D. Lea)  local calc_date removed use routine from OBS
+   !!                 ! 2014-09  (D. Lea)  Local calc_date removed use routine from OBS
+   !!                 ! 2015-11  (D. Lea)  Handle non-zero initial time of day
    !!----------------------------------------------------------------------
 
@@ -378 +379 @@
          ENDIF
 
-         IF (     ( z_inc_dateb < ndastp + nn_time0*0.01_wp ) &
+         IF (     ( z_inc_dateb < ndastp + nn_time0*0.0001_wp ) &
             & .OR.( z_inc_datef > ditend_date ) ) &
             & CALL ctl_warn( ' Validity time of assimilation increments is ', &