3 ! use da_wrfvar_esmf_super
5 !-----------------------------------------------------------------------
7 !----------------------------------------------------------------------
11 type(esmf_gridcomp
) :: gcomp
12 type(esmf_state
) :: importstate
, exportstate
13 type(esmf_clock
) :: clock
17 ! this call includes everything that must be done before esmf_initialize()
19 call init_modules(1) ! phase 1 returns after mpi_init() (if it is called)
21 call esmf_initialize( vm
=vm
, defaultcalendar
=esmf_cal_gregorian
, rc
=rc
)
23 call da_wrfvar_init( gcomp
, importstate
, exportstate
, clock
, rc
)
25 call da_wrfvar_run( gcomp
, importstate
, exportstate
, clock
, rc
)
27 call da_wrfvar_finalize( gcomp
, importstate
, exportstate
, clock
, rc
)
29 call esmf_finalize( rc
=rc
)
31 end program da_wrfvar_esmf