OzoneFactoryMod.F90 Source File

module OzoneFactoryMod

  !---------------------------------------------------------------------------
  ! !DESCRIPTION:
  ! Factory to create an instance of ozone_base_type. This module figures out the
  ! particular type to return.
  !
  ! !USES:
  use decompMod   , only : bounds_type

  implicit none
  save
  private

  !
  ! !PUBLIC ROUTINES:
  public :: create_and_init_ozone_type  ! create an object of class ozone_base_type

contains

  !-----------------------------------------------------------------------
  function create_and_init_ozone_type(bounds) result(ozone)
    !
    ! !DESCRIPTION:
    ! Create and initialize an object of ozone_base_type, and return this object. The
    ! particular type is determined based on the use_ozone namelist parameter.
    !
    ! !USES:
    use clm_varctl   , only : use_ozone
    use OzoneBaseMod , only : ozone_base_type
    use OzoneOffMod  , only : ozone_off_type
    use OzoneMod     , only : ozone_type
    !
    ! !ARGUMENTS:
    class(ozone_base_type), allocatable :: ozone  ! function result
    type(bounds_type), intent(in) :: bounds
    !
    ! !LOCAL VARIABLES:
    
    character(len=*), parameter :: subname = 'create_and_init_ozone_type'
    !-----------------------------------------------------------------------

    if (use_ozone) then
       allocate(ozone, source = ozone_type())
    else
       allocate(ozone, source = ozone_off_type())
    end if

    call ozone%Init(bounds)
    
  end function create_and_init_ozone_type

end module OzoneFactoryMod