jhan_JaC_Redux_JAC_5.7_Radmaster_snow_albedo

snow albedo

This file is untouched except for the following:

1.) Access to air temperature on first call to radiation (from UM) is problematic. In concert with the fact that no-one can explain why air temp. is even in play here, NOR any objection gathered after wide consultation - we are ditching it

   ! lakes: hard-wired number to be removed in future

!H!WHERE( surface_type == 16 ) & !H! soilalbsoilf = -0.022*( MIN( 275., MAX( 260., MetTk ) ) - 260. ) + 0.45

2.) Logical switch to turn this off is not passed AND args (ssnow, soil) no longer exist here, making this un-called module problematic. Low priority to re-instate.

   ! calc soil albedo based on colour - Ticket #27

!H!IF (calcsoilalbedo) THEN !H! CALL soilcol_albedo(ssnow, soil) !H!END IF