| /dports/science/cdo/cdo-2.0.0/src/ |
| H A D | Invertlev.cc | 25 const auto zaxisID1 = vlistZaxis(vlistID, index); in invertLevDes() local
26 const auto zaxisID2 = zaxisDuplicate(zaxisID1); in invertLevDes()
27 const auto zaxistype = zaxisInqType(zaxisID1); in invertLevDes()
29 const auto nlev = zaxisInqSize(zaxisID1); in invertLevDes()
32 if (zaxisInqLevels(zaxisID1, nullptr)) in invertLevDes()
35 zaxisInqLevels(zaxisID1, yv1.data()); in invertLevDes()
40 if (zaxisInqLbounds(zaxisID1, nullptr) && zaxisInqUbounds(zaxisID1, nullptr)) in invertLevDes()
43 zaxisInqLbounds(zaxisID1, yb1.data()); in invertLevDes()
47 zaxisInqUbounds(zaxisID1, yb1.data()); in invertLevDes()
58 zaxisInqVct(zaxisID1, vct1.data()); in invertLevDes()
[all …]
|
| H A D | Change.cc | 202 const auto zaxisID1 = vlistZaxis(vlistID2, index); in changeLevel() local
203 if (zaxisInqLevels(zaxisID1, nullptr)) in changeLevel()
205 const auto nlevs = zaxisInqSize(zaxisID1); in changeLevel()
207 zaxisInqLevels(zaxisID1, &levels[0]); in changeLevel()
232 const auto zaxisID1 = vlistInqVarZaxis(vlistID2, varID); in changeVarLevel() local
233 if (zaxisInqLevels(zaxisID1, nullptr)) in changeVarLevel()
235 const auto nlevs = zaxisInqSize(zaxisID1); in changeVarLevel()
237 zaxisInqLevels(zaxisID1, &levels[0]); in changeVarLevel()
245 const auto zaxisID2 = zaxisDuplicate(zaxisID1); in changeVarLevel()
294 const auto zaxisID1 = vlistZaxis(vlistID2, index); in changeLtype() local
[all …]
|
| H A D | Setzaxis.cc | 49 int zaxisID1, zaxisID2 = -1; in Setzaxis() local
104 zaxisID1 = vlistZaxis(vlistID1, index); in Setzaxis()
106 if (zaxisInqSize(zaxisID1) == zaxisInqSize(zaxisID2)) in Setzaxis()
119 zaxisID1 = vlistZaxis(vlistID1, index); in Setzaxis()
120 auto nlev = zaxisInqSize(zaxisID1); in Setzaxis()
125 cdo_zaxis_inq_levels(zaxisID1, levels.data()); in Setzaxis()
126 zaxisID2 = zaxisDuplicate(zaxisID1); in Setzaxis()
127 if (!zaxisInqLevels(zaxisID1, nullptr)) zaxisDefLevels(zaxisID2, levels.data()); in Setzaxis()
|
| H A D | Set.cc | 31 const auto zaxisID1 = vlistZaxis(vlistID2, index); in setlevel() local
32 const auto zaxisID2 = zaxisDuplicate(zaxisID1); in setlevel()
38 vlistChangeZaxis(vlistID2, zaxisID1, zaxisID2); in setlevel()
48 const auto zaxisID1 = vlistZaxis(vlistID2, index); in setltype() local
49 const auto zaxisID2 = zaxisDuplicate(zaxisID1); in setltype()
53 vlistChangeZaxis(vlistID2, zaxisID1, zaxisID2); in setltype()
|
| H A D | Selsurface.cc | 205 int zaxisID1 = -1; in Selsurface() local
214 zaxisID1 = zaxisID; in Selsurface()
218 if (zaxisID1 == -1) cdo_abort("No processable variable found!"); in Selsurface()
220 const auto nlevels = zaxisInqSize(zaxisID1); in Selsurface()
222 cdo_zaxis_inq_levels(zaxisID1, levels.data()); in Selsurface()
228 if (lpositive && positiveIsDown(zaxisID1)) std::swap(bottom_value_func, top_value_func); in Selsurface()
232 if (zaxisID1 == vlistZaxis(vlistID1, i)) vlistChangeZaxisIndex(vlistID2, i, zaxisIDsfc); in Selsurface()
247 …for (int varID = 0; varID < nvars; varID++) isVar3D[varID] = (varList1[varID].zaxisID == zaxisID1); in Selsurface()
|
| H A D | Intlevel.cc | 293 create_zaxis_from_zaxis(const std::vector<double> &levels, int zaxisID1) in create_zaxis_from_zaxis() argument
296 const auto zaxisID2 = zaxisCreate(zaxisInqType(zaxisID1), nlevels); in create_zaxis_from_zaxis()
300 cdiInqKeyString(zaxisID1, CDI_GLOBAL, CDI_KEY_NAME, str, &length); in create_zaxis_from_zaxis()
304 cdiInqKeyString(zaxisID1, CDI_GLOBAL, CDI_KEY_LONGNAME, str, &length); in create_zaxis_from_zaxis()
308 cdiInqKeyString(zaxisID1, CDI_GLOBAL, CDI_KEY_UNITS, str, &length); in create_zaxis_from_zaxis()
312 cdiInqKeyInt(zaxisID1, CDI_GLOBAL, CDI_KEY_DATATYPE, &datatype); in create_zaxis_from_zaxis()
372 int zaxisID1 = -1; in Intlevel() local
473 zaxisID1 = zaxisID; in Intlevel()
490 zaxisID1 = zaxisID; in Intlevel()
500 cdo_zaxis_inq_levels(zaxisID1, &lev1[1]); in Intlevel()
[all …]
|
| H A D | Intlevel3d.cc | 211 int zaxisID1 = -1; in Intlevel3d() local
219 zaxisID1 = zaxisID; in Intlevel3d()
241 const auto zaxisID3 = zaxisCreate(zaxisInqType(zaxisID1), nlevo); in Intlevel3d()
248 const auto nvct = zaxisInqVctSize(zaxisID1); in Intlevel3d()
249 if (nvct > 0) zaxisDefVct(zaxisID3, zaxisInqVctSize(zaxisID1), zaxisInqVctPtr(zaxisID1)); in Intlevel3d()
252 if (zaxisID1 == vlistZaxis(vlistID1, i)) vlistChangeZaxisIndex(vlistID3, i, zaxisID3); in Intlevel3d()
291 …varinterp[varID] = (zaxisID == zaxisID1 && varID != oz3dvarID && gridsize == gridSize && gridsizeo… in Intlevel3d()
|
| H A D | cdo_vlist.cc | 191 zaxisCheckLevels(int zaxisID1, int zaxisID2) in zaxisCheckLevels() argument
193 if (zaxisID1 != zaxisID2) in zaxisCheckLevels()
195 const auto nlev1 = zaxisInqSize(zaxisID1); in zaxisCheckLevels()
200 cdo_zaxis_inq_levels(zaxisID1, &lev1[0]); in zaxisCheckLevels()
336 const auto zaxisID1 = vlistInqVarZaxis(vlistID1, varID); in vlist_compare() local
338 if (zaxisCheckLevels(zaxisID1, zaxisID2) != 0) break; in vlist_compare()
472 const auto zaxisID1 = vlistInqVarZaxis(vlistID1, varID1); in vlist_map() local
474 if (zaxisCheckLevels(zaxisID1, zaxisID2) != 0) break; in vlist_map()
668 vlist_change_hybrid_zaxis(int vlistID1, int vlistID2, int zaxisID1, int zaxisID2) in vlist_change_hybrid_zaxis() argument
679 if (zaxisID == zaxisID1 && nlevel > 1) in vlist_change_hybrid_zaxis()
|
| H A D | WindTrans.cc | 56 #define CheckUVisStaggered(varID1, varID2, zaxisID1, zaxisID2) \ argument
61 if (zaxisID1 != zaxisID2) \
185 int zaxisID1 = CDI_UNDEFID, zaxisID2 = CDI_UNDEFID; in DestaggerUV() local
315 zaxisID1 = zaxisID; in DestaggerUV()
325 CheckUVisStaggered(varID1, varID2, zaxisID1, zaxisID2); in DestaggerUV()
1293 int code1, zaxisID1, ltype1; in TransformUV() local
1306 zaxisID1 = vlistInqVarZaxis(vlistID2, varID1); in TransformUV()
1307 ltype1 = zaxis_to_ltype(zaxisID1); in TransformUV()
1308 nlevel1 = zaxisInqSize(zaxisID1); in TransformUV()
1315 varID1, code1, varname, ltype1, nlevel1, zaxisID1); in TransformUV()
[all …]
|
| H A D | cdo_vlist.h | 34 void vlist_change_hybrid_zaxis(int vlistID1, int vlistID2, int zaxisID1, int zaxisID2);
|
| H A D | Ensval.cc | 154 const auto zaxisID1 = vlistInqVarZaxis(vlistID1, 0); in Ensval() local
208 zaxisID2[stream] = zaxisDuplicate(zaxisID1); in Ensval()
|
| /dports/science/cdo/cdo-2.0.0/libcdi/examples/ |
| H A D | cdi_write_const.c | 10 int gridID, zaxisID1, zaxisID2; in main() local
28 zaxisID1 = zaxisCreate(ZAXIS_SURFACE, 1); in main()
38 varID1 = vlistDefVar(vlistID, gridID, zaxisID1, TIME_CONSTANT); in main()
71 zaxisDestroy(zaxisID1); in main()
|
| H A D | cdi_write_f2003.f90 | 15 INTEGER gridID, zaxisID1, zaxisID2, taxisID variable
37 zaxisID1 = zaxisCreate(ZAXIS_SURFACE, 1)
47 varID1 = vlistDefVar(vlistID, gridID, zaxisID1, TIME_VARYING)
100 CALL zaxisDestroy(zaxisID1)
|
| H A D | cdi_write_local.c | 11 int gridID, zaxisID1, zaxisID2, taxisID; in main() local
29 zaxisID1 = zaxisCreate(ZAXIS_SURFACE, 1); in main()
39 varID1 = vlistDefVar(vlistID, gridID, zaxisID1, TIME_VARYING); in main()
100 zaxisDestroy(zaxisID1); in main()
|
| H A D | cdi_write_hybrid.c | 12 int gridID, zaxisID1, zaxisID2, zaxisID3, zaxisID4, taxisID; in main() local
34 zaxisID1 = zaxisCreate(ZAXIS_SURFACE, 1); in main()
57 varID1 = vlistDefVar(vlistID, gridID, zaxisID1, TIME_VARYING); in main()
117 zaxisDestroy(zaxisID1); in main()
|
| H A D | cdi_write.c | 28 int zaxisID1 = zaxisCreate(ZAXIS_SURFACE, 1); in main() local
38 int varID1 = vlistDefVar(vlistID, gridID, zaxisID1, TIME_VARYING); in main()
87 zaxisDestroy(zaxisID1); in main()
|
| H A D | cdi_write_relativ.c | 28 int zaxisID1 = zaxisCreate(ZAXIS_SURFACE, 1); in main() local
38 int varID1 = vlistDefVar(vlistID, gridID, zaxisID1, TIME_VARYING); in main()
87 zaxisDestroy(zaxisID1); in main()
|
| /dports/science/cdo/cdo-2.0.0/libcdi/examples/pio/ |
| H A D | collectData2003.F90 | 77 INTEGER :: gridID, zaxisID1, zaxisID2, taxisID local
107 zaxisID1 = zaxisCreate(ZAXIS_SURFACE, 1)
117 varID1 = vlistDefVar(vlistID, gridID, zaxisID1, TIME_VARIABLE)
233 CALL zaxisDestroy(zaxisID1)
|
| /dports/science/cdo/cdo-2.0.0/libcdi/src/ |
| H A D | vlist.c | 897 int zaxisID1 = vars1[varID].zaxisID; in vlistMerge() local
903 int nlevs1 = zaxisInqSize(zaxisID1); in vlistMerge()
913 if ( zaxisInqLevels(zaxisID1, NULL) ) in vlistMerge()
917 zaxisInqLevels(zaxisID1, levels); in vlistMerge()
1454 void vlistChangeZaxis(int vlistID, int zaxisID1, int zaxisID2) in vlistChangeZaxis() argument
1456 int nlevs1 = zaxisInqSize(zaxisID1), nlevs2 = zaxisInqSize(zaxisID2); in vlistChangeZaxis()
1462 if ( vlistptr->zaxisIDs[index] == zaxisID1 ) in vlistChangeZaxis()
1471 if ( vlistptr->vars[varID].zaxisID == zaxisID1 ) in vlistChangeZaxis()
|
| H A D | cdi.h | 535 void vlistChangeZaxis(int vlistID, int zaxisID1, int zaxisID2);
|
| H A D | cdi.inc | 895 ! INTEGER zaxisID1,
|
| H A D | cdilib.c | 613 void vlistChangeZaxis(int vlistID, int zaxisID1, int zaxisID2);
64710 int zaxisID1 = vars1[varID].zaxisID; in vlistMerge() local
64716 int nlevs1 = zaxisInqSize(zaxisID1); in vlistMerge()
64726 if ( zaxisInqLevels(zaxisID1, NULL) ) in vlistMerge()
64730 zaxisInqLevels(zaxisID1, levels); in vlistMerge()
65267 void vlistChangeZaxis(int vlistID, int zaxisID1, int zaxisID2) in vlistChangeZaxis() argument
65269 int nlevs1 = zaxisInqSize(zaxisID1), nlevs2 = zaxisInqSize(zaxisID2); in vlistChangeZaxis()
65275 if ( vlistptr->zaxisIDs[index] == zaxisID1 ) in vlistChangeZaxis()
65284 if ( vlistptr->vars[varID].zaxisID == zaxisID1 ) in vlistChangeZaxis()
|