module dycore 54
!-----------------------------------------------------------------------
!BOP
!
! !MODULE: dycore
!
! !PUBLIC MEMBER FUNCTIONS:
PUBLIC dycore_is,get_resolution
!
! !DESCRIPTION:
!
! Utility routines related to the dycore
!
! \begin{tabular}{|l|l|} \hline \hline
! dycore & dycore being used \\ \hline
! \end{tabular}
!
! !REVISION HISTORY:
! 01.01.01 Rosinski Creation
!
!EOP
!-----------------------------------------------------------------------
contains
!-----------------------------------------------------------------------
!BOP
! !IROUTINE: dycore_is --- determine dynamical core in use
!
! !INTERFACE:
logical function dycore_is (name) 77
implicit none
! !INPUT PARAMETERS:
character(len=*) :: name
! !DESCRIPTION:
! Determine the dynamical core in use.
! True if the dycore name is "lr" or "LR"
!
! !REVISION HISTORY:
! 97.09.30 Sawyer Creation
!
!EOP
!-----------------------------------------------------------------------
!BOC
if (name == 'lr' .or. name == 'LR') then
dycore_is = .true.
else
dycore_is = .false.
end if
return
!EOC
end function dycore_is
character(len=9) function get_resolution() 5,1
use pmgrid
, only: plat
!
! Input arguments
!
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
return
end function get_resolution
end module dycore