Changeset 15370

Timestamp:

2021-10-14T15:18:59+02:00 (3 years ago)

Author:

davestorkey

Message:

NEMO_4.0.4_GO8_package: Use IF block instead of single line IF(x) do this; do that.

File:

• NEMO/branches/UKMO/NEMO_4.0.4_GO8_package/src/OCE/SBC/sbcmod.F90 (modified) (1 diff)

NEMO/branches/UKMO/NEMO_4.0.4_GO8_package/src/OCE/SBC/sbcmod.F90

@@ -450 +450 @@
       IF ( ln_wave .AND. (ln_tauwoc .OR. ln_tauw) ) CALL sbc_wstress( )       ! Wind stress provided by waves 
       !
-      IF( ln_icebergs ) utau_icb(:,:) = utau(:,:) ; vtau_icb(:,:) = vtau(:,:) ! initialise stresses used by icebergs
+      IF( ln_icebergs ) THEN  ! save pure stresses (with no ice-ocean stress) for use by icebergs
+         utau_icb(:,:) = utau(:,:) ; vtau_icb(:,:) = vtau(:,:) 
+      ENDIF
       !
       !                                            !==  Misc. Options  ==!