Module ModsAMIE
  
  use ModSize
  use ModAMIE

  integer, parameter :: iaslon = 25
  integer, parameter :: iaslat = 24

  real*4, dimension(iaslon,iaslat) ::  aspx,  aspxi,  &
       aspyn, aspyni, aspyp, aspypi, aspzn, aspzni,   &
       aspzp, aspzpi, aspf,  aspfi

  real*4 :: asdlat, asdlon
  real*4 :: save_efpot(MAX_NTIMES,0:lonmx,0:ithmx)
  real*4 :: save_ee(MAX_NTIMES,0:lonmx,0:ithmx)
  real*4 :: save_en(MAX_NTIMES,0:lonmx,0:ithmx)
  integer :: iamie_read_flag

end