<HTML> <BODY BGCOLOR=#ccccdd LINK=#0000aa VLINK=#0000ff ALINK=#ff0000 ><BASE TARGET="bottom_target"><PRE>
<A NAME='DA_WRFVAR_ESMF'><A href='../../html_code/main/da_wrfvar_esmf.f90.html#DA_WRFVAR_ESMF' TARGET='top_target'><IMG SRC="../../gif/bar_yellow.gif" border=0></A>
program da_wrfvar_esmf,2
! use da_wrfvar_esmf_super
!-----------------------------------------------------------------------
! Purpose: TBD
!----------------------------------------------------------------------
implicit none
type(esmf_gridcomp) :: gcomp
type(esmf_state) :: importstate, exportstate
type(esmf_clock) :: clock
type(esmf_vm) :: vm
integer :: rc
! this call includes everything that must be done before esmf_initialize()
! is called.
call init_modules(1) ! phase 1 returns after mpi_init() (if it is called)
call esmf_initialize( vm=vm, defaultcalendar=esmf_cal_gregorian, rc=rc )
call da_wrfvar_init( gcomp, importstate, exportstate, clock, rc )
call da_wrfvar_run
( gcomp, importstate, exportstate, clock, rc )
call da_wrfvar_finalize( gcomp, importstate, exportstate, clock, rc )
call esmf_finalize( rc=rc )
end program da_wrfvar_esmf