Line data    Source code

       1             : module dycore
       2             : 
       3             : implicit none
       4             : private
       5             : 
       6             : public :: dycore_is
       7             : 
       8             : !=========================================================================================
       9             : CONTAINS
      10             : !=========================================================================================
      11             : 
      12  1419734352 : logical function dycore_is (name)
      13             : 
      14             :    character(len=*) :: name
      15             : 
      16  1419734352 :    dycore_is = .false.
      17             :    if (name == 'unstructured' .or. name == 'UNSTRUCTURED' .or. &
      18  1419734352 :       name == 'se' .or. name == 'SE') then
      19    41743344 :       dycore_is = .true.
      20             :    end if
      21             : 
      22  1419734352 : end function dycore_is
      23             : 
      24             : !=========================================================================================
      25             : 
      26             : end module dycore