subroutine flake::flake_main |
( |
real (kind = kind_phys), intent(in) | depthw, |
|
|
real (kind = kind_phys), intent(in) | depthbs, |
|
|
real (kind = kind_phys), intent(in) | t_bs, |
|
|
real (kind = kind_phys), intent(in) | par_coriolis, |
|
|
real (kind = kind_phys), intent(in) | extincoef_water_typ, |
|
|
real (kind = kind_phys), intent(in) | del_time, |
|
|
real (kind = kind_phys), intent(in) | t_sfc_p, |
|
|
real (kind = kind_phys), intent(out) | t_sfc_n, |
|
|
real (kind = kind_phys), intent(in) | t_bot_2_in, |
|
|
real (kind = kind_phys), intent(out) | t_bot_2_out ) |