TYPE_SNOW_INIT Subroutine

SUBROUTINE TYPE_SNOW_INIT(YSURF_SNOW)
!
TYPE(SURF_SNOW), INTENT(INOUT) :: YSURF_SNOW
!
YSURF_SNOW%DEPTH => NULL()
YSURF_SNOW%WSNOW => NULL()
YSURF_SNOW%HEAT => NULL()
YSURF_SNOW%T => NULL()
YSURF_SNOW%TEMP => NULL()
YSURF_SNOW%RHO => NULL()
YSURF_SNOW%ALB => NULL()
YSURF_SNOW%ALBVIS => NULL()
YSURF_SNOW%ALBNIR => NULL()
YSURF_SNOW%ALBFIR => NULL()
YSURF_SNOW%EMIS => NULL()
YSURF_SNOW%TS => NULL()
YSURF_SNOW%GRAN1 => NULL()
YSURF_SNOW%GRAN2 => NULL()
YSURF_SNOW%HIST => NULL()
YSURF_SNOW%AGE => NULL()
!
END SUBROUTINE TYPE_SNOW_INIT