Changeset 10473 for branches/UKMO/AMM15_v3_6_STABLE_package_collate_coupling/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90

Timestamp:

2019-01-08T18:02:36+01:00 (5 years ago)

Author:

jcastill

Message:

Merged branch UKMO/r6232_INGV1_WAVE-coupling@7620

File:

• branches/UKMO/AMM15_v3_6_STABLE_package_collate_coupling/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90 (modified) (4 diffs)

branches/UKMO/AMM15_v3_6_STABLE_package_collate_coupling/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90

@@ -11 +11 @@
    !!             3.5  ! 2013-07  (J. Chanut) Switch to Forward-backward time stepping
    !!             3.6  ! 2013-11  (A. Coward) Update for z-tilde compatibility
+   !!              -   ! 2016-12  (G. Madec, E. Clementi) update for Stoke-Drift divergence
    !!---------------------------------------------------------------------
 #if defined key_dynspg_ts   ||   defined key_esopa
@@ -31 +32 @@
    USE sbctide         ! tides
    USE updtide         ! tide potential
+   USE sbcwave         ! surface wave 
+   ! 
    USE lib_mpp         ! distributed memory computing library
    USE lbclnk          ! ocean lateral boundary conditions (or mpp link)
@@ -333 +336 @@
          END DO
       END DO
+              
+      !!gm  Question here when removing the Vertically integrated trends, we remove the vertically integrated NL trends on momentum....  
+      !!gm  Is it correct to do so ?   I think so...  
+              
+              
       !                                   !* barotropic Coriolis trends (vorticity scheme dependent)
       !                                   ! --------------------------------------------------------
@@ -462 +470 @@
                 &                        + fwfisf(:,:) + fwfisf_b(:,:)                     )
       ENDIF
+      !  
+      IF( ln_sdw ) THEN                         ! Stokes drift divergence added if necessary  
+         zssh_frc(:,:) = zssh_frc(:,:) + div_sd(:,:)  
+      ENDIF  
+      !  
 #if defined key_asminc
       !                                         ! Include the IAU weighted SSH increment