Changeset 10500 for branches/UKMO/AMM15_v3_6_STABLE_package_collate_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

Timestamp:

2019-01-10T17:09:57+01:00 (5 years ago)

Author:

jcastill

Message:

Fix bug when coupling Stokes drift, y component

File:

• branches/UKMO/AMM15_v3_6_STABLE_package_collate_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90 (modified) (1 diff)

branches/UKMO/AMM15_v3_6_STABLE_package_collate_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

@@ -566 +566 @@
       IF( TRIM(sn_rcv_sdrft%cldes ) == 'coupled' )  THEN
          srcv(jpr_sdrftx)%laction = .TRUE.  
+         srcv(jpr_sdrfty)%laction = .TRUE.  
          cpl_sdrft = .TRUE.
       ENDIF