Line data    Source code

       1             : module dycore
       2             : 
       3             : use string_utils, only: to_upper
       4             : 
       5             : implicit none
       6             : private
       7             : save
       8             : 
       9             : public :: dycore_is
      10             : 
      11             : !=========================================================================================
      12             : contains
      13             : !=========================================================================================
      14             : 
      15   158641152 : logical function dycore_is (name)
      16             : 
      17             :    ! Determine the dynamical core in use.
      18             : 
      19             :    character(len=*), intent(in) :: name
      20             : 
      21   158641152 :    character(len=len(name)) :: uname
      22             :    !-----------------------------------------------------------------------
      23             : 
      24   158641152 :    uname = to_upper(name)
      25             : 
      26   158641152 :    if (uname == 'LR' .or. uname == 'FV') then
      27             :       dycore_is = .true.
      28             :    else
      29    81436416 :       dycore_is = .false.
      30             :    end if
      31             : 
      32   158641152 : end function dycore_is
      33             : 
      34             : !=========================================================================================
      35             : 
      36             : end module dycore