Changeset 4351 for branches/2013/dev_ECMWF_waves/NEMOGCM/NEMO/OPA_SRC/step.F90

Timestamp:

2014-01-16T15:27:29+01:00 (10 years ago)

Author:

acc

Message:

Branch 2013/dev_ECMWF_waves ticket #1216. First set of code imports from ECMWF. Untested

File:

• branches/2013/dev_ECMWF_waves/NEMOGCM/NEMO/OPA_SRC/step.F90 (modified) (1 diff)

branches/2013/dev_ECMWF_waves/NEMOGCM/NEMO/OPA_SRC/step.F90

@@ -284 +284 @@
                                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        ! momemtum sponge