Changeset 11216

Timestamp:

2019-07-04T15:33:32+02:00 (5 years ago)

Author:

kingr

Message:

Fix logic in sbcflx so that ocean-only AMM7 results are unchanged.

File:

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

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

@@ -285 +285 @@
                zmod = 0.5 * SQRT( ztx * ztx + zty * zty )
                taum(ji,jj) = zmod
-               IF( .NOT. ln_shelf_flx ) THEN
+               IF ( .NOT. (ln_shelf_flx .AND. ln_cpl)) THEN
                wndm(ji,jj) = SQRT( zmod * zcoef )
                ENDIF