Changeset 1646 for XIOS/dev/dev_trunk_omp/src/io/netCdfInterface.cpp
- Timestamp:
- 01/31/19 12:12:52 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/dev_trunk_omp/src/io/netCdfInterface.cpp
r1601 r1646 11 11 #include "netCdfException.hpp" 12 12 #include "ep_mpi.hpp" 13 13 14 namespace xios 14 15 { … … 25 26 #pragma omp critical (_netcdf) 26 27 { 27 info( 100)<<"start nc_create"<<std::endl;28 info(200)<<"start nc_create"<<std::endl; 28 29 status = nc_create(fileName.c_str(), cMode, &ncId); 29 info( 100)<<"end nc_create"<<std::endl;30 info(200)<<"end nc_create"<<std::endl; 30 31 } 31 32 if (NC_NOERR != status) … … 55 56 int CNetCdfInterface::createPar(const StdString& fileName, int cMode, MPI_Comm comm, MPI_Info info, int& ncId) 56 57 { 58 #ifdef _usingEP 57 59 int status = xios::nc_create_par(fileName.c_str(), cMode, comm, to_mpi_info(MPI_INFO_NULL), &ncId); 60 #elif _usingMPI 61 int status = xios::nc_create_par(fileName.c_str(), cMode, comm, MPI_INFO_NULL, &ncId); 62 #endif 58 63 59 64 if (NC_NOERR != status) … … 84 89 #pragma omp critical (_netcdf) 85 90 { 86 info( 100)<<"start nc_open"<<std::endl;91 info(200)<<"start nc_open"<<std::endl; 87 92 status = nc_open(fileName.c_str(), oMode, &ncId); 88 info( 100)<<"end nc_open"<<std::endl;93 info(200)<<"end nc_open"<<std::endl; 89 94 } 90 95 if (NC_NOERR != status) … … 115 120 int CNetCdfInterface::openPar(const StdString& fileName, int oMode, MPI_Comm comm, MPI_Info info, int& ncId) 116 121 { 122 #ifdef _usingEP 117 123 int status = xios::nc_open_par(fileName.c_str(), oMode, comm, to_mpi_info(MPI_INFO_NULL), &ncId); 124 #elif _usingMPI 125 int status = xios::nc_open_par(fileName.c_str(), oMode, comm, MPI_INFO_NULL, &ncId); 126 #endif 118 127 119 128 if (NC_NOERR != status) … … 142 151 #pragma omp critical (_netcdf) 143 152 { 144 info( 100)<<"start nc_close"<<std::endl;153 info(200)<<"start nc_close"<<std::endl; 145 154 status = nc_close(ncId); 146 info( 100)<<"end nc_close"<<std::endl;155 info(200)<<"end nc_close"<<std::endl; 147 156 } 148 157 … … 171 180 #pragma omp critical (_netcdf) 172 181 { 173 info( 100)<<"start nc_reDef"<<std::endl;182 info(200)<<"start nc_reDef"<<std::endl; 174 183 status = nc_redef(ncId); 175 info( 100)<<"end nc_reDef"<<std::endl;184 info(200)<<"end nc_reDef"<<std::endl; 176 185 } 177 186 … … 200 209 #pragma omp critical (_netcdf) 201 210 { 202 info( 100)<<"start nc_enddef"<<std::endl;211 info(200)<<"start nc_enddef"<<std::endl; 203 212 status = nc_enddef(ncId); 204 info( 100)<<"end nc_enddef"<<std::endl;213 info(200)<<"end nc_enddef"<<std::endl; 205 214 } 206 215 if (NC_NOERR != status) … … 231 240 #pragma omp critical (_netcdf) 232 241 { 233 info( 100)<<"start nc_inq_ncid"<<std::endl;242 info(200)<<"start nc_inq_ncid"<<std::endl; 234 243 status = nc_inq_ncid(ncid, grpName.c_str(), &grpId); 235 info( 100)<<"end nc_inq_ncid"<<std::endl;244 info(200)<<"end nc_inq_ncid"<<std::endl; 236 245 } 237 246 … … 264 273 #pragma omp critical (_netcdf) 265 274 { 266 info( 100)<<"start nc_inq_varid"<<std::endl;275 info(200)<<"start nc_inq_varid"<<std::endl; 267 276 status = nc_inq_varid(ncid, varName.c_str(), &varId); 268 info( 100)<<"end nc_inq_varid"<<std::endl;277 info(200)<<"end nc_inq_varid"<<std::endl; 269 278 } 270 279 if (NC_NOERR != status) … … 295 304 #pragma omp critical (_netcdf) 296 305 { 297 info( 100)<<"start nc_inq_dimid"<<std::endl;306 info(200)<<"start nc_inq_dimid"<<std::endl; 298 307 status = nc_inq_dimid(ncid, dimName.c_str(), &dimId); 299 info( 100)<<"end nc_inq_dimid"<<std::endl;308 info(200)<<"end nc_inq_dimid"<<std::endl; 300 309 } 301 310 … … 328 337 #pragma omp critical (_netcdf) 329 338 { 330 info( 100)<<"start nc_inq_varname"<<std::endl;339 info(200)<<"start nc_inq_varname"<<std::endl; 331 340 status = nc_inq_varname(ncid, varId, varNameBuff); 332 info( 100)<<"end nc_inq_varname"<<std::endl;341 info(200)<<"end nc_inq_varname"<<std::endl; 333 342 } 334 343 if (NC_NOERR != status) … … 358 367 #pragma omp critical (_netcdf) 359 368 { 360 info( 100)<<"start nc_inq_unlimdim"<<std::endl;369 info(200)<<"start nc_inq_unlimdim"<<std::endl; 361 370 status = nc_inq_unlimdim(ncid, &dimId); 362 info( 100)<<"end nc_inq_unlimdim"<<std::endl;371 info(200)<<"end nc_inq_unlimdim"<<std::endl; 363 372 } 364 373 if (NC_NOERR != status) … … 390 399 #pragma omp critical (_netcdf) 391 400 { 392 info( 100)<<"start nc_inq_dimname"<<std::endl;401 info(200)<<"start nc_inq_dimname"<<std::endl; 393 402 status = nc_inq_dimname(ncid, dimId, fullNameIn); 394 info( 100)<<"end nc_inq_dimname"<<std::endl;403 info(200)<<"end nc_inq_dimname"<<std::endl; 395 404 } 396 405 if (NC_NOERR != status) … … 421 430 #pragma omp critical (_netcdf) 422 431 { 423 info( 100)<<"start nc_inq_dimlen"<<std::endl;432 info(200)<<"start nc_inq_dimlen"<<std::endl; 424 433 status = nc_inq_dimlen(ncid, dimId, &dimLen); 425 info( 100)<<"end nc_inq_dimlen"<<std::endl;434 info(200)<<"end nc_inq_dimlen"<<std::endl; 426 435 } 427 436 if (NC_NOERR != status) … … 452 461 #pragma omp critical (_netcdf) 453 462 { 454 info( 100)<<"start nc_inq_varndims"<<std::endl;463 info(200)<<"start nc_inq_varndims"<<std::endl; 455 464 status = nc_inq_varndims(ncid, varId, &nDims); 456 info( 100)<<"end nc_inq_varndims"<<std::endl;465 info(200)<<"end nc_inq_varndims"<<std::endl; 457 466 } 458 467 if (NC_NOERR != status) … … 483 492 #pragma omp critical (_netcdf) 484 493 { 485 info( 100)<<"start nc_inq_vardimid"<<std::endl;494 info(200)<<"start nc_inq_vardimid"<<std::endl; 486 495 status = nc_inq_vardimid(ncid, varId, dimIds); 487 info( 100)<<"end nc_inq_vardimid"<<std::endl;496 info(200)<<"end nc_inq_vardimid"<<std::endl; 488 497 } 489 498 if (NC_NOERR != status) … … 515 524 #pragma omp critical (_netcdf) 516 525 { 517 info( 100)<<"start nc_inq_dimids"<<std::endl;526 info(200)<<"start nc_inq_dimids"<<std::endl; 518 527 status = nc_inq_dimids(ncid, &nDims, dimIds, includeParents); 519 info( 100)<<"end nc_inq_dimids"<<std::endl;528 info(200)<<"end nc_inq_dimids"<<std::endl; 520 529 } 521 530 if (NC_NOERR != status) … … 548 557 #pragma omp critical (_netcdf) 549 558 { 550 info( 100)<<"start nc_inq_grpname_full"<<std::endl;559 info(200)<<"start nc_inq_grpname_full"<<std::endl; 551 560 status = nc_inq_grpname_full(ncid, &strlen, NULL); 552 info( 100)<<"end nc_inq_grpname_full"<<std::endl;561 info(200)<<"end nc_inq_grpname_full"<<std::endl; 553 562 554 563 if (NC_NOERR == status) … … 557 566 status = nc_inq_grpname_full(ncid, NULL, &buff[0]); 558 567 } 559 info( 100)<<"start nc_inq_grpname_full"<<std::endl;568 info(200)<<"start nc_inq_grpname_full"<<std::endl; 560 569 } 561 570 if (NC_NOERR != status) … … 588 597 #pragma omp critical (_netcdf) 589 598 { 590 info( 100)<<"start nc_inq_grps"<<std::endl;599 info(200)<<"start nc_inq_grps"<<std::endl; 591 600 status = nc_inq_grps(ncid, &numgrps, ncids); 592 info( 100)<<"end nc_inq_grps"<<std::endl;601 info(200)<<"end nc_inq_grps"<<std::endl; 593 602 } 594 603 if (NC_NOERR != status) … … 619 628 #pragma omp critical (_netcdf) 620 629 { 621 info( 100)<<"start nc_inq_varids"<<std::endl;630 info(200)<<"start nc_inq_varids"<<std::endl; 622 631 status = nc_inq_varids(ncid, &nvars, varids); 623 info( 100)<<"end nc_inq_varids"<<std::endl;632 info(200)<<"end nc_inq_varids"<<std::endl; 624 633 } 625 634 if (NC_NOERR != status) … … 652 661 #pragma omp critical (_netcdf) 653 662 { 654 info( 100)<<"start nc_inq_att"<<std::endl;663 info(200)<<"start nc_inq_att"<<std::endl; 655 664 status = nc_inq_att(ncid, varid, name.c_str(), &type, &len); 656 info( 100)<<"end nc_inq_att"<<std::endl;665 info(200)<<"end nc_inq_att"<<std::endl; 657 666 } 658 667 … … 683 692 #pragma omp critical (_netcdf) 684 693 { 685 info( 100)<<"start nc_inq_natts"<<std::endl;694 info(200)<<"start nc_inq_natts"<<std::endl; 686 695 status = nc_inq_natts(ncid, &ngatts); 687 info( 100)<<"end nc_inq_natts"<<std::endl;696 info(200)<<"end nc_inq_natts"<<std::endl; 688 697 } 689 698 if (NC_NOERR != status) … … 714 723 #pragma omp critical (_netcdf) 715 724 { 716 info( 100)<<"start nc_inq_varnatts"<<std::endl;725 info(200)<<"start nc_inq_varnatts"<<std::endl; 717 726 status = nc_inq_varnatts(ncid, varid, &natts); 718 info( 100)<<"end nc_inq_varnatts"<<std::endl;727 info(200)<<"end nc_inq_varnatts"<<std::endl; 719 728 } 720 729 if (NC_NOERR != status) … … 741 750 #pragma omp critical (_netcdf) 742 751 { 743 info( 100)<<"start nc_inq_attname"<<std::endl;752 info(200)<<"start nc_inq_attname"<<std::endl; 744 753 status = nc_inq_attname(ncid, varid, attnum, &attName[0]); 745 info( 100)<<"end nc_inq_attname"<<std::endl;754 info(200)<<"end nc_inq_attname"<<std::endl; 746 755 } 747 756 if (NC_NOERR != status) … … 778 787 #pragma omp critical (_netcdf) 779 788 { 780 info( 100)<<"start nc_def_grp"<<std::endl;789 info(200)<<"start nc_def_grp"<<std::endl; 781 790 status = nc_def_grp(parentNcid, grpName.c_str(), &grpId); 782 info( 100)<<"end nc_def_grp"<<std::endl;791 info(200)<<"end nc_def_grp"<<std::endl; 783 792 } 784 793 if (NC_NOERR != status) … … 809 818 #pragma omp critical (_netcdf) 810 819 { 811 info( 100)<<"start nc_def_dim"<<std::endl;820 info(200)<<"start nc_def_dim"<<std::endl; 812 821 status = nc_def_dim(ncid, dimName.c_str(), dimLen, &dimId); 813 info( 100)<<"end nc_def_dim"<<std::endl;822 info(200)<<"end nc_def_dim"<<std::endl; 814 823 } 815 824 if (NC_NOERR != status) … … 846 855 #pragma omp critical (_netcdf) 847 856 { 848 info( 100)<<"start nc_def_var"<<std::endl;857 info(200)<<"start nc_def_var"<<std::endl; 849 858 status = nc_def_var(ncid, varName.c_str(), xtype, nDims, dimIds, &varId); 850 info( 100)<<"end nc_def_var"<<std::endl;859 info(200)<<"end nc_def_var"<<std::endl; 851 860 } 852 861 if (NC_NOERR != status) … … 881 890 #pragma omp critical (_netcdf) 882 891 { 883 info( 100)<<"start nc_def_var_chunking"<<std::endl;892 info(200)<<"start nc_def_var_chunking"<<std::endl; 884 893 status = nc_def_var_chunking(ncid, varId, storage, chunkSize); 885 info( 100)<<"end nc_def_var_chunking"<<std::endl;894 info(200)<<"end nc_def_var_chunking"<<std::endl; 886 895 } 887 896 if (NC_NOERR != status) … … 915 924 #pragma omp critical (_netcdf) 916 925 { 917 info( 100)<<"start nc_def_var_deflate"<<std::endl;926 info(200)<<"start nc_def_var_deflate"<<std::endl; 918 927 status = nc_def_var_deflate(ncid, varId, (compressionLevel > 0), (compressionLevel > 0), compressionLevel); 919 info( 100)<<"end nc_def_var_deflate"<<std::endl;928 info(200)<<"end nc_def_var_deflate"<<std::endl; 920 929 } 921 930 if (NC_NOERR != status) … … 947 956 #pragma omp critical (_netcdf) 948 957 { 949 info( 100)<<"start nc_set_fill"<<std::endl;958 info(200)<<"start nc_set_fill"<<std::endl; 950 959 status = nc_set_fill(ncid, fill ? NC_FILL: NC_NOFILL, &old_fill_mode); 951 info( 100)<<"end nc_set_fill"<<std::endl;960 info(200)<<"end nc_set_fill"<<std::endl; 952 961 } 953 962 if (NC_NOERR != status) … … 980 989 #pragma omp critical (_netcdf) 981 990 { 982 info( 100)<<"start nc_def_var_fill"<<std::endl;991 info(200)<<"start nc_def_var_fill"<<std::endl; 983 992 status = nc_def_var_fill(ncid, varId, noFill, fillValue); 984 info( 100)<<"end nc_def_var_fill"<<std::endl;993 info(200)<<"end nc_def_var_fill"<<std::endl; 985 994 } 986 995 if (NC_NOERR != status) … … 1014 1023 #pragma omp critical (_netcdf) 1015 1024 { 1016 info( 100)<<"start nc_var_par_access"<<std::endl;1025 info(200)<<"start nc_var_par_access"<<std::endl; 1017 1026 status = nc_var_par_access(ncid, varId, access); 1018 info( 100)<<"end nc_var_par_access"<<std::endl;1027 info(200)<<"end nc_var_par_access"<<std::endl; 1019 1028 } 1020 1029 if (NC_NOERR != status) … … 1043 1052 #pragma omp critical (_netcdf) 1044 1053 { 1045 info( 100)<<"start nc_sync"<<std::endl;1054 info(200)<<"start nc_sync"<<std::endl; 1046 1055 status = nc_sync(ncid); 1047 info( 100)<<"end nc_sync"<<std::endl;1056 info(200)<<"end nc_sync"<<std::endl; 1048 1057 } 1049 1058 if (NC_NOERR != status) … … 1069 1078 #pragma omp critical (_netcdf) 1070 1079 { 1071 info( 100)<<"start nc_get_att_double"<<std::endl;1080 info(200)<<"start nc_get_att_double"<<std::endl; 1072 1081 status = nc_get_att_double(ncid, varid, attrName, data); 1073 info( 100)<<"end nc_get_att_double"<<std::endl;1082 info(200)<<"end nc_get_att_double"<<std::endl; 1074 1083 } 1075 1084 return status; … … 1082 1091 #pragma omp critical (_netcdf) 1083 1092 { 1084 info( 100)<<"start nc_get_att_float"<<std::endl;1093 info(200)<<"start nc_get_att_float"<<std::endl; 1085 1094 status = nc_get_att_float(ncid, varid, attrName, data); 1086 info( 100)<<"end nc_get_att_float"<<std::endl;1095 info(200)<<"end nc_get_att_float"<<std::endl; 1087 1096 } 1088 1097 return status; … … 1095 1104 #pragma omp critical (_netcdf) 1096 1105 { 1097 info( 100)<<"start nc_get_att_int"<<std::endl;1106 info(200)<<"start nc_get_att_int"<<std::endl; 1098 1107 status = nc_get_att_int(ncid, varid, attrName, data); 1099 info( 100)<<"end nc_get_att_int"<<std::endl;1108 info(200)<<"end nc_get_att_int"<<std::endl; 1100 1109 } 1101 1110 return status; … … 1108 1117 #pragma omp critical (_netcdf) 1109 1118 { 1110 info( 100)<<"start nc_get_att_long"<<std::endl;1119 info(200)<<"start nc_get_att_long"<<std::endl; 1111 1120 status = nc_get_att_long(ncid, varid, attrName, data); 1112 info( 100)<<"end nc_get_att_long"<<std::endl;1121 info(200)<<"end nc_get_att_long"<<std::endl; 1113 1122 } 1114 1123 return status; … … 1121 1130 #pragma omp critical (_netcdf) 1122 1131 { 1123 info( 100)<<"start nc_get_att_short"<<std::endl;1132 info(200)<<"start nc_get_att_short"<<std::endl; 1124 1133 status = nc_get_att_short(ncid, varid, attrName, data); 1125 info( 100)<<"end nc_get_att_short"<<std::endl;1134 info(200)<<"end nc_get_att_short"<<std::endl; 1126 1135 } 1127 1136 return status; … … 1134 1143 #pragma omp critical (_netcdf) 1135 1144 { 1136 info( 100)<<"start nc_get_att_text"<<std::endl;1145 info(200)<<"start nc_get_att_text"<<std::endl; 1137 1146 status = nc_get_att_text(ncid, varid, attrName, data); 1138 info( 100)<<"end nc_get_att_text"<<std::endl;1147 info(200)<<"end nc_get_att_text"<<std::endl; 1139 1148 } 1140 1149 return status; … … 1149 1158 #pragma omp critical (_netcdf) 1150 1159 { 1151 info( 100)<<"start nc_put_att_double"<<std::endl;1160 info(200)<<"start nc_put_att_double"<<std::endl; 1152 1161 status = nc_put_att_double(ncid, varid, attrName, NC_DOUBLE, numVal, data); 1153 info( 100)<<"end nc_put_att_double"<<std::endl;1162 info(200)<<"end nc_put_att_double"<<std::endl; 1154 1163 } 1155 1164 return status; … … 1163 1172 #pragma omp critical (_netcdf) 1164 1173 { 1165 info( 100)<<"start nc_put_att_float"<<std::endl;1174 info(200)<<"start nc_put_att_float"<<std::endl; 1166 1175 status = nc_put_att_float(ncid, varid, attrName, NC_FLOAT, numVal, data); 1167 info( 100)<<"end nc_put_att_float"<<std::endl;1176 info(200)<<"end nc_put_att_float"<<std::endl; 1168 1177 } 1169 1178 return status; … … 1177 1186 #pragma omp critical (_netcdf) 1178 1187 { 1179 info( 100)<<"start nc_put_att_int"<<std::endl;1188 info(200)<<"start nc_put_att_int"<<std::endl; 1180 1189 status = nc_put_att_int(ncid, varid, attrName, NC_INT, numVal, data); 1181 info( 100)<<"end nc_put_att_int"<<std::endl;1190 info(200)<<"end nc_put_att_int"<<std::endl; 1182 1191 } 1183 1192 return status; … … 1191 1200 #pragma omp critical (_netcdf) 1192 1201 { 1193 info( 100)<<"start nc_put_att_long"<<std::endl;1202 info(200)<<"start nc_put_att_long"<<std::endl; 1194 1203 status = nc_put_att_long(ncid, varid, attrName, NC_LONG, numVal, data); 1195 info( 100)<<"end nc_put_att_long"<<std::endl;1204 info(200)<<"end nc_put_att_long"<<std::endl; 1196 1205 } 1197 1206 return status; … … 1205 1214 #pragma omp critical (_netcdf) 1206 1215 { 1207 info( 100)<<"start nc_put_att_short"<<std::endl;1216 info(200)<<"start nc_put_att_short"<<std::endl; 1208 1217 status = nc_put_att_short(ncid, varid, attrName, NC_SHORT, numVal, data); 1209 info( 100)<<"end nc_put_att_short"<<std::endl;1218 info(200)<<"end nc_put_att_short"<<std::endl; 1210 1219 } 1211 1220 return status; … … 1219 1228 #pragma omp critical (_netcdf) 1220 1229 { 1221 info( 100)<<"start nc_put_att_text"<<std::endl;1230 info(200)<<"start nc_put_att_text"<<std::endl; 1222 1231 status = nc_put_att_text(ncid, varid, attrName, numVal, data); 1223 info( 100)<<"end nc_put_att_text"<<std::endl;1232 info(200)<<"end nc_put_att_text"<<std::endl; 1224 1233 } 1225 1234 return status; … … 1233 1242 #pragma omp critical (_netcdf) 1234 1243 { 1235 info( 100)<<"start nc_get_vara_double"<<std::endl;1244 info(200)<<"start nc_get_vara_double"<<std::endl; 1236 1245 status = nc_get_vara_double(ncid, varid, start, count, data); 1237 info( 100)<<"end nc_get_vara_double"<<std::endl;1246 info(200)<<"end nc_get_vara_double"<<std::endl; 1238 1247 } 1239 1248 return status; … … 1246 1255 #pragma omp critical (_netcdf) 1247 1256 { 1248 info( 100)<<"start nc_get_vara_float"<<std::endl;1257 info(200)<<"start nc_get_vara_float"<<std::endl; 1249 1258 status = nc_get_vara_float(ncid, varid, start, count, data); 1250 info( 100)<<"end nc_get_vara_float"<<std::endl;1259 info(200)<<"end nc_get_vara_float"<<std::endl; 1251 1260 } 1252 1261 return status; … … 1259 1268 #pragma omp critical (_netcdf) 1260 1269 { 1261 info( 100)<<"start nc_get_vara_int"<<std::endl;1270 info(200)<<"start nc_get_vara_int"<<std::endl; 1262 1271 status = nc_get_vara_int(ncid, varid, start, count, data); 1263 info( 100)<<"end nc_get_vara_int"<<std::endl;1272 info(200)<<"end nc_get_vara_int"<<std::endl; 1264 1273 } 1265 1274 return status; … … 1272 1281 #pragma omp critical (_netcdf) 1273 1282 { 1274 info( 100)<<"start nc_get_vara_text"<<std::endl;1283 info(200)<<"start nc_get_vara_text"<<std::endl; 1275 1284 status = nc_get_vara_text(ncid, varid, start, count, data); 1276 info( 100)<<"end nc_get_vara_text"<<std::endl;1285 info(200)<<"end nc_get_vara_text"<<std::endl; 1277 1286 } 1278 1287 return status; … … 1286 1295 #pragma omp critical (_netcdf) 1287 1296 { 1288 info( 100)<<"start nc_put_vara_double"<<std::endl;1297 info(200)<<"start nc_put_vara_double"<<std::endl; 1289 1298 status = nc_put_vara_double(ncid, varid, start, count, data); 1290 info( 100)<<"end nc_put_vara_double"<<std::endl;1299 info(200)<<"end nc_put_vara_double"<<std::endl; 1291 1300 } 1292 1301 return status; … … 1299 1308 #pragma omp critical (_netcdf) 1300 1309 { 1301 info( 100)<<"start nc_put_vara_float"<<std::endl;1310 info(200)<<"start nc_put_vara_float"<<std::endl; 1302 1311 status = nc_put_vara_float(ncid, varid, start, count, data); 1303 info( 100)<<"end nc_put_vara_float"<<std::endl;1312 info(200)<<"end nc_put_vara_float"<<std::endl; 1304 1313 } 1305 1314 return status; … … 1312 1321 #pragma omp critical (_netcdf) 1313 1322 { 1314 info( 100)<<"start nc_put_vara_int"<<std::endl;1323 info(200)<<"start nc_put_vara_int"<<std::endl; 1315 1324 status = nc_put_vara_int(ncid, varid, start, count, data); 1316 info( 100)<<"end nc_put_vara_int"<<std::endl;1325 info(200)<<"end nc_put_vara_int"<<std::endl; 1317 1326 } 1318 1327 return status; … … 1325 1334 #pragma omp critical (_netcdf) 1326 1335 { 1327 info( 100)<<"start nc_put_vara_text"<<std::endl;1336 info(200)<<"start nc_put_vara_text"<<std::endl; 1328 1337 status = nc_put_vara_text(ncid, varid, start, count, data); 1329 info( 100)<<"end nc_put_vara_text"<<std::endl;1338 info(200)<<"end nc_put_vara_text"<<std::endl; 1330 1339 } 1331 1340 return status; … … 1345 1354 #pragma omp critical (_netcdf) 1346 1355 { 1347 info( 100)<<"start isVarExisted"<<std::endl;1356 info(200)<<"start isVarExisted"<<std::endl; 1348 1357 status = nc_inq_varid(ncId, varName.c_str(), &varId); 1349 info( 100)<<"end isVarExisted"<<std::endl;1358 info(200)<<"end isVarExisted"<<std::endl; 1350 1359 } 1351 1360 return (NC_NOERR == status); … … 1358 1367 #pragma omp critical (_netcdf) 1359 1368 { 1360 info( 100)<<"start isDimExisted"<<std::endl;1369 info(200)<<"start isDimExisted"<<std::endl; 1361 1370 status = nc_inq_dimid(ncId, dimName.c_str(), &dimId); 1362 info( 100)<<"end isDimExisted"<<std::endl;1371 info(200)<<"end isDimExisted"<<std::endl; 1363 1372 } 1364 1373 return (NC_NOERR == status);
Note: See TracChangeset
for help on using the changeset viewer.
