New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 15422 for NEMO/branches/UKMO/r14075_India_uncoupled/src/OCE/SBC/tide_mod.F90 – NEMO

Ignore:
Timestamp:
2021-10-21T11:19:25+02:00 (3 years ago)
Author:
jcastill
Message:

Changes tested so that they can merged with the CO9 Met Office branch - jpmax_harmo should be 34 with FES14 tides, but the last components are not used anyway

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/UKMO/r14075_India_uncoupled/src/OCE/SBC/tide_mod.F90

    r14075 r15422  
    1616   PUBLIC   tide_init_Wave   ! called by tideini and diaharm modules 
    1717 
    18    INTEGER, PUBLIC, PARAMETER ::   jpmax_harmo = 19   !: maximum number of harmonic 
     18   INTEGER, PUBLIC, PARAMETER ::   jpmax_harmo = 31   !: maximum number of harmonic 
    1919 
    2020   TYPE, PUBLIC ::    tide 
    … …  
    4141 
    4242   SUBROUTINE tide_init_Wave 
     43# if defined key_FES14_tides   
     44#     include "tide_FES14.h90"   
     45# else 
    4346#     include "tide.h90" 
     47# endif 
    4448   END SUBROUTINE tide_init_Wave 
    4549 
    … …  
    331335         zf = zf * zf1 * zf1 
    332336         ! 
     337      CASE( 20 )                 !==  formule 20,  compound waves ( 78 x 78 x 78 x 78 )   
     338         zf1 = nodal_factort(78)   
     339         zf  = zf1 * zf1 * zf1 * zf1   
     340         !  
    333341      CASE( 73 )                 !==  formule 73 
    334342         zs = sin(sh_I) 
Note: See TracChangeset for help on using the changeset viewer.