subroutine newice |
( |
real (kind=kind_io8), dimension(len) |
slianl, |
|
|
real (kind=kind_io8), dimension(len) |
slifcs, |
|
|
|
tsfanl, |
|
|
|
tsffcs, |
|
|
integer |
len, |
|
|
integer |
lsoil, |
|
|
|
sihnew, |
|
|
|
sicnew, |
|
|
real (kind=kind_io8), dimension(len) |
sihanl, |
|
|
real (kind=kind_io8), dimension(len) |
sicanl, |
|
|
real (kind=kind_io8), dimension(len,4) |
albanl, |
|
|
real (kind=kind_io8), dimension(len) |
snoanl, |
|
|
real (kind=kind_io8), dimension(len) |
zoranl, |
|
|
real (kind=kind_io8), dimension(len,lsoil) |
smcanl, |
|
|
real (kind=kind_io8), dimension(len,lsoil) |
stcanl, |
|
|
real (kind=kind_io8) |
albsea, |
|
|
real (kind=kind_io8) |
snosea, |
|
|
real (kind=kind_io8) |
zorsea, |
|
|
real (kind=kind_io8) |
smcsea, |
|
|
real (kind=kind_io8) |
smcice, |
|
|
real (kind=kind_io8) |
tsfmin, |
|
|
real (kind=kind_io8) |
tsfice, |
|
|
real (kind=kind_io8) |
albice, |
|
|
real (kind=kind_io8) |
zorice, |
|
|
real (kind=kind_io8) |
tgice, |
|
|
real (kind=kind_io8), dimension(len) |
rla, |
|
|
real (kind=kind_io8), dimension(len) |
rlo, |
|
|
integer |
me |
|
) |
| |