Changeset 4960 for branches/2014/dev_r4642_WavesWG/NEMOGCM/NEMO/OPA_SRC/step.F90

Timestamp:

2014-12-02T16:13:53+01:00 (9 years ago)

Author:

rblod

Message:

dev_r4642_WavesWG : stokes-coriolis from sbcwave + time splitting

File:

• branches/2014/dev_r4642_WavesWG/NEMOGCM/NEMO/OPA_SRC/step.F90 (modified) (1 diff)

branches/2014/dev_r4642_WavesWG/NEMOGCM/NEMO/OPA_SRC/step.F90

@@ -184 +184 @@
                                   CALL dyn_ldf      ( kstp )   ! lateral mixing
           IF( ln_neptsimp )       CALL dyn_nept_cor ( kstp )   ! add Neptune velocities (simplified)
+          IF( ln_stcor    )       CALL dyn_stcor    ( kstp )   ! Stokes-Coriolis forcing (ln_stcor set in SBC/sbc_oce.F90)
 #if defined key_agrif
           IF(.NOT. Agrif_Root())  CALL Agrif_Sponge_dyn        ! momentum sponge