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