diff --git a/src/gsi/radinfo.f90 b/src/gsi/radinfo.f90
index be4629b7d..3653773a0 100644
--- a/src/gsi/radinfo.f90
+++ b/src/gsi/radinfo.f90
@@ -1254,7 +1254,6 @@ subroutine radinfo_write(pe_out)
 ! !USES:
 
     use mpimod, only: mype
-    use constants, only: r10000
     implicit none
 
     integer(i_kind),optional, intent(in) :: pe_out
@@ -1275,11 +1274,7 @@ subroutine radinfo_write(pe_out)
           rewind lunout
           do jch=1,jpch_rad
              do i=1,npred
-                if (inew_rad(jch) .or. abs(ostats(jch)) .le. tiny(ostats(1))) then
-                   varx(i) = r10000
-                else
-                   varx(i)=varA(i,jch)
-                endif
+                varx(i)=varA(i,jch)
              end do
              write(lunout,'(I5,1x,A20,1x,I5,e15.7/2(4x,10e15.7/))') jch,nusis(jch),&
                   nuchan(jch),ostats(jch),(varx(ip),ip=1,npred)