subroutine usesgt | ( | real (kind=kind_io8), dimension(len) | sig1t, |
real (kind=kind_io8), dimension(len) | slianl, | ||
real (kind=kind_io8), dimension(len) | tg3anl, | ||
integer | len, | ||
integer | lsoil, | ||
real (kind=kind_io8), dimension(len) | tsfanl, | ||
real (kind=kind_io8), dimension(len,lsoil) | stcanl, | ||
real (kind=kind_io8) | tsfimx | ||
) |