Changeset 12188


Ignore:
Timestamp:
2019-12-11T16:20:57+01:00 (6 months ago)
Author:
dancopsey
Message:

Remove the leads term from the calculation of the net heat flux at the basal sea ice interface.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0.1_remove_leads_botm/src/ICE/icethd_dh.F90

    r11715 r12188  
    144144      ! 
    145145      DO ji = 1, npti 
    146          zf_tt(ji)         = qcn_ice_bot_1d(ji) + qsb_ice_bot_1d(ji) + fhld_1d(ji)  
     146         zf_tt(ji)         = qcn_ice_bot_1d(ji) + qsb_ice_bot_1d(ji)  
    147147         zq_bot(ji)        = MAX( 0._wp, zf_tt(ji) * rdt_ice ) 
    148148      END DO 
Note: See TracChangeset for help on using the changeset viewer.