Changeset 10500 for branches

Timestamp:

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

Author:

jcastill

Message:

Fix bug when coupling Stokes drift, y component

Location:

branches/UKMO/AMM15_v3_6_STABLE_package_collate_coupling/NEMOGCM/NEMO/OPA_SRC

Files:

• SBC/sbccpl.F90 (modified) (1 diff)
• step_oce.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  

branches/UKMO/AMM15_v3_6_STABLE_package_collate_coupling/NEMOGCM/NEMO/OPA_SRC/step_oce.F90

@@ -87 +87 @@
    USE zdfric           ! Richardson vertical mixing       (zdf_ric routine)
    USE zdfmxl           ! Mixed-layer depth                (zdf_mxl routine)
-   USE zdfqiao          !Qiao module wave induced mixing   (zdf_qiao routine
+   USE zdfqiao          !Qiao module wave induced mixing   (zdf_qiao routine)
 
    USE zpshde           ! partial step: hor. derivative     (zps_hde routine)