Changeset 14266 for NEMO/branches/NERC/NEMO_4.0.4_CO9_package_tides/src/OCE/SBC/tide_mod.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/tide_mod.F90 (modified) (2 diffs)

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

@@ -16 +16 @@
    PUBLIC   tide_init_Wave   ! called by tideini and diaharm modules
 
-   INTEGER, PUBLIC, PARAMETER ::   jpmax_harmo = 31   !: maximum number of harmonic
+   ! davbyr: increase maximum number of harmonics from 19 to 34
+   INTEGER, PUBLIC, PARAMETER ::   jpmax_harmo = 34   !: maximum number of harmonic
 
    TYPE, PUBLIC ::    tide
@@ -331 +332 @@
          zf = zf * zf1 * zf1
          !
+         
+      !--- davbyr 11/2017
+      CASE( 20 )                 !==  formule 20,  compound waves ( 78 x 78 x 78 x 78 )
+         zf1 = nodal_factort(78)
+         zf  = zf1 * zf1 * zf1 * zf1
+      !--- END davbyr
       CASE( 73 )                 !==  formule 73
          zs = sin(sh_I)