mod_map.f90

Go to the documentation of this file.

module mod_map

  use itm_types

  implicit none

  real(r8), allocatable, target :: g11_hel(:, :), g12_hel(:, :), &
   g33_hel(:, :)
  real(r8), allocatable :: chi(:), chikn(:)
  real(r8), allocatable :: cs(:), dqs(:)
  real(r8), allocatable, target :: qs(:)
  real(r8), allocatable :: p0(:), rbphi(:), dp0(:), drbphi(:)

  real(r8) :: cpsurf, radius
  integer(itm_i4) :: nchi, npsi

end module mod_map