Changeset 3567 for issm/trunk/src/c/parallel/prognostic.cpp
- Timestamp:
- 04/19/10 09:49:52 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk/src/c/parallel/prognostic.cpp
r3381 r3567 74 74 75 75 _printf_("read and create finite element model:\n"); 76 model->AddFormulation(fid,PrognosticAnalysisEnum ());76 model->AddFormulation(fid,PrognosticAnalysisEnum); 77 77 78 78 /*recover parameters: */ … … 82 82 _printf_("initialize inputs:\n"); 83 83 84 model->FindParam(&u_g_serial,NULL,NULL,"u_g",PrognosticAnalysisEnum ());85 model->FindParam(&h_g_initial,NULL,NULL,"h_g",PrognosticAnalysisEnum ());86 model->FindParam(&melting_g,NULL,NULL,"m_g",PrognosticAnalysisEnum ());87 model->FindParam(&accumulation_g,NULL,NULL,"a_g",PrognosticAnalysisEnum ());84 model->FindParam(&u_g_serial,NULL,NULL,"u_g",PrognosticAnalysisEnum); 85 model->FindParam(&h_g_initial,NULL,NULL,"h_g",PrognosticAnalysisEnum); 86 model->FindParam(&melting_g,NULL,NULL,"m_g",PrognosticAnalysisEnum); 87 model->FindParam(&accumulation_g,NULL,NULL,"a_g",PrognosticAnalysisEnum); 88 88 model->FindParam(&dt,"dt"); 89 89 model->FindParam(&yts,"yts"); … … 98 98 99 99 _printf_("initialize results:\n"); 100 results=new DataSet(ResultsEnum ());100 results=new DataSet(ResultsEnum); 101 101 MPI_Barrier(MPI_COMM_WORLD); finish_init=MPI_Wtime(); 102 102 … … 118 118 #ifdef _HAVE_DAKOTA_ 119 119 MPI_Barrier(MPI_COMM_WORLD); start_core=MPI_Wtime( ); 120 Qmux(model,inputs,PrognosticAnalysisEnum (),NoneAnalysisEnum());120 Qmux(model,inputs,PrognosticAnalysisEnum,NoneAnalysisEnum); 121 121 MPI_Barrier(MPI_COMM_WORLD); finish_core=MPI_Wtime( ); 122 122 #else … … 130 130 131 131 _printf_("process results:\n"); 132 ProcessResults(&processedresults,results,model,PrognosticAnalysisEnum ());132 ProcessResults(&processedresults,results,model,PrognosticAnalysisEnum); 133 133 134 134 _printf_("write results to disk:\n");
Note:
See TracChangeset
for help on using the changeset viewer.