Made write statements to fort.207 consistent in radinfo.f90. nrec was…

… initialized twice in read_gmi.f90, once before and after it was allocated. I removed the first instance.
NOAA-EMC · Sep 20, 2024 · 74947da · 74947da
1 parent d928aab
commit 74947da
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 2 deletions.
diff --git a/src/gsi/radinfo.f90 b/src/gsi/radinfo.f90
@@ -805,7 +805,7 @@ subroutine radinfo_read
     end do
     close(lunin)
 100 format(a1,a120)
-110 format(i6,1x,a20,' chan= ',i5,  &
+110 format(i5,1x,a20,' chan= ',i5,  &
           ' var= ',f7.3,' varch_cld=',f7.3,' use= ',i2,' ermax= ',F7.3, &
           ' b_rad= ',F7.2,' pg_rad=',F7.2,' icld_det=',I2,' icloud=',I2,' iaeros=',I2)
 111 format(i4,1x,a20,' chan= ',i5,  &

diff --git a/src/gsi/read_gmi.f90 b/src/gsi/read_gmi.f90
@@ -346,7 +346,6 @@ subroutine read_gmi(mype,val_gmi,ithin,rmesh,jsatid,gstime,&
   next=0
   irec=0
   iobs=1
-  nrec=999999
 
   read_subset: do while(ireadmg(lnbufr,subset,idate)>=0) ! GMI scans
      irec=irec+1