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 13180 for NEMO/branches/2020/ticket2487/src/OCE/SBC/sbcfwb.F90 – NEMO

Ignore:
Timestamp:
2020-06-29T21:31:19+02:00 (4 years ago)
Author:
smueller
Message:

Inclusion of ice-shelf cavities in the sea-level compensation due to initial sea-ice/snow mass and in the freshwater-budget adjustment (see ticket #2487)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/ticket2487/src/OCE/SBC/sbcfwb.F90

    r13177 r13180  
    3838   REAL(wp) ::   fwfold    ! fwfold to be suppressed 
    3939   REAL(wp) ::   area      ! global mean ocean surface (interior domain) 
     40   REAL(wp) ::   area2     ! global ocean surface area (interior domain) incl. ice-shelf cavities 
    4041 
    4142   !! * Substitutions 
     
    9192         ! isf cavities are excluded because it can feedback to the melting with generation of inhibition of plumes 
    9293         ! and in case of no melt, it can generate HSSW. 
     94         area2 = glob_sum( 'sbcfwb', e1e2t(:,:) )                        ! global interior-domain ocean surface incl. ice-shelf cavities 
    9395         ! 
    9496#if ! defined key_si3 && ! defined key_cice 
     
    129131                                                      ! sum over the global domain 
    130132            a_fwb   = glob_sum( 'sbcfwb', e1e2t(:,:) * ( sshn(:,:) + snwice_mass(:,:) * r1_rau0 ) ) 
    131             a_fwb   = a_fwb * rau0 / ( area * rday * nyear_len(1) )   ! convert in kg/m3/s 
     133            a_fwb   = a_fwb * rau0 / ( area2 * rday * nyear_len(1) )   ! convert in kg/m3/s 
    132134            fwfold =  a_fwb                           ! current year freshwater budget correction 
    133135            !                                         ! estimate from the previous year budget 
Note: See TracChangeset for help on using the changeset viewer.