!     $Header: /home/ubuntu/mnt/e9_copy/MITgcm_contrib/PRM/prmtop_mod.dir/src/main.F90,v 1.1 2005/04/05 19:57:02 cnh Exp $
!     $Name:  $   

!     Top level ESMF based driver for embedded model configurations

!     == Global data ==
!     PRMTop    :: top level module for PRM driver.
!     EEsmf_Mod :: ESMF extras module
      USE PRMTop
      USE EEsmf_Mod

!     == Local data ==
!     theComponents :: List of "components" that make up a
!                   :: PRM configuration.
      TYPE( EEsmfComponentList ), POINTER :: theComponents

!     Boot up ESMF
!     Calls ESMF initialization and reads in settings from
!     top-level startup file.
      CALL EEsmfBoot( 'eesmf.rc' )

!     Setup the components. Returns an EEsmfComponentList 
!     variable containing all the components that make up 
!     the PRM configuration.
      CALL ComponentsInit(      theComponents )

!     Run the components. Pass down the component list that 
!     contains all the components that are executed in this 
!     PRM configuration.
      CALL ComponentsRun(       theComponents )

!     Clean up as needed
!     Deallocate memory and write out remaining I/O.
      CALL ComponentsFinalize(  theComponents )

      END