Changeset 11963 for NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbctide.F90

Timestamp:

2019-11-26T12:08:01+01:00 (4 years ago)

Author:

laurent

Message:

More accurate comments/info, better syntax, simplifications, etc

File:

• NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbctide.F90 (modified) (1 diff)

NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbctide.F90

@@ -72 +72 @@
          ! Temporarily set nsec_day to beginning of day.
          nsec_day_orig = nsec_day
-         IF ( nsec_day /= NINT(0.5_wp * rdt) ) THEN 
+         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)