remove station elevation adjustment to T,Q and evaporation bug fix

NOAA-EMC · Jun 4, 2020 · 7675368 · 7675368
1 parent 8dc2e25
commit 7675368
Show file tree

Hide file tree

Showing 2 changed files with 99 additions and 206 deletions.
diff --git a/sorc/gfs_bufr.fd/gfsbufr.f b/sorc/gfs_bufr.fd/gfsbufr.f
@@ -212,7 +212,7 @@ program meteormrf
           error=nf90_inq_dimid(ncid,"pfull",dimid)
           error=nf90_inquire_dimension(ncid,dimid,dim_nam,levsi)
           error=nf90_close(ncid)
-!!          print*,'NetCDF file im,jm,lm= ',im,jm,levs,levsi
+          print*,'NetCDF file im,jm,lm= ',im,jm,levs,levsi
 
            else
           call nemsio_init(iret=irets)
@@ -239,7 +239,7 @@ program meteormrf
 
           call meteorg(npoint,rlat,rlon,istat,cstat,elevstn,
      &             nf,nfile,fnsig,jdate,idate,
-     &      levs,levsi,im,jm,nsfc,
+     &      levsi,im,jm,nsfc,
      &      landwater,nend1, nint1, nint3, iidum,jjdum,
      &      fformat,iocomms(ntask),iope,ionproc)
        call mpi_barrier(iocomms(ntask), ierr)
@@ -248,7 +248,7 @@ program meteormrf
 !! For nemsio input
           call meteorg(npoint,rlat,rlon,istat,cstat,elevstn,
      &             nf,nfile,fnsig,jdate,idate,
-     &      levs,levsi,im,jm,nsfc,
+     &      levs,im,jm,nsfc,
      &      landwater,nend1, nint1, nint3, iidum,jjdum,
      &      fformat,iocomms(ntask),iope,ionproc)
         endif