New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 15369 for NEMO/releases/r4.0/r4.0-HEAD/src/OCE/SBC/sbcmod.F90 – NEMO

Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/releases/r4.0/r4.0-HEAD/src/OCE/SBC/sbcmod.F90

    r15367 r15369  
    450450      IF ( ln_wave .AND. (ln_tauwoc .OR. ln_tauw) ) CALL sbc_wstress( )       ! Wind stress provided by waves  
    451451      ! 
    452       IF( ln_icebergs ) utau_icb(:,:) = utau(:,:) ; vtau_icb(:,:) = vtau(:,:) ! save pure wind stresses (with no ice-ocean stress) to be used by icebergs 
     452      IF( ln_icebergs ) THEN  ! save pure wind stresses (with no ice-ocean stress) to be used by icebergs 
     453         utau_icb(:,:) = utau(:,:) ; vtau_icb(:,:) = vtau(:,:) 
     454      ENDIF  
    453455      ! 
    454456      !                                            !==  Misc. Options  ==! 
Note: See TracChangeset for help on using the changeset viewer.