Round-off problems in netcdf_check_var

[arango]

Modified netcdf_check_var to check few variables for consistency within a tolerance value. The problem is due to round-off. See the following ​forum posting.

For example, now I have:

          CASE ('theta_b')
            CALL netcdf_get_fvar (ng, IDmod, ncname, var_name(i),       &
     &                            FvarS)
            IF (exit_flag.ne.NoError) RETURN

            IF (ABS(theta_b(ng)-FvarS).gt.RoundOff) THEN
              IF (Master) WRITE (stdout,20) TRIM(var_name(i)),          &
     &                                      FvarS, theta_b(ng),         &
     &                                      TRIM(ncname)
              exit_flag=5
              EXIT
            END IF

Many thanks to Mark Hadfield for reporting this problem.