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 12419 for branches/UKMO/AMM15_v3_6_STABLE_package_collate_utils325/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90 – NEMO

Ignore:
Timestamp:
2020-02-20T11:13:56+01:00 (5 years ago)
Author:
jcastill
Message:

Changes for Met Office utils ticket 325: do inverse barometer correction in coupled mode only if ln_apr_dyn=true

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/UKMO/AMM15_v3_6_STABLE_package_collate_utils325/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r11277 r12419  
    12111211      !    
    12121212      IF( srcv(jpr_mslp)%laction ) THEN                    ! UKMO SHELF effect of atmospheric pressure on SSH    
     1213          IF( ln_apr_dyn ) THEN 
    12131214          IF( kt /= nit000 )   ssh_ibb(:,:) = ssh_ib(:,:)    !* Swap of ssh_ib fields    
    12141215        
    … …  
    12411242             CALL iom_rstput( kt, nitrst, numrow, 'ssh_ibb' , ssh_ib )  
    12421243          ENDIF  
     1244          ENDIF 
    12431245         
    12441246          ! Update mean ssh  
Note: See TracChangeset for help on using the changeset viewer.