id	summary	reporter	owner	description	type	status	priority	milestone	component	version	resolution	keywords	cc
367	Updated get_ngfld.F and get_ngfldr.F	arango	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. "	upgrade	closed	minor	Release ROMS/TOMS 3.3	Nonlinear	3.3	Done