var/da/da_main/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