dycore.f90

CCSM Research Tools: Community Atmosphere Model (CAM)

module dycore
!-----------------------------------------------------------------------
!BOP
!
! !MODULE: dycore
!
! !PUBLIC MEMBER FUNCTIONS:
      PUBLIC     dycore_is

!
! !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)

      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
!-----------------------------------------------------------------------
end module dycore