Wed May 28 15:59:30 PDT 2003 -- CSM EXECUTION BEGINS HERE
 ===================================
 total_components= 7
 global_proc_id= 0
 Message from MPH_help:
 default debug level=0, choose 1 or 2 for more        debug messages
 MPH: multiple executables with multiple components   in each executable
 Sample setup functions are: 
    ICE_LAND_World = MPH_components (name1="ice",     name2="land")
    CPL_World = MPH_components (name1="coupler")
    POP_World = MPH_multi_instance ("POP")
 Required input file is "processors_map.in"
 Subroutine call to join two communicators is:
    MPH_comm_join (name1,name2,comm_joined)
 Available inquiry functions are:
 (arguments are optional except for MPH_global_id)
    integer MPH_global_id(cname,lid)
    integer MPH_total_components()
    character (len=80) MPH_comp_name(cid)
    integer MPH_comp_id(cname)
    integer MPH_local_world(cname)
    integer MPH_exe_id(cname)
    integer MPH_total_num_exe()
    integer MPH_num_comps(eid)
    integer MPH_local_proc_id(cid)
    integer MPH_local_totProcs(cid)
    integer MPH_global_proc_id()
    integer MPH_global_totProcs()
    integer MPH_exe_world(eid)
    integer MPH_exe_low_proc_limit(eid)
    integer MPH_exe_up_proc_limit(eid)
    integer MPH_num_ensemble(name)
    integer MPH_num_strings(cname)
    subroutine MPH_get_strings
    subroutine MPH_get_argument
 
 I am fine here after set_info
 comp_name=POP_control                                                                     local_id= 0 , global_id= 0
 comp_id= 7
 exe_id= 4
 num_comps= 1
 begin of comm_join
 begin2  of comm_join
 4 5
 middle of comm_join
 F F
 before comm_join, fine
 after comm_join, fine
 MPH_num_ensemble("POP")= 3
 buf= 6
 buf= 4
 buf= 1
 totalbuf= 11
 ===================================
 total_components= 7
 global_proc_id= 1
 exe_id= 1
 comp_name=POP1                                                                            
 local_id= 0 , global_id= 1
 comp_id= 1
 exe_id= 1
 num_comps= 3
 begin of comm_join
 begin2  of comm_join
 4 5
 middle of comm_join
 F F
 before comm_join, fine
 after comm_join, fine
 input_file=pop1.in                                                                         
 output_file=pop1.out                                                                        
 alpha= 3
 beta= 4.500000000
 debug=on                                                                              
 ===================================
 total_components= 7
 global_proc_id= 2
 exe_id= 1
 comp_name=POP1                                                                            
 local_id= 1 , global_id= 2
 comp_id= 1
 exe_id= 1
 num_comps= 3
 begin of comm_join
 begin2  of comm_join
 4 5
 middle of comm_join
 F F
 before comm_join, fine
 after comm_join, fine
 input_file=pop1.in                                                                         
 output_file=pop1.out                                                                        
 alpha= 3
 beta= 4.500000000
 debug=on                                                                              
 ===================================
 total_components= 7
 global_proc_id= 3
 exe_id= 1
 comp_name=POP1                                                                            
 local_id= 2 , global_id= 3
 comp_id= 1
 exe_id= 1
 num_comps= 3
 begin of comm_join
 begin2  of comm_join
 4 5
 middle of comm_join
 F F
 before comm_join, fine
 after comm_join, fine
 input_file=pop1.in                                                                         
 output_file=pop1.out                                                                        
 alpha= 3
 beta= 4.500000000
 debug=on                                                                              
 ===================================
 total_components= 7
 global_proc_id= 4
 exe_id= 1
 comp_name=POP2                                                                            
 local_id= 0 , global_id= 4
 comp_id= 2
 exe_id= 1
 num_comps= 3
 begin of comm_join
 begin2  of comm_join
 4 5
 middle of comm_join
 F F
 before comm_join, fine
 after comm_join, fine
 input_file=pop2.in                                                                         
 output_file=pop2.out                                                                        
 alpha= 2
 beta= 0.5429999874E-04
 debug=off                                                                             
 ===================================
 total_components= 7
 global_proc_id= 5
 exe_id= 1
 comp_name=POP2                                                                            
 local_id= 1 , global_id= 5
 comp_id= 2
 exe_id= 1
 num_comps= 3
 begin of comm_join
 begin2  of comm_join
 4 5
 middle of comm_join
 F F
 before comm_join, fine
 after comm_join, fine
 input_file=pop2.in                                                                         
 output_file=pop2.out                                                                        
 alpha= 2
 beta= 0.5429999874E-04
 debug=off                                                                             
 ===================================
 total_components= 7
 global_proc_id= 6
 exe_id= 1
 comp_name=POP3                                                                            
 local_id= 0 , global_id= 6
 comp_id= 3
 exe_id= 1
 num_comps= 3
 begin of comm_join
 begin2  of comm_join
 4 5
 middle of comm_join
 F F
 before comm_join, fine
 after comm_join, fine
 input_file=pop3.in                                                                         
 output_file=pop3.out                                                                        
 beta= 100.0999985
 debug=on                                                                              
 ===================================
 total_components= 7
 global_proc_id= 7
 exe_id= 1
 comp_name=POP3                                                                            
 local_id= 1 , global_id= 7
 comp_id= 3
 exe_id= 1
 num_comps= 3
 begin of comm_join
 begin2  of comm_join
 4 5
 middle of comm_join
 F F
 before comm_join, fine
 after comm_join, fine
 input_file=pop3.in                                                                         
 output_file=pop3.out                                                                        
 beta= 100.0999985
 debug=on                                                                              
 ===================================
 total_components= 7
 global_proc_id= 8
 cpl is fine here
 begin of comm_join
 begin2  of comm_join
 4 5
 middle of comm_join
 T F
 before comm_join, fine
 after comm_join, fine
 cpl is fine here too
 I am in cpl, I joined the COMM_cpl_ice
 myProc_joined= 0
  sum of joined ranks in cpl_ice is  10
 ===================================
 total_components= 7
 global_proc_id= 9
 cpl is fine here
 begin of comm_join
 begin2  of comm_join
 4 5
 middle of comm_join
 T F
 before comm_join, fine
 after comm_join, fine
 cpl is fine here too
 I am in cpl, I joined the COMM_cpl_ice
 myProc_joined= 1
  sum of joined ranks in cpl_ice is  10
 1  in sub cpl===  9  in global
 my comp_id in sub cpl= 4
 I am cpl 1, send to ice 2
 cpl 0 sent to ice 2 successfully
 
 ===================================
 total_components= 7
 global_proc_id= 10
 ice_land is fine here
 begin of comm_join
 begin2  of comm_join
 4 5
 middle of comm_join
 F T
 before comm_join, fine
 after comm_join, fine
 ice_land is fine here too
 I am in ice, I joined COMM_cpl_ice
 myProc_joined= 2
  sum of joined ranks in cpl_ice is  10
 ===================================
 total_components= 7
 global_proc_id= 11
 ice_land is fine here
 begin of comm_join
 begin2  of comm_join
 4 5
 middle of comm_join
 F T
 before comm_join, fine
 after comm_join, fine
 ice_land is fine here too
 I am in ice, I joined COMM_cpl_ice
 myProc_joined= 3
  sum of joined ranks in cpl_ice is  10
 1  in sub ice ===  11  in global
 my comp_id in sub ice= 5
 str1                                                                            str2                                                                            
 
 ===================================
 total_components= 7
 global_proc_id= 12
 ice_land is fine here
 begin of comm_join
 begin2  of comm_join
 4 5
 middle of comm_join
 F T
 before comm_join, fine
 after comm_join, fine
 ice_land is fine here too
 I am in ice, I joined COMM_cpl_ice
 myProc_joined= 4
  sum of joined ranks in cpl_ice is  10
 2  in sub ice ===  12  in global
 my comp_id in sub ice= 5
 str1                                                                            str2                                                                            
 I am ice 2, recv from cpl 1
 I am ice 2, expect c2i=abcdefg
 ice 2 gets c2i(1)=abcdefg   
 
 ===================================
 total_components= 7
 global_proc_id= 13
 ice_land is fine here
 begin of comm_join
 begin2  of comm_join
 4 5
 middle of comm_join
 F F
 before comm_join, fine
 after comm_join, fine
 ice_land is fine here too
 ===================================
 total_components= 7
 global_proc_id= 14
 ice_land is fine here
 begin of comm_join
 begin2  of comm_join
 4 5
 middle of comm_join
 F F
 before comm_join, fine
 after comm_join, fine
 ice_land is fine here too
 1  in sub land===  14  in global
 my comp_id in sub land= 6
 str3                                                                            
 
 ===================================
 total_components= 7
 global_proc_id= 15
 ice_land is fine here
 begin of comm_join
 begin2  of comm_join
 4 5
 middle of comm_join
 F F
 before comm_join, fine
 after comm_join, fine
 ice_land is fine here too
 2  in sub land===  15  in global
 my comp_id in sub land= 6
 str3                                                                            
 I am land 2, send to cpl 0
 
Wed May 28 15:59:35 PDT 2003 -- CSM EXECUTION finishes HERE
