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 10839 for NEMO/branches/2019/dev_r10742_ENHANCE-12_SimonM-Tides/src/OCE – NEMO

Ignore:
Timestamp:
2019-04-04T17:55:33+02:00 (5 years ago)
Author:
smueller
Message:

Adjustments to enable the use of subroutine tide_init_harmonics for the initialisation of harmonic analysis of a number of tidal constituents that differs from the number of constituents selected for tidal forcing (ticket #2194)

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r10822 r10839  
    433433      zscale =  rad / ( 36525._wp * 86400._wp )  
    434434      ! 
    435       DO jh = 1, nb_harmo 
     435      DO jh = 1, size(ptide_harmo) 
    436436         ptide_harmo(jh)%omega = (  zomega_T * ptide_comp( jh )%nT   & 
    437437            &                         + zomega_s * ptide_comp( jh )%ns   & 
    … …  
    460460      !!---------------------------------------------------------------------- 
    461461      ! 
    462       DO jh = 1, nb_harmo 
     462      DO jh = 1, size(ptide_harmo) 
    463463         !  Phase of the tidal potential relative to the Greenwhich  
    464464         !  meridian (e.g. the position of the fictuous celestial body). Units are radian: 
Note: See TracChangeset for help on using the changeset viewer.