- Timestamp:
- 04/21/17 14:56:25 (7 years ago)
- Location:
- XIOS/dev/branch_yushan/src
- Files:
-
- 9 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/branch_yushan/src/attribute_template_impl.hpp
r1101 r1102 40 40 { 41 41 xios_map<StdString, CAttribute*>::iterator it; 42 printf("umap size = %lu, add = %p\n", umap.size(), &umap);42 //printf("umap size = %lu, add = %p\n", umap.size(), &umap); 43 43 it = umap.find(id); 44 44 if(it == umap.end()) -
XIOS/dev/branch_yushan/src/client.cpp
r1094 r1102 176 176 MPI_Comm_rank(contextComm,&tmp_rank) ; 177 177 178 #pragma omp critical (_output)179 printf("Client %d : client.cpp Client::registerContext context add = %p\n", tmp_rank, &(*context));178 // #pragma omp critical (_output) 179 // printf("Client %d : client.cpp Client::registerContext context add = %p\n", tmp_rank, &(*context)); 180 180 181 181 … … 225 225 context->initClient(contextComm,contextInterComm) ; 226 226 227 #pragma omp critical (_output)228 printf("Client %d : context->initClient(contextComm,contextInterComm) OK \n", getRank()) ;227 // #pragma omp critical (_output) 228 // printf("Client %d : context->initClient(contextComm,contextInterComm) OK \n", getRank()) ; 229 229 230 230 //contextInterComms->push_back(contextInterComm); -
XIOS/dev/branch_yushan/src/context_client.cpp
r1094 r1102 73 73 } 74 74 75 printf("clientRank = %d (%p)\n", clientRank, &clientRank);75 // printf("clientRank = %d (%p)\n", clientRank, &clientRank); 76 76 } 77 77 -
XIOS/dev/branch_yushan/src/group_factory_impl.hpp
r1101 r1102 70 70 CObjectFactory::SetCurrentContextId 71 71 (CGroupFactory::GetCurrentContextId()); 72 printf("SetCurrentContextId OK %d , %d, %s\n", id.size(), CGroupFactory::HasChild(group, id), id);72 //printf("SetCurrentContextId OK %d , %d, %s\n", id.size(), CGroupFactory::HasChild(group, id), id); 73 73 if (id.size() == 0) 74 74 { 75 75 boost::shared_ptr<typename U::RelChild> value = CObjectFactory::CreateObject<typename U::RelChild>(); 76 printf("boost::shared_ptr<typename U::RelChild> value OK\n");76 //printf("boost::shared_ptr<typename U::RelChild> value OK\n"); 77 77 group->childList.insert(group->childList.end(), value.get()); 78 printf("group->childList.insert OK\n");78 //printf("group->childList.insert OK\n"); 79 79 group->childMap.insert(std::make_pair(value->getId(), value.get())); 80 printf("group->childMap.insert OK\n");80 //printf("group->childMap.insert OK\n"); 81 81 return (value); 82 82 } … … 89 89 { 90 90 boost::shared_ptr<typename U::RelChild> value = CObjectFactory::CreateObject<typename U::RelChild>(id); 91 printf("shared_ptr OK\n");91 //printf("shared_ptr OK\n"); 92 92 group->childList.insert(group->childList.end(), value.get()); 93 printf("childList.insert OK\n");93 //printf("childList.insert OK\n"); 94 94 group->childMap.insert(std::make_pair(id, value.get())); 95 printf("childMap.insert OK\n");95 //printf("childMap.insert OK\n"); 96 96 return (value); 97 97 } -
XIOS/dev/branch_yushan/src/group_template_impl.hpp
r1101 r1102 348 348 U* CGroupTemplate<U, V, W>::createChild(const string& id) 349 349 { 350 printf("U* CGroupTemplate<U, V, W>::createChild(const string& id) %p\n", this->getShared());350 //printf("U* CGroupTemplate<U, V, W>::createChild(const string& id) %p\n", this->getShared()); 351 351 return CGroupFactory::CreateChild<V>(this->getShared(), id).get() ; 352 352 } -
XIOS/dev/branch_yushan/src/interface/c/icfield.cpp
r1101 r1102 39 39 CTimer::get("XIOS").resume() ; 40 40 *_ret = CField::get(id); 41 printf("cxios_field_handle_create\n");41 //printf("cxios_field_handle_create\n"); 42 42 CTimer::get("XIOS").suspend() ; 43 43 } … … 49 49 CTimer::get("XIOS").resume() ; 50 50 *_ret = CFieldGroup::get(id); 51 printf("cxios_fieldgroup_handle_create\n");51 //printf("cxios_fieldgroup_handle_create\n"); 52 52 CTimer::get("XIOS").suspend() ; 53 53 } -
XIOS/dev/branch_yushan/src/node/context.cpp
r1087 r1102 254 254 MPI_Barrier(intraComm); 255 255 256 #pragma omp critical (_output)257 printf("Client %d : context.cpp client = new CContextClient, client add = %p, clientRank = %d\n", tmp_rank, &(*client), client->clientRank) ;256 // #pragma omp critical (_output) 257 // printf("Client %d : context.cpp client = new CContextClient, client add = %p, clientRank = %d\n", tmp_rank, &(*client), client->clientRank) ; 258 258 259 259 #pragma omp critical … … 263 263 registryIn->setPath(getId()) ; 264 264 265 #pragma omp critical (_output)266 printf("Client %d : context.cpp registryIn->setPath, client add = %p, clientRank = %d\n", tmp_rank, &(*client), client->clientRank) ;265 // #pragma omp critical (_output) 266 // printf("Client %d : context.cpp registryIn->setPath, client add = %p, clientRank = %d\n", tmp_rank, &(*client), client->clientRank) ; 267 267 268 268 if (client->clientRank==0) registryIn->fromFile("xios_registry.bin") ; -
XIOS/dev/branch_yushan/src/object_factory_impl.hpp
r1101 r1102 123 123 if(U::AllMapObj == NULL) U::AllMapObj = new xios_map<StdString, xios_map<StdString, boost::shared_ptr<U> > >; 124 124 125 printf("so far so good : %d %d %d\n", CurrContext_ptr->empty(), CObjectFactory::HasObject<U>(id), id.empty());125 //printf("so far so good : %d %d %d\n", CurrContext_ptr->empty(), CObjectFactory::HasObject<U>(id), id.empty()); 126 126 127 127 if (CurrContext_ptr->empty()) … … 136 136 { 137 137 boost::shared_ptr<U> value(new U(id.empty() ? CObjectFactory::GenUId<U>() : id)); 138 printf("in CreateObject, value OK\n");138 //printf("in CreateObject, value OK\n"); 139 139 (* U::AllVectObj)[*CObjectFactory::CurrContext_ptr].insert((*U::AllVectObj)[*CObjectFactory::CurrContext_ptr].end(), value); 140 printf("AllVectObj insert OK\n");140 //printf("AllVectObj insert OK\n"); 141 141 (* U::AllMapObj) [*CObjectFactory::CurrContext_ptr].insert(std::make_pair(value->getId(), value)); 142 printf("AllMapObj insert OK\n");142 //printf("AllMapObj insert OK\n"); 143 143 144 144 return value; -
XIOS/dev/branch_yushan/src/test/test_omp.f90
r1101 r1102 100 100 CALL xios_set_domain_attr("domain_A",lonvalue_2D=lon,latvalue_2D=lat) 101 101 CALL xios_set_fieldgroup_attr("field_definition",enabled=.TRUE.) 102 print*, "test block OK", rank, size102 ! print*, "test block OK", rank, size 103 103 104 ! CALL xios_get_handle("field_definition",fieldgroup_hdl) 105 ! print*, "test block II get_handle OK", rank, size 106 ! CALL xios_add_child(fieldgroup_hdl,field_hdl,"field_B") 107 ! print*, "test block II add_child OK", rank, size 108 ! CALL xios_set_attr(field_hdl,field_ref="field_A",name="field_B") 109 ! print*, "test block II set_attr OK", rank, size 104 ! CALL xios_get_handle("field_definition",fieldgroup_hdl) 105 ! CALL xios_add_child(fieldgroup_hdl,field_hdl,"field_B") 106 ! CALL xios_set_attr(field_hdl,field_ref="field_A",name="field_B") 107 108 ! CALL xios_get_handle("output",file_hdl) 109 ! CALL xios_add_child(file_hdl,field_hdl) 110 ! CALL xios_set_attr(field_hdl,field_ref="field_A",name="field_C") 110 111 111 112 dtime%second = 3600 … … 157 158 print*, "xios_context_finalize OK", rank, size 158 159 159 !$omp master 160 !$omp master 160 161 !call MPI_Barrier(comm) 161 162 CALL MPI_COMM_FREE(comm, ierr) … … 173 174 174 175 !$omp end parallel 175 176 177 178 ! CALL xios_context_initialize("test",comm)179 180 ! CALL xios_get_handle("test",ctx_hdl)181 ! CALL xios_set_current_context(ctx_hdl)182 183 184 ! CALL xios_get_calendar_type(calendar_type)185 186 ! CALL xios_set_axis_attr("axis_A",n_glo=llm ,value=lval) ;187 ! CALL xios_set_domain_attr("domain_A",ni_glo=ni_glo, nj_glo=nj_glo, ibegin=ibegin, ni=ni,jbegin=jbegin,nj=nj,type='curvilinear')188 ! CALL xios_set_domain_attr("domain_A",data_dim=2, data_ibegin=-1, data_ni=ni+2, data_jbegin=-2, data_nj=nj+4)189 ! CALL xios_set_domain_attr("domain_A",lonvalue_2D=lon,latvalue_2D=lat)190 ! CALL xios_set_fieldgroup_attr("field_definition",enabled=.TRUE.)191 192 ! CALL xios_get_handle("field_definition",fieldgroup_hdl)193 ! CALL xios_add_child(fieldgroup_hdl,field_hdl,"field_B")194 ! CALL xios_set_attr(field_hdl,field_ref="field_A",name="field_B")195 196 ! CALL xios_get_handle("output",file_hdl)197 ! CALL xios_add_child(file_hdl,field_hdl)198 ! CALL xios_set_attr(field_hdl,field_ref="field_A_zoom",name="field_C")199 200 ! dtime%second = 3600201 ! CALL xios_set_timestep(dtime)202 203 ! ! The calendar is created as soon as the calendar type is defined. This way204 ! ! calendar operations can be used before the context definition is closed205 ! CALL xios_get_time_origin(date)206 ! PRINT *, "--> year length = ", xios_get_year_length_in_seconds(date%year)207 ! PRINT *, "--> day length = ", xios_get_day_length_in_seconds()208 ! CALL xios_date_convert_to_string(date, date_str)209 ! PRINT *, "time_origin = ", date_str210 ! PRINT *, "xios_date_get_second_of_year(time_origin) = ", xios_date_get_second_of_year(date)211 ! PRINT *, "xios_date_get_day_of_year(time_origin) = ", xios_date_get_day_of_year(date)212 ! PRINT *, "xios_date_get_fraction_of_year(time_origin) = ", xios_date_get_fraction_of_year(date)213 ! PRINT *, "xios_date_get_second_of_day(time_origin) = ", xios_date_get_second_of_day(date)214 ! PRINT *, "xios_date_get_fraction_of_day(time_origin) = ", xios_date_get_fraction_of_day(date)215 ! dtime%timestep = 1216 ! dtime = 0.5 * dtime217 ! CALL xios_duration_convert_to_string(dtime, dtime_str)218 ! PRINT *, "duration = ", dtime_str219 ! date = date + 3 * (dtime + dtime)220 ! CALL xios_date_convert_to_string(date, date_str)221 ! PRINT *, "date = time_origin + 3 * (duration + duration) = ", date_str222 ! PRINT *, "xios_date_convert_to_seconds(date) = ", xios_date_convert_to_seconds(date)223 ! PRINT *, "xios_date_convert_to_seconds(date - 2.5h) = ", xios_date_convert_to_seconds(date - 2.5 * xios_hour)224 225 ! ni=0 ; lonvalue(:,:)=0;226 ! CALL xios_get_domain_attr("domain_A",ni=ni,lonvalue_2D=lonvalue)227 ! print *,"ni",ni228 ! !print *,"lonvalue",lonvalue;229 230 ! CALL xios_is_defined_field_attr("field_A",enabled=ok)231 ! PRINT *,"field_A : attribute enabled is defined ? ",ok232 233 ! CALL xios_close_context_definition()234 ! print*, "xios_close_context_definition OK"235 236 ! PRINT*,"field field_A is active ? ",xios_field_is_active("field_A")237 238 239 ! call MPI_Barrier(comm, ierr)240 241 ! !DO ts=1,24*10242 ! DO ts=1,6243 ! CALL xios_update_calendar(ts)244 ! CALL xios_send_field("field_A",field_A)245 ! CALL wait_us(5000)246 ! ENDDO247 248 249 ! CALL xios_context_finalize()250 251 ! DEALLOCATE(lon, lat, field_A, lonvalue)252 176 253 177
Note: See TracChangeset
for help on using the changeset viewer.