jhan_JaC_Redux_JAC_5.7_Radmaster_surface_albedosn

surface_albedosn

This file is the same as in the trunk currently, with 2 exceptions:

1.) Getting the air temp at the radiation call is problematic in the UM, AND consulting numerous opinions over many months, nobody seems to understand why the air temperature is necessary in the calculation of soilalbedo, albeit a lake. So we have commented it out -w hich has zero affect at Loobos anyway where there are no lakes.

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

2.) calcsoilalbedo switch has not been explicitly passed, and these cable types do not exist here, which makes entire call problematic.

   ! calc soil albedo based on colour - Ticket #27

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