subroutine | flake_interface (dmsnowdt_in, i_atm_in, q_atm_lw_in, height_u_in, height_tq_in, u_a_in, t_a_in, q_a_in, p_a_in, depth_w, fetch, depth_bs, t_bs, par_coriolis, del_time, t_snow_in, t_ice_in, t_mnw_in, t_wml_in, t_bot_in, t_b1_in, c_t_in, h_snow_in, h_ice_in, h_ml_in, h_b1_in, t_sfc_p, ch, cm, albedo_water, water_extinc, t_snow_out, t_ice_out, t_mnw_out, t_wml_out, t_bot_out, t_b1_out, c_t_out, h_snow_out, h_ice_out, h_ml_out, h_b1_out, t_sfc_n, hflx_out, evap_out, gflx_out, lflx_out, t_bot_2_in, t_bot_2_out, ustar, q_sfc, chh, cmm) |