Changeset 11963 for NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/tideini.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/tideini.F90 (modified) (2 diffs)

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

@@ -68 +68 @@
       !
       IF( ln_tide ) THEN
-         IF (lwp) THEN
+         IF(lwp) THEN
             WRITE(numout,*)
             WRITE(numout,*) 'tide_init : Initialization of the tidal components'
@@ -127 +127 @@
       kt_tide = nit000
       !
-      IF (.NOT.ln_scal_load ) rn_scal_load = 0._wp
+      IF(.NOT.ln_scal_load ) rn_scal_load = 0._wp
       !
    END SUBROUTINE tide_init