driver.F90

Go to the documentation of this file.

 
 
 program driver
 
 use snowdat,       only           : readnesdis, &
                                     readafwa,   &
                                     readautosnow
 
 use model_grid,    only           : read_mdl_grid_info, &
                                     model_grid_cleanup
 
 use snow2mdl,      only           : interp
 
 use program_setup, only           : read_config_nml
 
 implicit none
 
 call w3tagb('SNOW2MDL',2005,350,0000,'NP2')
 
 print*,''
 print*,"***********************"
 print*,"*** BEGIN EXECUTION ***"
 print*,"***********************"
 
!-----------------------------------------------------------------------
! get configuration stuff.
!-----------------------------------------------------------------------
 
 call read_config_nml
 
!-----------------------------------------------------------------------
! read input snow data.
!-----------------------------------------------------------------------
 
 call readautosnow ! autosnow snow cover data
 
 call readnesdis   ! nesdis/ims snow cover data
 
 call readafwa     ! afwa depth data
 
!-----------------------------------------------------------------------
! read information about the model grid to which the
! snow data will be interpolated.
!-----------------------------------------------------------------------
 
 call read_mdl_grid_info
 
!-----------------------------------------------------------------------
! interpolate the data to the model grid, then write
! it to a grib file.
!-----------------------------------------------------------------------
 
 call interp
 
!-----------------------------------------------------------------------
! free up memory
!-----------------------------------------------------------------------
 
 call model_grid_cleanup
 
 print*,''
 print*,'****************************'
 print*,'**** NORMAL TERMINATION ****'
 print*,'****************************'
 
 call w3tage('SNOW2MDL')
 
 stop
 
 end program driver