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 10415 for NEMO/trunk/src/ICE/icectl.F90 – NEMO

Ignore:
Timestamp:
2018-12-19T12:28:25+01:00 (5 years ago)
Author:
clem
Message:

correct the advection for ice ponds, make a couple of cosmetic changes and fix the conservation issue for sea ice advection (just a bugged control print)

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/trunk/src/ICE/icectl.F90

    r10069 r10415  
    190190 
    191191      ! heat flux 
    192       zhfx  = glob_sum( ( qt_atm_oi - qt_oce_ai - diag_heat - diag_trp_ei - diag_trp_es   & 
    193       !  &              - SUM( qevap_ice * a_i_b, dim=3 )                           & !!clem: I think this line must be commented (but need check) 
    194          &              ) * e1e2t ) * zconv 
     192      zhfx  = glob_sum( ( qt_atm_oi - qt_oce_ai - diag_heat ) * e1e2t ) * zconv 
    195193 
    196194      ! set threshold values and calculate the ice area (+epsi10 to set a threshold > 0 when there is no ice)  
Note: See TracChangeset for help on using the changeset viewer.