Changeset 5164 for branches/2014/dev_r4650_UKMO7_STARTHOUR/NEMOGCM/NEMO/OPA_SRC/SBC

Timestamp:

2015-03-24T16:18:32+01:00 (9 years ago)

Author:

timgraham

Message:

Fixed initial calculation of nsec_day, nsec_month,nsec_week,nsec_year

File:

• branches/2014/dev_r4650_UKMO7_STARTHOUR/NEMOGCM/NEMO/OPA_SRC/SBC/sbctide.F90 (modified) (1 diff)

branches/2014/dev_r4650_UKMO7_STARTHOUR/NEMOGCM/NEMO/OPA_SRC/SBC/sbctide.F90

@@ -49 +49 @@
       !!----------------------------------------------------------------------
 
-      IF( nsec_day == NINT(0.5_wp * rdttra(1)) ) THEN      ! start a new day
+      IF( nsec_day == NINT(0.5_wp * rdttra(1))  ) THEN      ! start a new day
          !
          IF( kt == nit000 ) THEN