SUBROUTINE CLOSE_OUTPUT() ! UW Land Surface Hydrology Group implementation of SAC/SNOW17 model ! modified from NLDAS implementation ! author: Ted Bohn, tbohn@hydro.washington.edu ! CLOSES OUTPUT FILES ! driverMod contains definitions of all global driver variables USE driverMod IMPLICIT NONE ! Define local variables INTEGER K DO K = 1,6 status = NF_CLOSE(OUT_NCIDS(K)) END DO END