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/ICE/iceistate.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/ICE/iceistate.F90

    r13179 r13180  
    388388         IF( .NOT.ln_linssh ) THEN 
    389389            ! 
    390             WHERE( ht_0(:,:) > 0 )   ;   z2d(:,:) = 1._wp + sshn(:,:)*tmask(:,:,1) / ht_0(:,:) 
    391             ELSEWHERE                ;   z2d(:,:) = 1._wp   ;   END WHERE 
     390            z2d(:,:) = 1._wp + sshn(:,:) * ssmask(:,:) / ( ht_0(:,:) + 1._wp - ssmask(:,:) ) 
    392391            ! 
    393392            DO jk = 1,jpkm1                     ! adjust initial vertical scale factors                 
Note: See TracChangeset for help on using the changeset viewer.