Fix warnings in code

[edwardhartnett]

/home/runner/work/NCEPLIBS-wrf_io/NCEPLIBS-wrf_io/wrf_io/src/wrf_io.f90:1157:68:

 1157 |           XField(1:di,i-i1+1+(i2-i1+1)*((k-k1)+(j-j1)*(k2-k1+1))) = Field(1:di,abs(ix-i),abs(jx-j),abs(kx-k))
      |                                                                    1
Error: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Werror=conversion]
/home/runner/work/NCEPLIBS-wrf_io/NCEPLIBS-wrf_io/wrf_io/src/wrf_io.f90:1196:68:

 1196 |           XField(1:di,i-i1+1+(i2-i1+1)*((j-j1)+(k-k1)*(j2-j1+1))) = Field(1:di,abs(ix-i),abs(jx-j),abs(kx-k))
      |                                                                    1
Error: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Werror=conversion]
/home/runner/work/NCEPLIBS-wrf_io/NCEPLIBS-wrf_io/wrf_io/src/wrf_io.f90:1235:[68](https://github.com/NOAA-EMC/NCEPLIBS-wrf_io/actions/runs/3669230622/jobs/6202907134#step:4:69):

 1235 |           XField(1:di,j-j1+1+(j2-j1+1)*((i-i1)+(k-k1)*(i2-i1+1))) = Field(1:di,abs(ix-i),abs(jx-j),abs(kx-k))
      |                                                                    1
Error: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Werror=conversion]
/home/runner/work/NCEPLIBS-wrf_io/NCEPLIBS-wrf_io/wrf_io/src/wrf_io.f90:1274:68:

 1274 |           XField(1:di,k-k1+1+(k2-k1+1)*((i-i1)+(j-j1)*(i2-i1+1))) = Field(1:di,abs(ix-i),abs(jx-j),abs(kx-k))
      |                                                                    1
Error: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Werror=conversion]
/home/runner/work/NCEPLIBS-wrf_io/NCEPLIBS-wrf_io/wrf_io/src/wrf_io.f90:1313:68:

 1313 |           XField(1:di,j-j1+1+(j2-j1+1)*((k-k1)+(i-i1)*(k2-k1+1))) = Field(1:di,abs(ix-i),abs(jx-j),abs(kx-k))
      |                                                                    1
Error: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Werror=conversion]
/home/runner/work/NCEPLIBS-wrf_io/NCEPLIBS-wrf_io/wrf_io/src/wrf_io.f90:1352:68:

 1352 |           XField(1:di,k-k1+1+(k2-k1+1)*((j-j1)+(i-i1)*(j2-j1+1))) = Field(1:di,abs(ix-i),abs(jx-j),abs(kx-k))
      |                                                                    1
Error: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Werror=conversion]
/home/runner/work/NCEPLIBS-wrf_io/NCEPLIBS-wrf_io/wrf_io/src/wrf_io.f90:1391:68:

 1391 |           XField(1:di,j-j1+1+(j2-j1+1)*((i-i1)+(k-k1)*(i2-i1+1))) = Field(1:di,abs(ix-i),abs(jx-j),abs(kx-k))
      |                                                                    1
Error: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Werror=conversion]
/home/runner/work/NCEPLIBS-wrf_io/NCEPLIBS-wrf_io/wrf_io/src/wrf_io.f90:1579:33:

 1579 |       DH%VarNames(NumVars) = Name
      |                                 1
Error: CHARACTER expression will be truncated in assignment (31/256) at (1) [-Werror=character-truncation]
/home/runner/work/NCEPLIBS-wrf_io/NCEPLIBS-wrf_io/wrf_io/src/wrf_io.f90:1427:36:

 1427 |   CALL ext_ncd_open_for_read_begin( DatasetName, Comm1, Comm2, SysDepInfo, DataHandle, Status )
      |                                    1
Error: Dummy argument ‘datasetname’ with INTENT(IN) in variable definition context (actual argument to INTENT = OUT/INOUT) at (1) [-Werror]
/home/runner/work/NCEPLIBS-wrf_io/NCEPLIBS-wrf_io/wrf_io/src/wrf_io.f90:1[71](https://github.com/NOAA-EMC/NCEPLIBS-wrf_io/actions/runs/3669230622/jobs/6202907134#step:4:72)1:33:

 1711 |       DH%VarNames(NumVars) = Name
      |                                 1
Error: CHARACTER expression will be truncated in assignment (31/256) at (1) [-Werror=character-truncation]
/home/runner/work/NCEPLIBS-wrf_io/NCEPLIBS-wrf_io/wrf_io/src/wrf_io.f90:7177:44:

 7177 |               DH%DimNames(i) = RODimNames(j)
      |                                            1
Error: CHARACTER expression will be truncated in assignment (31/80) at (1) [-Werror=character-truncation]
/home/runner/work/NCEPLIBS-wrf_io/NCEPLIBS-wrf_io/wrf_io/src/wrf_io.f90:[72](https://github.com/NOAA-EMC/NCEPLIBS-wrf_io/actions/runs/3669230622/jobs/6202907134#step:4:73)[85](https://github.com/NOAA-EMC/NCEPLIBS-wrf_io/actions/runs/3669230622/jobs/6202907134#step:4:86):71:

 7285 |                                                    ,i1,i2,j1,j2,k1,k2 )
      |                                                                       1
Error: Type mismatch in argument ‘field’ at (1); passed INTEGER(4) to REAL(8) [-Werror=argument-mismatch]
f951: all warnings being treated as errors
make[2]: *** [src/CMakeFiles/wrf_io.dir/build.make:127: src/CMakeFiles/wrf_io.dir/wrf_io.f[90](https://github.com/NOAA-EMC/NCEPLIBS-wrf_io/actions/runs/3669230622/jobs/6202907134#step:4:91).o] Error 1
make[2]: Leaving directory '/home/runner/work/NCEPLIBS-wrf_io/NCEPLIBS-wrf_io/wrf_io/build'
make[1]: *** [CMakeFiles/Makefile2:[98](https://github.com/NOAA-EMC/NCEPLIBS-wrf_io/actions/runs/3669230622/jobs/6202907134#step:4:99): src/CMakeFiles/wrf_io.dir/all] Error 2
make[1]: Leaving directory '/home/runner/work/NCEPLIBS-wrf_io/NCEPLIBS-wrf_io/wrf_io/build'
make: *** [Makefile:136: all] Error 2
Error: Process completed with exit code 2.
0s