module dycore!! Data and utility routines related to the dycore!   implicit nonePRIVATE   public :: dycore_isCONTAINS   logical function dycore_is (name)!! Input arguments!      character(len=*) :: name      if (name == 'sld' .or. name == 'SLD') then         dycore_is = .true.      else         dycore_is = .false.      end if      return   end function dycore_isend module dycore