! A driver model code for Multi-Process Handshaking utility
! to facilitate a plug & play style programming using single executable.
! each processor only execute one component model once. 
! Written by Yun (Helen) He and Chris Ding, NERSC/LBNL, October 2000.


       program main
       use MPH_Single_Exec
       implicit none

       external ccm3_8, pop2_2, cpl5_1

! here ccm3.8, pop2.2 etc are subroutine names in component models
! you could list the components in any order or omit any of them
       call MPH_setup_SE (atmosphere=ccm3_8, ocean=pop2_2,
     &                    coupler=cpl5_1)

       write(*,*)'I am proc ', MPH_global_proc_id(), ' of global,
     &            proc ', MPH_local_proc_id(), ' of ', MPH_myName()
       write(*,*)'=============================================='

       end program