da_wrfvar_esmf.f90

1 program da_wrfvar_esmf
2 
3 !   use da_wrfvar_esmf_super
4 
5    !-----------------------------------------------------------------------
6    ! Purpose: TBD
7    !----------------------------------------------------------------------
8 
9    implicit none
10 
11    type(esmf_gridcomp) :: gcomp
12    type(esmf_state)    :: importstate, exportstate
13    type(esmf_clock)    :: clock
14    type(esmf_vm)       :: vm   
15    integer :: rc
16 
17    ! this call includes everything that must be done before esmf_initialize() 
18    ! is called.  
19    call init_modules(1)   ! phase 1 returns after mpi_init() (if it is called)
20 
21    call esmf_initialize( vm=vm, defaultcalendar=esmf_cal_gregorian, rc=rc )
22 
23    call da_wrfvar_init( gcomp, importstate, exportstate, clock, rc )
24 
25    call da_wrfvar_run( gcomp, importstate, exportstate, clock, rc )
26 
27    call da_wrfvar_finalize( gcomp, importstate, exportstate, clock, rc )
28 
29    call esmf_finalize( rc=rc )
30 
31 end program da_wrfvar_esmf
32