SUBROUTINE OPEN_RESTART() ! UW Land Surface Hydrology Group implementation of SAC/SNOW17 model ! modified from NLDAS implementation ! author: Ted Bohn, tbohn@hydro.washington.edu ! CREATES RESTART FILE ! driverMod contains definitions of all global driver variables USE driverMod IMPLICIT NONE ! Define local variables INTEGER ndims,nvars,ngatts,natts,unlimited INTEGER xdimid,ydimid,banddimid INTEGER rowvarid,colvarid,latvarid,lonvarid,cellidvarid,landmaskvarid,varid CHARACTER*20 name INTEGER xtype, dims2d(2),dims3d(3) INTEGER I,J,NT ! Create RESTART file END SUBROUTINE OPEN_RESTART