suydam_initialization.f90

Go to the documentation of this file.

subroutine suydam_initialization(ias, tbb, tbf)
!-----------------------------------------------------------------------
! subroutine to initialize the input variables, also writes the header
! of the output file
!-----------------------------------------------------------------------

  use itm_types
  use mod_helena_io, only : out_he
  use mod_output

  implicit none

  integer(itm_i4), intent(in) :: ias
  real(r8), intent(out) :: tbb, tbf

  tbb = -100._r8
  if (ias == 0) tbb = 0._r8
  tbf =  100._r8

  if (standard_output) then
    write(out_he, *) '******************************************'
    write(out_he, *) '*   ballooning stability                 *'
    write(out_he, *) '*   program suydam_ballooning version 1  *'
    write(out_he, *) '******************************************'
    write(out_he, *)  tbb, tbf
  end if

  return
end subroutine suydam_initialization