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 15370 for NEMO/branches/UKMO/NEMO_4.0.4_GO8_package/src/OCE/SBC/sbcmod.F90 – NEMO

Ignore:
Timestamp:
2021-10-14T15:18:59+02:00 (12 months ago)
Author:
davestorkey
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0.4_GO8_package/src/OCE/SBC/sbcmod.F90

    r15341 r15370  
    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(:,:) ! initialise stresses used by icebergs 
     452      IF( ln_icebergs ) THEN  ! save pure stresses (with no ice-ocean stress) for use 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.