mod_dete.f90

Go to the documentation of this file.

module mod_dete

  use itm_types

  implicit none
 
  type ne_te
    sequence
    integer(itm_i4) :: shape
    real(r8) :: h, h_0, slope, psi_m, delta, psi_0
    real(r8), dimension(3) :: alpha
    real(r8) :: fac
  end type ne_te

  type(ne_te) :: ne, te

end module mod_dete