MAPL_Initialize.F90 Source File


This file depends on

sourcefile~~mapl_initialize.f90~~EfferentGraph sourcefile~mapl_initialize.f90 MAPL_Initialize.F90 sourcefile~mapl_pfunit_throw.f90 MAPL_pFUnit_Throw.F90 sourcefile~mapl_initialize.f90->sourcefile~mapl_pfunit_throw.f90 sourcefile~mapl_throw.f90 MAPL_Throw.F90 sourcefile~mapl_initialize.f90->sourcefile~mapl_throw.f90 sourcefile~pflogger_stub.f90 pflogger_stub.F90 sourcefile~mapl_initialize.f90->sourcefile~pflogger_stub.f90 sourcefile~udunits2f.f90 udunits2f.F90 sourcefile~mapl_initialize.f90->sourcefile~udunits2f.f90 sourcefile~pfl_keywordenforcer.f90 PFL_KeywordEnforcer.F90 sourcefile~pflogger_stub.f90->sourcefile~pfl_keywordenforcer.f90 sourcefile~wraparray.f90 WrapArray.F90 sourcefile~pflogger_stub.f90->sourcefile~wraparray.f90 sourcefile~interfaces.f90 interfaces.F90 sourcefile~udunits2f.f90->sourcefile~interfaces.f90 sourcefile~status_codes.f90 status_codes.F90 sourcefile~udunits2f.f90->sourcefile~status_codes.f90 sourcefile~udsystem.f90 UDSystem.F90 sourcefile~udunits2f.f90->sourcefile~udsystem.f90 sourcefile~interfaces.f90->sourcefile~status_codes.f90 sourcefile~udsystem.f90->sourcefile~interfaces.f90 sourcefile~udsystem.f90->sourcefile~status_codes.f90 sourcefile~cptrwrapper.f90 CptrWrapper.F90 sourcefile~udsystem.f90->sourcefile~cptrwrapper.f90

Source Code

module MAPL_pFUnit_Initialize
contains
   subroutine Initialize()
      use ESMF
      use MAPL_ThrowMod, only: MAPL_set_throw_method
      use MAPL_pFUnit_ThrowMod
      use pflogger, only: pfl_initialize => initialize
      use udunits2f, only: UDUNITS_Initialize => Initialize
   
      call ESMF_Initialize(logKindFlag=ESMF_LOGKIND_MULTI,defaultCalKind=ESMF_CALKIND_GREGORIAN)
      call MAPL_set_throw_method(throw)
      call pfl_initialize()
      call UDUNITS_Initialize()

   end subroutine Initialize
end module MAPL_pFUnit_Initialize