Changeset 7913


Ignore:
Timestamp:
2017-04-15T10:20:21+02:00 (3 years ago)
Author:
gm
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynvor.F90

    r7753 r7913  
    181181         ELSE                                               ! total vorticity trend 
    182182                             CALL vor_een( kt, ntot, un , vn , ua, va )   ! total vorticity trend 
    183             IF( ln_stcor )   CALL vor_ene( kt, ncor, usd, vsd, ua, va )   ! add the Stokes-Coriolis trend 
     183            IF( ln_stcor )   CALL vor_een( kt, ncor, usd, vsd, ua, va )   ! add the Stokes-Coriolis trend 
    184184         ENDIF 
    185185         ! 
Note: See TracChangeset for help on using the changeset viewer.