module dycore

implicit none
private
save

public :: dycore_is, get_resolution

!=========================================================================================
contains
!=========================================================================================

logical function dycore_is (name)

   ! Determine the dynamical core in use.

   character(len=*) :: name
   !-----------------------------------------------------------------------

   if (name == 'lr' .or. name == 'LR') then
      dycore_is = .true.
   else
      dycore_is = .false.
   end if
end function dycore_is

!=========================================================================================

character(len=9) function get_resolution()

   use pmgrid, only: plat
     
   select case ( plat )
   case ( 19 )
      get_resolution = '10x15'
   case ( 46 )
      get_resolution = '4x5'
   case ( 91 )
      get_resolution = '2x2.5'
   case ( 96 )
      get_resolution = '1.9x2.5'
   case ( 181 )
      get_resolution = '1x1.25'
   case ( 192 )
      get_resolution = '0.9x1.25'
   case ( 361 )
      get_resolution = '0.5x0.625'
   case ( 384 )
      get_resolution = '0.47x0.63'
   case ( 768 )
      get_resolution = '0.23x0.31'
   case default
      get_resolution = 'UNKNOWN'
   end select

end function get_resolution

end module dycore