Line data    Source code

       1            1 : program test_atm
       2              : 
       3            1 :    use const_def, only: dp
       4              :    use test_atm_setup, only: setup
       5              :    use test_atm_support, only: do_test_atm, &
       6              :                                test_verbosely, cgrav, eos_handle, kap_handle
       7              : 
       8              :    implicit none
       9              : 
      10              :    logical :: test_verbosely_in
      11            1 :    real(dp) :: cgrav_in
      12              :    integer :: eos_handle_in, kap_handle_in
      13              : 
      14            1 :    call setup
      15            1 :    test_verbosely = .true.
      16            1 :    test_verbosely_in = test_verbosely
      17            1 :    cgrav_in = cgrav
      18            1 :    eos_handle_in = eos_handle
      19            1 :    kap_handle_in = kap_handle
      20              : 
      21            1 :    call do_test_atm(test_verbosely, cgrav, eos_handle, kap_handle)
      22              : 
      23            1 : end program test_atm