Updated get_ngfld.F and get_ngfldr.F

[arango]

Updated files get_ngfld.F and get_ngfldr.F to allow reading 3D variables with Jrec=1. The variable Jrec is used to differentiate reading between 3D and 2D arrays:

            IF ((Jrec.gt.1).or.                                         &
     &          ((Jrec.eq.1).and.(Iinfo(7,ifield,ng).gt.0))) THEN
              npts=(Iend-Istr+1)*Jrec
              CALL netcdf_get_fvar (ng, model, ncfile, Vname(1,ifield), &
     &                              A,                                  &
     &                              ncid = ncid,                        &
     &                              start = (/1,1,Trec/),               &
     &                              total = (/Iend-Istr+1,Jrec,1/))
            ELSE
              npts=Iend-Istr+1
              CALL netcdf_get_fvar (ng, model, ncfile, Vname(1,ifield), &
     &                              A,                                  &
     &                              ncid = ncid,                        &
     &                              start = (/1,Trec/),                 &
     &                              total = (/Iend-Istr+1,1/))
            END IF

Although this is not needed currently, it will be used in the future to read other fields.

Many thanks to John Warner for bringing this to my attention.