@@ -180,9 +180,9 @@ int e3sm_io_case::run_varn_G_case_rd (e3sm_io_config &cfg,
180180 double **D6_rec_dbl_bufp, /* D6 rec double buffer */
181181 double **D1_fix_dbl_bufp) /* D1 fix double buffer */
182182{
183- int ii, i, j, k, err, rank, ncid, *varids;
183+ int i, j, k, err, rank, ncid, *varids;
184184 int nrecs=0 , rec_no, my_nreqs;
185- size_t rec_buflen, nelems[6 ];
185+ size_t ii, rec_buflen, nelems[6 ];
186186 double *D1_rec_dbl_buf, *D3_rec_dbl_buf, *D4_rec_dbl_buf, *D5_rec_dbl_buf, *D6_rec_dbl_buf,
187187 *rec_buf_ptr;
188188 int *D1_fix_int_buf, *D2_fix_int_buf, *D3_fix_int_buf, *D4_fix_int_buf, *D5_fix_int_buf;
@@ -315,47 +315,47 @@ int e3sm_io_case::run_varn_G_case_rd (e3sm_io_config &cfg,
315315 /* int (nCells): maxLevelCell */
316316 if (nelems[0 ] > 0 ) {
317317 D1_fix_int_buf = (int *)malloc (nelems[0 ] * sizeof (int ));
318- for (ii=0 ; ii<nelems[0 ]; ii++) D1_fix_int_buf[ii] = rank + ii;
318+ for (ii=0 ; ii<nelems[0 ]; ii++) D1_fix_int_buf[ii] = rank + ( int ) ii;
319319 *D1_fix_int_bufp = D1_fix_int_buf;
320320 } else
321321 D1_fix_int_buf = NULL ;
322322
323323 /* int (nEdges): maxLevelEdgeTop and maxLevelEdgeBot */
324324 if (nelems[1 ] > 0 ) {
325325 D2_fix_int_buf = (int *)malloc (2 * nelems[1 ] * sizeof (int ));
326- for (ii= 0 ; ii<2 *nelems[1 ]; ii++) D2_fix_int_buf[ii] = rank + ii;
326+ for (ii= 0 ; ii<2 *nelems[1 ]; ii++) D2_fix_int_buf[ii] = rank + ( int ) ii;
327327 *D2_fix_int_bufp = D2_fix_int_buf;
328328 } else
329329 D2_fix_int_buf = NULL ;
330330
331331 /* int (nCells, nVertLevels): cellMask */
332332 if (nelems[2 ] > 0 ) {
333333 D3_fix_int_buf = (int *)malloc (nelems[2 ] * sizeof (int ));
334- for (ii=0 ; ii<nelems[2 ]; ii++) D3_fix_int_buf[ii] = rank + ii;
334+ for (ii=0 ; ii<nelems[2 ]; ii++) D3_fix_int_buf[ii] = rank + ( int ) ii;
335335 *D3_fix_int_bufp = D3_fix_int_buf;
336336 } else
337337 D3_fix_int_buf = NULL ;
338338
339339 /* int (nEdges, nVertLevels): edgeMask */
340340 if (nelems[3 ] > 0 ) {
341341 D4_fix_int_buf = (int *)malloc (nelems[3 ] * sizeof (int ));
342- for (ii=0 ; ii<nelems[3 ]; ii++) D4_fix_int_buf[ii] = rank + ii;
342+ for (ii=0 ; ii<nelems[3 ]; ii++) D4_fix_int_buf[ii] = rank + ( int ) ii;
343343 *D4_fix_int_bufp = D4_fix_int_buf;
344344 } else
345345 D4_fix_int_buf = NULL ;
346346
347347 /* int (nVertices, nVertLevels): vertexMask */
348348 if (nelems[4 ] > 0 ) {
349349 D5_fix_int_buf = (int *)malloc (nelems[4 ] * sizeof (int ));
350- for (ii=0 ; ii<nelems[4 ]; ii++) D5_fix_int_buf[ii] = rank + ii;
350+ for (ii=0 ; ii<nelems[4 ]; ii++) D5_fix_int_buf[ii] = rank + ( int ) ii;
351351 *D5_fix_int_bufp = D5_fix_int_buf;
352352 } else
353353 D5_fix_int_buf = NULL ;
354354
355355 /* double (nCells): bottomDepth */
356356 if (nelems[0 ] > 0 ) {
357357 D1_fix_dbl_buf = (double *)malloc (nelems[0 ] * sizeof (double ));
358- for (ii=0 ; ii<nelems[0 ]; ii++) D1_fix_dbl_buf[ii] = rank + ii;
358+ for (ii=0 ; ii<nelems[0 ]; ii++) D1_fix_dbl_buf[ii] = rank + ( int ) ii;
359359 *D1_fix_dbl_bufp = D1_fix_dbl_buf;
360360 } else
361361 D1_fix_dbl_buf = NULL ;
@@ -364,39 +364,39 @@ int e3sm_io_case::run_varn_G_case_rd (e3sm_io_config &cfg,
364364 if (nelems[0 ] > 0 ) {
365365 rec_buflen = nelems[0 ] * nD1_rec_2d_vars;
366366 D1_rec_dbl_buf = (double *)malloc (rec_buflen * sizeof (double ));
367- for (ii=0 ; ii<rec_buflen; ii++) D1_rec_dbl_buf[ii] = rank + ii;
367+ for (ii=0 ; ii<rec_buflen; ii++) D1_rec_dbl_buf[ii] = rank + ( int ) ii;
368368 *D1_rec_dbl_bufp = D1_rec_dbl_buf;
369369 } else
370370 D1_rec_dbl_buf = NULL ;
371371
372372 if (nelems[2 ] > 0 ) {
373373 rec_buflen = nelems[2 ] * nD3_rec_3d_vars;
374374 D3_rec_dbl_buf = (double *)malloc (rec_buflen * sizeof (double ));
375- for (ii=0 ; ii<rec_buflen; ii++) D3_rec_dbl_buf[ii] = rank + ii;
375+ for (ii=0 ; ii<rec_buflen; ii++) D3_rec_dbl_buf[ii] = rank + ( int ) ii;
376376 *D3_rec_dbl_bufp = D3_rec_dbl_buf;
377377 } else
378378 D3_rec_dbl_buf = NULL ;
379379
380380 if (nelems[3 ] > 0 ) {
381381 rec_buflen = nelems[3 ] * nD4_rec_3d_vars;
382382 D4_rec_dbl_buf = (double *)malloc (rec_buflen * sizeof (double ));
383- for (ii=0 ; ii<rec_buflen; ii++) D4_rec_dbl_buf[ii] = rank + ii;
383+ for (ii=0 ; ii<rec_buflen; ii++) D4_rec_dbl_buf[ii] = rank + ( int ) ii;
384384 *D4_rec_dbl_bufp = D4_rec_dbl_buf;
385385 } else
386386 D4_rec_dbl_buf = NULL ;
387387
388388 if (nelems[4 ] > 0 ) {
389389 rec_buflen = nelems[4 ] * nD5_rec_3d_vars;
390390 D5_rec_dbl_buf = (double *)malloc (rec_buflen * sizeof (double ));
391- for (ii=0 ; ii<rec_buflen; ii++) D5_rec_dbl_buf[ii] = rank + ii;
391+ for (ii=0 ; ii<rec_buflen; ii++) D5_rec_dbl_buf[ii] = rank + ( int ) ii;
392392 *D5_rec_dbl_bufp = D5_rec_dbl_buf;
393393 } else
394394 D5_rec_dbl_buf = NULL ;
395395
396396 if (nelems[5 ] > 0 ) {
397397 rec_buflen = nelems[5 ] * nD6_rec_3d_vars;
398398 D6_rec_dbl_buf = (double *)malloc (rec_buflen * sizeof (double ));
399- for (ii=0 ; ii<rec_buflen; ii++) D6_rec_dbl_buf[ii] = rank + ii;
399+ for (ii=0 ; ii<rec_buflen; ii++) D6_rec_dbl_buf[ii] = rank + ( int ) ii;
400400 *D6_rec_dbl_bufp = D6_rec_dbl_buf;
401401 } else
402402 D6_rec_dbl_buf = NULL ;
0 commit comments