Changeset 7099 for branches/UKMO/r5518_INGV1_WAVE-coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

Timestamp:

2016-10-25T18:15:30+02:00 (8 years ago)

Author:

jcastill

Message:

Changes as in r7078 of the original ING branch: branches/2015/dev_r5936_INGV1_WAVE

File:

• branches/UKMO/r5518_INGV1_WAVE-coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90 (modified) (2 diffs)

branches/UKMO/r5518_INGV1_WAVE-coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

@@ -89 +89 @@
          &             ln_blk_mfs, ln_apr_dyn, nn_ice, nn_ice_embd, ln_dm2dc   , ln_rnf   ,   &
          &             ln_ssr    , nn_isf    , nn_fwb, ln_cdgw    , ln_wave    , ln_sdw   ,   &
-         &             nn_lsm    , nn_limflx , nn_components, ln_cpl
+         &             ln_tauoc  , ln_stcor  , nn_lsm, nn_limflx  , nn_components, ln_cpl 
       INTEGER  ::   ios
       INTEGER  ::   ierr, ierr0, ierr1, ierr2, ierr3, jpm
@@ -381 +381 @@
       END SELECT
 
+      IF (ln_wave .AND. ln_tauoc) THEN 
+            utau(:,:) = utau(:,:)*tauoc_wave(:,:) 
+            vtau(:,:) = vtau(:,:)*tauoc_wave(:,:) 
+            taum(:,:) = taum(:,:)*tauoc_wave(:,:) 
+      ! 
+            SELECT CASE( nsbc ) 
+            CASE(  0,1,2,3,5,-1 )  ; 
+                IF(lwp) WRITE(numout,*) 'WARNING: You are subtracting the wave stress to the ocean. & 
+                        & If not requested select ln_tauoc=.false' 
+            END SELECT 
+      ! 
+      END IF 
       IF( ln_mixcpl )        CALL sbc_cpl_rcv ( kt, nn_fsbc, nn_ice )   ! forced-coupled mixed formulation after forcing