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 ) |