Changeset 10685 for branches/UKMO/r8395_India_uncoupled/NEMOGCM/NEMO/OPA_SRC/SBC/tide_mod.F90

Timestamp:

2019-02-14T16:55:25+01:00 (5 years ago)

Author:

jcastill

Message:

Changes as Ash's files

File:

• branches/UKMO/r8395_India_uncoupled/NEMOGCM/NEMO/OPA_SRC/SBC/tide_mod.F90 (modified) (3 diffs)

branches/UKMO/r8395_India_uncoupled/NEMOGCM/NEMO/OPA_SRC/SBC/tide_mod.F90

@@ -16 +16 @@
    PUBLIC   tide_init_Wave   ! called by tideini and diaharm modules
 
+# if defined key_FES14_tides
+   INTEGER, PUBLIC, PARAMETER ::   jpmax_harmo = 34   !: maximum number of harmonic
+# else
    INTEGER, PUBLIC, PARAMETER ::   jpmax_harmo = 19   !: maximum number of harmonic
+# endif
 
    TYPE, PUBLIC ::    tide
@@ -41 +45 @@
 
    SUBROUTINE tide_init_Wave
+# if defined key_FES14_tides
+#     include "tide_FES14.h90"
+# else
 #     include "tide.h90"
+# endif
    END SUBROUTINE tide_init_Wave
 
@@ -331 +339 @@
          zf = zf * zf1 * zf1
          !
+      CASE( 20 )                 !==  formule 20,  compound waves ( 78 x 78 x 78 x 78 )
+         zf1 = nodal_factort(78)
+         zf  = zf1 * zf1 * zf1 * zf1
+         !
       CASE( 73 )                 !==  formule 73
          zs = sin(sh_I)