Line data    Source code

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