Ignore:
Timestamp:
2020-02-25T16:29:34+01:00 (13 months ago)
Author:
jcastill
Message:

First implementation of the branch - compiling after merge

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/r12083_India_uncoupled/src/OCE/SBC/tide_mod.F90

    r11715 r12453  
    1616   PUBLIC   tide_init_Wave   ! called by tideini and diaharm modules 
    1717 
     18# if defined key_FES14_tides  
     19   INTEGER, PUBLIC, PARAMETER ::   jpmax_harmo = 34   !: maximum number of harmonic  
     20# else 
    1821   INTEGER, PUBLIC, PARAMETER ::   jpmax_harmo = 19   !: maximum number of harmonic 
     22# endif 
    1923 
    2024   TYPE, PUBLIC ::    tide 
     
    4145 
    4246   SUBROUTINE tide_init_Wave 
     47# if defined key_FES14_tides  
     48#     include "tide_FES14.h90"  
     49# else 
    4350#     include "tide.h90" 
     51# endif 
    4452   END SUBROUTINE tide_init_Wave 
    4553 
     
    331339         zf = zf * zf1 * zf1 
    332340         ! 
     341      CASE( 20 )                 !==  formule 20,  compound waves ( 78 x 78 x 78 x 78 )  
     342         zf1 = nodal_factort(78)  
     343         zf  = zf1 * zf1 * zf1 * zf1  
     344         ! 
    333345      CASE( 73 )                 !==  formule 73 
    334346         zs = sin(sh_I) 
Note: See TracChangeset for help on using the changeset viewer.