subroutine sfc_sice_pre::sfc_sice_pre_run |
( |
integer |
im, |
|
|
real(kind=kind_phys), dimension(im), intent(in) |
fice, |
|
|
real(kind=kind_phys), dimension(im), intent(in) |
hice, |
|
|
real(kind=kind_phys), dimension(im), intent(in) |
tisfc, |
|
|
real(kind=kind_phys), dimension(im), intent(in) |
prsik, |
|
|
real(kind=kind_phys), dimension(im), intent(in) |
prslk, |
|
|
real(kind=kind_phys), dimension(im), intent(out) |
cice, |
|
|
real(kind=kind_phys), dimension(im), intent(out) |
zice, |
|
|
real(kind=kind_phys), dimension(im), intent(out) |
tice, |
|
|
real(kind=kind_phys), dimension(im), intent(out) |
work3, |
|
|
character(len=*), intent(out) |
errmsg, |
|
|
integer, intent(out) |
errflg |
|
) |
| |