From 74947da5067ee0c52395a2ebb5e7233d19ddf9f8 Mon Sep 17 00:00:00 2001 From: wx20jjung Date: Fri, 20 Sep 2024 00:39:35 +0000 Subject: [PATCH] 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. --- src/gsi/radinfo.f90 | 2 +- src/gsi/read_gmi.f90 | 1 - 2 files changed, 1 insertion(+), 2 deletions(-) diff --git a/src/gsi/radinfo.f90 b/src/gsi/radinfo.f90 index 2abc4c7b04..e7624fab70 100644 --- 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 index 6ad4d829a3..d02520d7e0 100644 --- 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