multi_comp_setup/multi_code/main_template.f90

      PROGRAM MULTItop
C
C     Generic top-level driver for multi-scale and/or multi-member component 
C     code. The generic driver sets up the system to handle data transport 
C     between multi-scale components. For now interpolation and/or extrapolation
C     are handled by the individual components.
C  
C     ESMF library through the LITE stub
      USE ESMF_MOD
      USE ESMF_LITE
C     Multi-scale and/or multi-member support library
      USE MULTI_SUPPORT

C     esmfVM    :: ESMF virtual machine over which we will run
C     esmfRC    :: ESMF return code
C     thisMulti :: Handle for a particular instance of the multi-scale support library
      TYPE (ESMF_VM)      esmfVM
      INTEGER             esmfRC
      TYPE (multiSession) thisMulti
C
C     Boot up ESMF and get back the overall virtual machine
      CALL ESMF_Initialize( vm=esmfVM, rc=esmfRC )
C
C     Create and instance of the multi-scale support library running on
C     a particular virtual machine.
      CALL MULTIInit( thisMulti, 
     &     vm=esmfVM,
     &     rootDir="multi01", 
     &     rootParmsFile="multi01.data" )
C
      DO WHILE ( time < endTime )
       CALL MULTIRun( thisMulti )
       time = time + rootTimeStep
      END DO
C
      CALL MULTIFinalize( thisMulti )
C
      CALL ESMF_Finalize
      END
C
      SUBROUTINE MULTIInit
      RETURN
      END
1	PROGRAM MULTItop
2	C
3	C Generic top-level driver for multi-scale and/or multi-member component
4	C code. The generic driver sets up the system to handle data transport
5	C between multi-scale components. For now interpolation and/or extrapolation
6	C are handled by the individual components.
7	C
8	C ESMF library through the LITE stub
9	USE ESMF_MOD
10	USE ESMF_LITE
11	C Multi-scale and/or multi-member support library
12	USE MULTI_SUPPORT
13
14	C esmfVM :: ESMF virtual machine over which we will run
15	C esmfRC :: ESMF return code
16	C thisMulti :: Handle for a particular instance of the multi-scale support library
17	TYPE (ESMF_VM) esmfVM
18	INTEGER esmfRC
19	TYPE (multiSession) thisMulti
20	C
21	C Boot up ESMF and get back the overall virtual machine
22	CALL ESMF_Initialize( vm=esmfVM, rc=esmfRC )
23	C
24	C Create and instance of the multi-scale support library running on
25	C a particular virtual machine.
26	CALL MULTIInit( thisMulti,
27	& vm=esmfVM,
28	& rootDir="multi01",
29	& rootParmsFile="multi01.data" )
30	C
31	DO WHILE ( time < endTime )
32	CALL MULTIRun( thisMulti )
33	time = time + rootTimeStep
34	END DO
35	C
36	CALL MULTIFinalize( thisMulti )
37	C
38	CALL ESMF_Finalize
39	END
40	C
41	SUBROUTINE MULTIInit
42	RETURN
43	END