Changeset 7807 for branches/UKMO/r6232_HZG_WAVE/NEMOGCM/NEMO/OPA_SRC/step.F90

Timestamp:

2017-03-17T10:44:05+01:00 (7 years ago)

Author:

jcastill

Message:

Changes as in HZG wave forcing branch, but adapted to r6232

File:

• branches/UKMO/r6232_HZG_WAVE/NEMOGCM/NEMO/OPA_SRC/step.F90 (modified) (1 diff)

branches/UKMO/r6232_HZG_WAVE/NEMOGCM/NEMO/OPA_SRC/step.F90

@@ -323 +323 @@
                                CALL dyn_vor( kstp )         ! vorticity term including Coriolis
                                CALL dyn_ldf( kstp )         ! lateral mixing
+        IF ( ln_stcor )        CALL dyn_stcor ( kstp )      ! WAVE2NEMO add Stokes-Coriolis forcing
         IF( ln_neptsimp )      CALL dyn_nept_cor( kstp )    ! add Neptune velocities (simplified)
 #if defined key_agrif