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/sbcice_cice.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/sbcice_cice.F90

    r13179 r13180  
    236236               ! 
    237237               DO jk = 1,jpkm1                     ! adjust initial vertical scale factors 
    238                   e3t_n(:,:,jk) = e3t_0(:,:,jk)*( 1._wp + sshn(:,:)*tmask(:,:,1)/(ht_0(:,:) + 1.0 - tmask(:,:,1)) ) 
    239                   e3t_b(:,:,jk) = e3t_0(:,:,jk)*( 1._wp + sshb(:,:)*tmask(:,:,1)/(ht_0(:,:) + 1.0 - tmask(:,:,1)) ) 
     238                  e3t_n(:,:,jk) = e3t_0(:,:,jk)*( 1._wp + sshn(:,:)*ssmask(:,:)/(ht_0(:,:) + 1._wp - ssmask(:,:)) ) 
     239                  e3t_b(:,:,jk) = e3t_0(:,:,jk)*( 1._wp + sshb(:,:)*ssmask(:,:)/(ht_0(:,:) + 1._wp - ssmask(:,:)) ) 
    240240               ENDDO 
    241241               e3t_a(:,:,:) = e3t_b(:,:,:) 
Note: See TracChangeset for help on using the changeset viewer.