Changeset 4960 for branches/2014/dev_r4642_WavesWG/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.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/SBC/sbcmod.F90 (modified) (1 diff)

branches/2014/dev_r4642_WavesWG/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

@@ -324 +324 @@
       ! Read wave parameters if Stokes-Coriolis forcing OR wave parameters for TKE are needed
       ! Also read it if drag coefficient to ensure that we use the neutral 10m from WAM.
-      IF (ln_stcor .OR. ln_wavetke .OR. ln_tauoc .OR. ln_cdgw) THEN
+      IF (ln_wavetke .OR. ln_tauoc .OR. ln_cdgw) THEN
          CALL sbc_wavepar( kt )
       ENDIF