prmtop_mod.dir/src/main.F90

!     $Header: /u/gcmpack/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 PRM embedded model configuration
!     A PRM configuration consists of one coarse grid model configuration
!     and one or more fine grid configurations that span a subset of the 
!     physical grid in the coarse grid configuration at higher resolution.
!     In addition special pieces of code that couple the coarse model
!     to the fine model and the fine model to the coarse model are part
!     of the setup. Each of these pieces (the coarse grid model, the fine
!     grid models and the coarse to fine and fine to coarse coupling code)
!     is called a component. The setup is controlled by a top-level file of
!     settings that specifies the number of components to create and
!     associates names with those components that are used to distinguish
!     their roles.
!     

!     == 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.
!     This creates the default VM which spans the entire set
!     of PET's (processors) available.
      CALL EEsmfBoot( 'eesmf.rc' )

!     Setup the components. Returns an EEsmfComponentList 
!     variable containing all the components that make up 
!     the PRM configuration. These will be partitioned over
!     the PET's according to the PRM comfiguration file.
      CALL ComponentsInit(      theComponents )

!     Run the components. Pass down the component list that 
!     contains all the components that are to be 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	cnh	1.2	! $Header: /u/gcmpack/MITgcm_contrib/PRM/prmtop_mod.dir/src/main.F90,v 1.1 2005/04/05 19:57:02 cnh Exp $
2			! $Name: $
3	cnh	1.1
4	cnh	1.2	! Top level ESMF based driver for PRM embedded model configuration
5			! A PRM configuration consists of one coarse grid model configuration
6			! and one or more fine grid configurations that span a subset of the
7			! physical grid in the coarse grid configuration at higher resolution.
8			! In addition special pieces of code that couple the coarse model
9			! to the fine model and the fine model to the coarse model are part
10			! of the setup. Each of these pieces (the coarse grid model, the fine
11			! grid models and the coarse to fine and fine to coarse coupling code)
12			! is called a component. The setup is controlled by a top-level file of
13			! settings that specifies the number of components to create and
14			! associates names with those components that are used to distinguish
15			! their roles.
16			!
17	cnh	1.1
18			! == Global data ==
19			! PRMTop :: top level module for PRM driver.
20			! EEsmf_Mod :: ESMF extras module
21			USE PRMTop
22			USE EEsmf_Mod
23
24			! == Local data ==
25			! theComponents :: List of "components" that make up a
26			! :: PRM configuration.
27			TYPE( EEsmfComponentList ), POINTER :: theComponents
28
29			! Boot up ESMF
30			! Calls ESMF initialization and reads in settings from
31			! top-level startup file.
32	cnh	1.2	! This creates the default VM which spans the entire set
33			! of PET's (processors) available.
34	cnh	1.1	CALL EEsmfBoot( 'eesmf.rc' )
35
36			! Setup the components. Returns an EEsmfComponentList
37			! variable containing all the components that make up
38	cnh	1.2	! the PRM configuration. These will be partitioned over
39			! the PET's according to the PRM comfiguration file.
40	cnh	1.1	CALL ComponentsInit( theComponents )
41
42			! Run the components. Pass down the component list that
43	cnh	1.2	! contains all the components that are to be executed in this
44			! PRM configuration.
45	cnh	1.1	CALL ComponentsRun( theComponents )
46
47			! Clean up as needed
48			! Deallocate memory and write out remaining I/O.
49			CALL ComponentsFinalize( theComponents )
50
51			END