Ignore:
Timestamp:
2020-02-25T16:29:34+01:00 (12 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/sbctide.F90

    r11715 r12453  
    1616   USE ioipsl         ! NetCDF IPSL library 
    1717   USE lbclnk         ! ocean lateral boundary conditions (or mpp link) 
     18   USE bdytides 
    1819 
    1920   IMPLICIT NONE 
     
    108109 
    109110      DO jk = 1, nb_harmo 
    110          zcons = 0.7_wp * Wave(ntide(jk))%equitide * ftide(jk) 
     111         ! love number now provides in tide namelist  
     112         zcons = dn_love_number * Wave(ntide(jk))%equitide * ftide(jk) 
    111113         DO ji = 1, jpi 
    112114            DO jj = 1, jpj 
     
    119121               IF    ( Wave(ntide(jk))%nutide == 1 )  THEN  ;  zcs = zcons * SIN( 2._wp*zlat ) 
    120122               ELSEIF( Wave(ntide(jk))%nutide == 2 )  THEN  ;  zcs = zcons * COS( zlat )**2 
     123               ! Add tide potential for long period tides  
     124               ELSEIF( Wave(ntide(jk))%nutide == 0 )  THEN  ;  zcs = zcons * (0.5_wp-1.5_wp*SIN(zlat)**2._wp) 
    121125               ELSE                                         ;  zcs = 0._wp 
    122126               ENDIF 
Note: See TracChangeset for help on using the changeset viewer.