Changeset 15369 for NEMO/releases

Timestamp:

2021-10-14T15:11:28+02:00 (3 years ago)

Author:

davestorkey

Message:

r4.0-HEAD : modification for last change (#2728). Change to an IF block rather than single line IF(x) do this;do that.
Seems to work for me but probably not safe. Thanks to Pierre for spotting that.

File:

• NEMO/releases/r4.0/r4.0-HEAD/src/OCE/SBC/sbcmod.F90 (modified) (1 diff)

NEMO/releases/r4.0/r4.0-HEAD/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(:,:) ! save pure wind stresses (with no ice-ocean stress) to be used by icebergs
+      IF( ln_icebergs ) THEN  ! save pure wind stresses (with no ice-ocean stress) to be used by icebergs
+         utau_icb(:,:) = utau(:,:) ; vtau_icb(:,:) = vtau(:,:)
+      ENDIF 
       !
       !                                            !==  Misc. Options  ==!