Changeset 12453 for NEMO/branches/UKMO/r12083_India_uncoupled/src/OCE/SBC/tideini.F90

Timestamp:

2020-02-25T16:29:34+01:00 (4 years ago)

Author:

jcastill

Message:

First implementation of the branch - compiling after merge

File:

• NEMO/branches/UKMO/r12083_India_uncoupled/src/OCE/SBC/tideini.F90 (modified) (4 diffs)

NEMO/branches/UKMO/r12083_India_uncoupled/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    !:
    CHARACTER(lc), PUBLIC ::   cn_tide_load   !: 
@@ -54 +55 @@
       !
       NAMELIST/nam_tide/ln_tide, ln_tide_pot, ln_scal_load, ln_read_load, cn_tide_load, &
-                  &     ln_tide_ramp, rn_scal_load, rdttideramp, clname
+                  &     ln_tide_ramp, rn_scal_load, rdttideramp, dn_love_number, clname
       !!----------------------------------------------------------------------
       !
@@ -78 +79 @@
             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
@@ -99 +101 @@
       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' )