prmtop_mod.dir/src/main.F90

!     $Header: $
!     $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

1	! $Header: $
2	! $Name: $
3
4	! Top level ESMF based driver for embedded model configurations
5
6	! == Global data ==
7	! PRMTop :: top level module for PRM driver.
8	! EEsmf_Mod :: ESMF extras module
9	USE PRMTop
10	USE EEsmf_Mod
11
12	! == Local data ==
13	! theComponents :: List of "components" that make up a
14	! :: PRM configuration.
15	TYPE( EEsmfComponentList ), POINTER :: theComponents
16
17	! Boot up ESMF
18	! Calls ESMF initialization and reads in settings from
19	! top-level startup file.
20	CALL EEsmfBoot( 'eesmf.rc' )
21
22	! Setup the components. Returns an EEsmfComponentList
23	! variable containing all the components that make up
24	! the PRM configuration.
25	CALL ComponentsInit( theComponents )
26
27	! Run the components. Pass down the component list that
28	! contains all the components that are executed in this
29	! PRM configuration.
30	CALL ComponentsRun( theComponents )
31
32	! Clean up as needed
33	! Deallocate memory and write out remaining I/O.
34	CALL ComponentsFinalize( theComponents )
35
36	END
37