Changeset 7913 for trunk/NEMOGCM/NEMO/OPA_SRC/DYN

Timestamp:

2017-04-15T10:20:21+02:00 (7 years ago)

Author:

gm

Message:

#1886 : Surface wave - Stokes-Coriolis term compute with EEN scheme when ln_dynvor_een=T

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynvor.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynvor.F90

@@ -181 +181 @@
          ELSE                                               ! total vorticity trend
                              CALL vor_een( kt, ntot, un , vn , ua, va )   ! total vorticity trend
-            IF( ln_stcor )   CALL vor_ene( kt, ncor, usd, vsd, ua, va )   ! add the Stokes-Coriolis trend
+            IF( ln_stcor )   CALL vor_een( kt, ncor, usd, vsd, ua, va )   ! add the Stokes-Coriolis trend
          ENDIF
          !