Minor tidy-up in response to Russ Treadon's review.

src/enkf/statevec.f90

@@ -159,8 +159,6 @@ subroutine init_statevec()
   print *, 'ns3d: ', ns3d, ', ns2d: ', ns2d, ', nsdim: ', nsdim
 endif
 
-
-
 call getgridinfo(statefileprefixes(nstatefields/2+1), .false.)
 
 end subroutine init_statevec

src/gsi/read_prepbufr.f90

@@ -1981,16 +1981,16 @@ subroutine read_prepbufr(nread,ndata,nodata,infile,obstype,lunout,twindin,sis,&
                      pqm(k)=2 ! otherwise, type 183 will be discarded.
                      qm=2
                      tqm(k)=2
-                     if (kx==187) obserr(3,k)=2.0
-                     if (kx==181) obserr(3,k)=2.0
-                     if (kx==183) obserr(3,k)=2.0
+                     if (kx==187) obserr(3,k)=2.0_r_double
+                     if (kx==181) obserr(3,k)=2.0_r_double
+                     if (kx==183) obserr(3,k)=2.0_r_double
                 endif
                 if (qob .and. qm == 9 ) then 
                      qm = 2
                      ! qob err specified as fraction of qsat, multiplied by 10.
-                     if (kx==187) obserr(2,k)=1.0
-                     if (kx==181) obserr(2,k)=1.0
-                     if (kx==183) obserr(2,k)=1.0
+                     if (kx==187) obserr(2,k)=1.0_r_double
+                     if (kx==181) obserr(2,k)=1.0_r_double
+                     if (kx==183) obserr(2,k)=1.0_r_double
                 endif
               endif
 !             Set usage variable              

src/gsi/setupq.f90

@@ -1016,7 +1016,7 @@ subroutine setupq(obsLL,odiagLL,lunin,mype,bwork,awork,nele,nobs,is,conv_diagsav
            my_head => null()
         ENDDO
 
-     endif  ! i_use_2mq4b block
+     endif  ! l_pbl_pseudo_itype
 !!!!!!!!!!!!!!!!!!  PBL pseudo surface obs  !!!!!!!!!!!!!!!!!!!!!!!
 
 ! End of loop over observations