Changeset 15405
- Timestamp:
- 2021-10-19T20:29:49+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/releases/r4.0/r4.0-HEAD/src/ICE/iceistate.F90
r14026 r15405 417 417 ! 418 418 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 ) ) 420 420 e3t_b(:,:,jk) = e3t_n(:,:,jk) 421 421 e3t_a(:,:,jk) = e3t_n(:,:,jk)
Note: See TracChangeset
for help on using the changeset viewer.