Go to the source code of this file.
Functions/Subroutines | |
subroutine | glt_updice_r (kinit, omsg, tpdom, tpsit, psalt_a, pice_a, tptfl, pemps_a, psalf_a) |
subroutine glt_updice_r | ( | integer, intent(in) | kinit, |
character(*), intent(in) | omsg, | ||
type(t_dom), dimension(np), intent(in) | tpdom, | ||
type(t_sit), dimension(nt,np), intent(in) | tpsit, | ||
real, intent(inout) | psalt_a, | ||
real, intent(inout) | pice_a, | ||
type(t_tfl), dimension(np), intent(in), optional | tptfl, | ||
real, intent(inout), optional | pemps_a, | ||
real, intent(inout), optional | psalf_a | ||
) |