Changeset 12453 for NEMO/branches/UKMO/r12083_India_uncoupled/src/OCE/SBC/tide_mod.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/tide_mod.F90 (modified) (3 diffs)

NEMO/branches/UKMO/r12083_India_uncoupled/src/OCE/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)