Line data    Source code

       1            1 : program test_atm_quietly
       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            1 :    call setup
      10            1 :    test_verbosely = .false.
      11              : 
      12            1 :    call do_test_atm(test_verbosely, cgrav, eos_handle, kap_handle)
      13              : 
      14            1 : end program test_atm_quietly