Changeset 12188 for NEMO/branches/UKMO

Timestamp:

2019-12-11T16:20:57+01:00 (4 years ago)

Author:

dancopsey

Message:

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

File:

• NEMO/branches/UKMO/NEMO_4.0.1_remove_leads_botm/src/ICE/icethd_dh.F90 (modified) (1 diff)

NEMO/branches/UKMO/NEMO_4.0.1_remove_leads_botm/src/ICE/icethd_dh.F90

@@ -144 +144 @@
       !
       DO ji = 1, npti
-         zf_tt(ji)         = qcn_ice_bot_1d(ji) + qsb_ice_bot_1d(ji) + fhld_1d(ji) 
+         zf_tt(ji)         = qcn_ice_bot_1d(ji) + qsb_ice_bot_1d(ji) 
          zq_bot(ji)        = MAX( 0._wp, zf_tt(ji) * rdt_ice )
       END DO