da_wrfvar_run.inc

1 subroutine da_wrfvar_run()
2 
3    !-------------------------------------------------------------------------
4    ! Purpose: run wrfvar
5    ! Once the top-level domain has been allocated, configured, and
6    ! initialized, the model time integration is ready to proceed.  The start
7    ! and stop times for the domain are set to the start and stop time of the
8    ! model run, and then <a href=integrate.html>integrate</a> is called to
9    ! advance the domain forward through that specified time interval.  On
10    ! return, the simulation is completed.  A Mediation Layer-provided
11    ! subroutine, <a href=med_shutdown_io.html>med_shutdown_io</a> is called
12    ! to allow the the model to do any I/O specific cleanup and shutdown, and
13    ! then the WRF Driver Layer routine <a
14    ! href=wrf_shutdown.html>wrf_shutdown</a> (quilt servers would be
15    ! directed to shut down here) is called to properly end the run,
16    ! including shutting down the communications (for example, most comm
17    ! layers would call mpi_finalize at this point if they are using MPI).
18    ! 
19    !  The forecast integration for the most coarse grid is now started.  The
20    !  integration is from the first step (1) to the last step of the simulation.
21    !-------------------------------------------------------------------------
22 
23    implicit none
24 
25    if (trace_use) call da_trace_entry("da_wrfvar_run")
26 
27    call da_wrfvar_interface (head_grid, config_flags)
28 
29    if (trace_use) call da_trace_exit("da_wrfvar_run")
30 
31 end subroutine da_wrfvar_run
32 
33