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 10466 for NEMO/branches/UKMO/dev_10448_WAD_SBC_BUGFIX/src/OCE/DOM/istate.F90 – NEMO

Ignore:
Timestamp:
2019-01-08T11:15:29+01:00 (5 years ago)
Author:
deazer
Message:

Cosmetic changes to fit coding standards.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/UKMO/dev_10448_WAD_SBC_BUGFIX/src/OCE/DOM/istate.F90

    r10456 r10466  
    100100            ! 
    101101            sshb(:,:)   = 0._wp               ! set the ocean at rest 
    102             IF(ll_wd) then 
     102            IF( ll_wd ) THEN 
    103103               sshb(:,:) =  -ssh_ref  ! Added in 30 here for bathy that adds 30 as Iterative test CEOD  
    104104               ! 
Note: See TracChangeset for help on using the changeset viewer.