subroutine qcsice | ( | real (kind=kind_io8), dimension(len) | ais, |
real (kind=kind_io8), dimension(len) | glacir, | ||
real (kind=kind_io8), dimension(len) | amxice, | ||
real (kind=kind_io8) | aicice, | ||
real (kind=kind_io8) | aicsea, | ||
real (kind=kind_io8) | sllnd, | ||
real (kind=kind_io8), dimension(len) | slmask, | ||
real (kind=kind_io8), dimension(len) | rla, | ||
real (kind=kind_io8), dimension(len) | rlo, | ||
integer | len, | ||
integer | me | ||
) |