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

Changeset 8550


Ignore:
Timestamp:
2017-09-20T18:11:47+02:00 (7 years ago)
Author:
clem
Message:

bug fix

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/iceistate.F90

    r8534 r8550  
    417417      ! 5) Snow-ice mass (case ice is fully embedded) 
    418418      !---------------------------------------------- 
    419       snwice_mass  (:,:) = tmask(:,:,1) * ( rhosn * vt_s(:,:) + rhoic * vt_i(:,:)  )   ! snow+ice mass 
     419      snwice_mass  (:,:) = tmask(:,:,1) * SUM( rhosn * v_s(:,:,:) + rhoic * v_i(:,:,:), dim=3  )   ! snow+ice mass 
    420420      snwice_mass_b(:,:) = snwice_mass(:,:) 
    421421      ! 
Note: See TracChangeset for help on using the changeset viewer.