Changeset 9923 for NEMO/branches/2018/dev_r9838_ENHANCE04_MLF/src/OCE/SBC/sbctide.F90

Timestamp:

2018-07-11T10:24:17+02:00 (6 years ago)

Author:

gm

Message:

#1911 (ENHANCE-04): step I.2: dev_r9838_ENHANCE04_MLF

File:

• NEMO/branches/2018/dev_r9838_ENHANCE04_MLF/src/OCE/SBC/sbctide.F90 (modified) (2 diffs)

NEMO/branches/2018/dev_r9838_ENHANCE04_MLF/src/OCE/SBC/sbctide.F90

@@ -48 +48 @@
       !!----------------------------------------------------------------------
       
-      IF( nsec_day == NINT(0.5_wp * rdt) .OR. kt == nit000 ) THEN      ! start a new day
+      IF( nsec_day == NINT(0.5_wp * rn_Dt) .OR. kt == nit000 ) THEN      ! start a new day
          !
          IF( kt == nit000 )THEN
@@ -72 +72 @@
          ! Temporarily set nsec_day to beginning of day.
          nsec_day_orig = nsec_day
-         IF ( nsec_day /= NINT(0.5_wp * rdt) ) THEN 
-            kt_tide = kt - (nsec_day - 0.5_wp * rdt)/rdt
-            nsec_day = NINT(0.5_wp * rdt)
+         IF ( nsec_day /= NINT(0.5_wp * rn_Dt) ) THEN 
+            kt_tide = kt - (nsec_day - 0.5_wp * rn_Dt) / rn_Dt
+            nsec_day = NINT(0.5_wp * rn_Dt)
          ELSE
             kt_tide = kt