Changeset 13127


Ignore:
Timestamp:
2020-06-18T14:11:23+02:00 (7 weeks ago)
Author:
dancopsey
Message:

Add missing ice area to convert thickness changes into volume changes.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0.1_fix_cpl/src/ICE/icethd_pnd.F90

    r12686 r13127  
    190190            ! 
    191191            ! available meltwater for melt ponding [m, >0] and fraction  
    192             tot_mlt = -( dh_i_sum(ji)*rhoi + dh_s_mlt(ji)*rhos ) * z1_rhow  
     192            tot_mlt = -( dh_i_sum(ji)*rhoi + dh_s_mlt(ji)*rhos ) * z1_rhow * a_i_1d(ji) 
    193193            IF ( ln_pnd_totfrac ) THEN 
    194194               zfr_mlt = rn_pnd_min + ( rn_pnd_max - rn_pnd_min ) * at_i_1d(ji) ! Use total ice fraction 
Note: See TracChangeset for help on using the changeset viewer.