Changeset 15788 for NEMO/branches/UKMO/NEMO_4.0.4_CO9_wadcpl/src/OCE/SBC/tideini.F90

Timestamp:

2022-04-22T12:12:35+02:00 (2 years ago)

Author:

jmedwards01

Message:

Merged in r14075_India_uncoupled to avoid a clash.

File:

• NEMO/branches/UKMO/NEMO_4.0.4_CO9_wadcpl/src/OCE/SBC/tideini.F90 (modified) (3 diffs)

NEMO/branches/UKMO/NEMO_4.0.4_CO9_wadcpl/src/OCE/SBC/tideini.F90

@@ -33 +33 @@
    INTEGER , PUBLIC ::   kt_tide         !:
    REAL(wp), PUBLIC ::   rdttideramp     !:
+   REAL(wp), PUBLIC ::   dn_love_number  !:
    REAL(wp), PUBLIC ::   rn_scal_load    !:
    ! davbyr - read love number from namelist
@@ -81 +82 @@
             WRITE(numout,*) '         Read load potential from file           ln_read_load = ', ln_read_load
             WRITE(numout,*) '         Apply ramp on tides at startup          ln_tide_ramp = ', ln_tide_ramp
+            WRITE(numout,*) '                                              dn_love_number  = ', dn_love_number
             WRITE(numout,*) '         Fraction of SSH used in scal. approx.   rn_scal_load = ', rn_scal_load
             WRITE(numout,*) '         Duration (days) of ramp                 rdttideramp  = ', rdttideramp
@@ -104 +106 @@
       END DO
       !       
+      IF (ln_tide .and.lwp) WRITE(numout,*) 'nb_harmo     = ', nb_harmo
+
       ! Ensure that tidal components have been set in namelist_cfg
       IF( nb_harmo == 0 )   CALL ctl_stop( 'tide_init : No tidal components set in nam_tide' )