Line data    Source code

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