Incorrect error explanations when reading NetCDF

[ianthomas]

Firstly, in ROMS/Utility/get_grid.F, lines 171-175 are

      IF (.not.find_string(var_name,n_var,'mask_psi',vindex)) THEN
        IF (Master) WRITE (stdout,10) 'mask_rho', TRIM(ncname)
        exit_flag=2
        RETURN
      END IF

The second line should be

       IF (Master) WRITE (stdout,10) 'mask_psi', TRIM(ncname)

Secondly, in ROMS/Utility/checkvars.F, lines 343-348 are

      IF (.not.have_var(idtime)) THEN
        IF (Master) WRITE (stdout,10) string, TRIM(tvarnam),            &
     &                                TRIM(ncname)
        exit_flag=2
        RETURN
      END IF

I think the second line should instead be

        IF (Master) WRITE (stdout,10) string, TRIM(Vname(1,idtime)),     &