subroutine wrqs(qerr,qlon,qlat,qlong,qlatg,qpres,qobs,qges,qsatges, & qletaobs,bighq,ibighq, & qstaid,qtime,qelev,qtobs,qqm,qtype,qmaxerr,iqlabel,mqdata,lbig3ges) ! transfer moisture data to common include 'types.h' include "PARMETA.comm" include "mpp.h" include "mpif.h" include "my_comm.h" include "r3dv_data.comm" real(4) qerr(*),qlon(*),qlat(*) real(4) qlong(*),qlatg(*) real(4) qpres(*),qobs(*) real(4) qges(*),qsatges(*) real(4) qletaobs(*),bighq(lbig3ges,*) integer(4) ibighq(lbig3ges,*) integer(8) iqlabel(*) character(8) qstaid(*) real(4) qtime(*),qtype(*),qmaxerr(*) real(4) qelev(*),qtobs(*),qqm(*) nqdatacom=mqdata if(mqdata.gt.0) then do i=1,mqdata all_loc_data(iadqdata(i))%type=qtype(i) all_loc_data(iadqdata(i))%staid=qstaid(i) all_loc_data(iadqdata(i))%error=qerr(i) all_loc_data(iadqdata(i))%lon=qlon(i) all_loc_data(iadqdata(i))%lat=qlat(i) all_loc_data(iadqdata(i))%pressure=qpres(i) all_loc_data(iadqdata(i))%qobs=qobs(i) all_loc_data(iadqdata(i))%qges=qges(i) all_loc_data(iadqdata(i))%qsatges=qsatges(i) all_loc_data(iadqdata(i))%rletaobs=qletaobs(i) all_loc_data(iadqdata(i))%bigh(1:lbig3ges)=bighq(1:lbig3ges,i) all_loc_data(iadqdata(i))%ibigh(1:lbig3ges)=ibighq(1:lbig3ges,i) all_loc_data(iadqdata(i))%time=qtime(i) all_loc_data(iadqdata(i))%tobs=qtobs(i) all_loc_data(iadqdata(i))%elevobs=qelev(i) all_loc_data(iadqdata(i))%maxerror=qmaxerr(i) all_loc_data(iadqdata(i))%long=qlong(i) all_loc_data(iadqdata(i))%latg=qlatg(i) all_loc_data(iadqdata(i))%qqm=qqm(i) all_loc_data(iadqdata(i))%label=iqlabel(i) end do end if return end subroutine wrqs