00001 #include "psolverc.h" 00002 #include "pglobalc.h" 00003 #include "globalc.h" 00004 #include "ppcsolver.h" 00005 00006 /** 00007 parallel solution of coupled problem 00008 */ 00009 void par_solve_metr_problem () 00010 { 00011 switch (Cp->tprob){ 00012 case fully_coupled_mech_trans:{ 00013 // fully coupled hydro-thermo-mechanical problem 00014 //par_solve_linear_statics (); 00015 break; 00016 } 00017 case par_coupl_mech_trans:{ 00018 // partially coupled hydro-thermo-mechanical problem 00019 par_solve_pcouplprob (); 00020 break; 00021 } 00022 default:{ 00023 par_print_err(Myrank,"unknown problem type is required",__FILE__,__LINE__,__func__); 00024 } 00025 } 00026 00027 }