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 15405 – NEMO

Changeset 15405


Ignore:
Timestamp:
2021-10-19T20:29:49+02:00 (10 months ago)
Author:
smueller
Message:

Correction of the initial vertical-scale-factor adjustment due to embedded sea ice (ticket #2729)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/releases/r4.0/r4.0-HEAD/src/ICE/iceistate.F90

    r14026 r15405  
    417417            ! 
    418418            DO jk = 1,jpkm1                     ! adjust initial vertical scale factors                 
    419                e3t_n(:,:,jk) = e3t_0(:,:,jk) * z2d(:,:) 
     419               e3t_n(:,:,jk) = e3t_0(:,:,jk) * ( z2d(:,:) * tmask(:,:,jk) - ( tmask(:,:,jk) - 1.0_wp ) ) 
    420420               e3t_b(:,:,jk) = e3t_n(:,:,jk) 
    421421               e3t_a(:,:,jk) = e3t_n(:,:,jk) 
Note: See TracChangeset for help on using the changeset viewer.