Changeset 12453 for NEMO/branches/UKMO/r12083_India_uncoupled/src/OCE/SBC/sbctide.F90

Timestamp:

2020-02-25T16:29:34+01:00 (4 years ago)

Author:

jcastill

Message:

First implementation of the branch - compiling after merge

File:

• NEMO/branches/UKMO/r12083_India_uncoupled/src/OCE/SBC/sbctide.F90 (modified) (3 diffs)

NEMO/branches/UKMO/r12083_India_uncoupled/src/OCE/SBC/sbctide.F90

@@ -16 +16 @@
    USE ioipsl         ! NetCDF IPSL library
    USE lbclnk         ! ocean lateral boundary conditions (or mpp link)
+   USE bdytides
 
    IMPLICIT NONE
@@ -108 +109 @@
 
       DO jk = 1, nb_harmo
-         zcons = 0.7_wp * Wave(ntide(jk))%equitide * ftide(jk)
+         ! love number now provides in tide namelist 
+         zcons = dn_love_number * Wave(ntide(jk))%equitide * ftide(jk)
          DO ji = 1, jpi
             DO jj = 1, jpj
@@ -119 +121 @@
                IF    ( Wave(ntide(jk))%nutide == 1 )  THEN  ;  zcs = zcons * SIN( 2._wp*zlat )
                ELSEIF( Wave(ntide(jk))%nutide == 2 )  THEN  ;  zcs = zcons * COS( zlat )**2
+               ! Add tide potential for long period tides 
+               ELSEIF( Wave(ntide(jk))%nutide == 0 )  THEN  ;  zcs = zcons * (0.5_wp-1.5_wp*SIN(zlat)**2._wp)
                ELSE                                         ;  zcs = 0._wp
                ENDIF