Changeset 14266 for NEMO/branches/NERC/NEMO_4.0.4_CO9_package_tides/src/OCE/SBC/tideini.F90

Timestamp:

2021-01-05T19:23:36+01:00 (3 years ago)

Author:

dbyrne

Message:

Long period tide forcing, variable love number, new nodal equation 20 added

File:

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

NEMO/branches/NERC/NEMO_4.0.4_CO9_package_tides/src/OCE/SBC/tideini.F90

@@ -34 +34 @@
    REAL(wp), PUBLIC ::   rdttideramp     !:
    REAL(wp), PUBLIC ::   rn_scal_load    !:
+   ! davbyr - read love number from namelist
+   REAL(wp), PUBLIC ::   dn_love_number  !:
+   ! END davbyr
    CHARACTER(lc), PUBLIC ::   cn_tide_load   !: 
 
@@ -54 +57 @@
       !
       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
       !!----------------------------------------------------------------------
       !
@@ -80 +83 @@
             WRITE(numout,*) '         Fraction of SSH used in scal. approx.   rn_scal_load = ', rn_scal_load
             WRITE(numout,*) '         Duration (days) of ramp                 rdttideramp  = ', rdttideramp
+            ! davbyr - Love number (one line)
+            WRITE(numout,*) '         Love Number                             dn_love_number = ', dn_love_number
          ENDIF
       ELSE