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