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 11737 – NEMO

Changeset 11737


Ignore:
Timestamp:
2019-10-18T20:13:07+02:00 (5 years ago)
Author:
smueller
Message:

Addition of terdiurnal components to the computation of the tidal potential (ticket #2194)

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2019/dev_r10742_ENHANCE-12_SimonM-Tides/src/OCE/TDE/tide_mod.F90

    r11722 r11737  
    260260      !!---------------------------------------------------------------------- 
    261261      !!                 ***  ROUTINE tide_init_potential  *** 
     262      !! 
     263      !! *** Reference: 
     264      !!      CT71) Cartwright, D. E. and Tayler, R. J. (1971): New computations of 
     265      !!            the Tide-generating Potential. Geophys. J. R. astr. Soc. 23, 
     266      !!            pp. 45-74. DOI: 10.1111/j.1365-246X.1971.tb01803.x 
     267      !! 
    262268      !!---------------------------------------------------------------------- 
    263269      INTEGER  ::   ji, jj, jk   ! dummy loop indices 
    … …  
    292298               CASE( 2 )                                                  !   semi-diurnal tidal constituents 
    293299                  zcs = zcons * COS( zlat )**2 
     300               CASE( 3 )                                                  !   Terdiurnal tidal constituents; the colatitude-dependent 
     301                  zcs = zcons * COS( zlat )**3                            !   factor is sin(theta)^3 (Table 2 of CT71) 
    294302               CASE DEFAULT                                               !   constituents of higher frequency are not included 
    295303                  zcs = 0.0_wp 
Note: See TracChangeset for help on using the changeset viewer.