Changeset 15405

Timestamp:

2021-10-19T20:29:49+02:00 (3 years ago)

Author:

smueller

Message:

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

File:

• NEMO/releases/r4.0/r4.0-HEAD/src/ICE/iceistate.F90 (modified) (1 diff)

NEMO/releases/r4.0/r4.0-HEAD/src/ICE/iceistate.F90

@@ -417 +417 @@
             !
             DO jk = 1,jpkm1                     ! adjust initial vertical scale factors                
-               e3t_n(:,:,jk) = e3t_0(:,:,jk) * z2d(:,:)
+               e3t_n(:,:,jk) = e3t_0(:,:,jk) * ( z2d(:,:) * tmask(:,:,jk) - ( tmask(:,:,jk) - 1.0_wp ) )
                e3t_b(:,:,jk) = e3t_n(:,:,jk)
                e3t_a(:,:,jk) = e3t_n(:,:,jk)