Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Write all non-fatal messages to stdout instead stderr #666

Merged
merged 2 commits into from
Mar 23, 2023
Merged

Write all non-fatal messages to stdout instead stderr #666

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
a2cbc86
Write all non-fatal messages to stdout instead stderr
DusanJovic-NOAA Mar 21, 2023
dea9ed7
Merge branch 'NOAA-EMC:develop' into upp_no_err
DusanJovic-NOAA Mar 22, 2023
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 1 addition & 1 deletion sorc/ncep_post.fd/CALWXT_RAMER.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -471,7 +471,7 @@ FUNCTION xmytw_post(t,td,p)
kd = td
cflag = 0
END IF
if (kd == 0.0) write(0,*)' kd=',kd,' t=',t,' p=',p,' td=',td
if (kd == 0.0) write(*,*)' kd=',kd,' t=',t,' p=',p,' td=',td
!
ed = c0 - c1 * kd - c2 / kd
IF (ed<-14.0.or.ed>7.0) RETURN
Expand Down
4 changes: 2 additions & 2 deletions sorc/ncep_post.fd/CLDRAD.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -1001,7 +1001,7 @@ SUBROUTINE CLDRAD
endif
DELY=14259./DY_m
numr=NINT(DELY)
write (0,*) 'numr,dyval,DY_m=',numr,dyval,DY_m
write (*,*) 'numr,dyval,DY_m=',numr,dyval,DY_m
DO L=LM,1,-1
DO J=JSTA,JEND
DO I=ISTA,IEND
Expand Down Expand Up @@ -1596,7 +1596,7 @@ SUBROUTINE CLDRAD
!
!--- Various convective cloud base & cloud top levels
!
! write(0,*)' hbot=',hbot(i,j),' hbotd=',hbotd(i,j),'
! write(*,*)' hbot=',hbot(i,j),' hbotd=',hbotd(i,j),'
! hbots=',hbots(i,j)&
! ,' htop=',htop(i,j),' htopd=',htopd(i,j),' htops=',htops(i,j),i,j
! Initilize
Expand Down
8 changes: 4 additions & 4 deletions sorc/ncep_post.fd/COLLECT_LOC.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -42,7 +42,7 @@ SUBROUTINE COLLECT_LOC ( A, B )
do jj=jsxa(me),jexa(me)
do ii=isxa(me),iexa(me)
if(isum .gt. im*jm .or. ii .gt. im .or. ii .lt. 1 .or. jj .gt. jm .or. jj.lt. 1) &
write(0,901)' BOUNDS2 FAIL in reshape ',isum,ii,jj,im*jm,im,im*jm
write(*,901)' BOUNDS2 FAIL in reshape ',isum,ii,jj,im*jm,im,im*jm
rbufs(isum)=a(ii,jj)
isum=isum+1
end do
Expand All @@ -60,7 +60,7 @@ SUBROUTINE COLLECT_LOC ( A, B )
do jj=jsxa(n),jexa(n)
do ii=isxa(n),iexa(n)
if(isum .gt. im*jm .or. ii .gt. im .or. ii .lt. 1 .or. jj .gt. jm .or. jj .lt. 1) &
write(0,901)' BOUNDS FAIL in reshape ',isum,ii,jj,im*jm,im,im*jm
write(*,901)' BOUNDS FAIL in reshape ',isum,ii,jj,im*jm,im,im*jm
b(ii,jj)=buff(isum)
isum=isum+1
end do
Expand Down Expand Up @@ -106,7 +106,7 @@ SUBROUTINE COLLECT_ALL ( A, B )
do jj=jsxa(me),jexa(me)
do ii=isxa(me),iexa(me)
if(isum .gt. im*jm .or. ii .gt. im .or. ii .lt. 1 .or. jj .gt. jm .or. jj.lt. 1) &
write(0,901)' BOUNDS2 FAIL in reshape',isum,ii,jj,im*jm,im,im*jm
write(*,901)' BOUNDS2 FAIL in reshape',isum,ii,jj,im*jm,im,im*jm
rbufs(isum)=a(ii,jj)
isum=isum+1
end do
Expand All @@ -122,7 +122,7 @@ SUBROUTINE COLLECT_ALL ( A, B )
do jj=jsxa(n),jexa(n)
do ii=isxa(n),iexa(n)
if(isum .gt. im*jm .or. ii .gt. im .or. ii .lt. 1 .or. jj .gt. jm .or. jj .lt. 1) &
write(0,901)' BOUNDS FAIL in reshape',isum,ii,jj,im*jm,im,im*jm
write(*,901)' BOUNDS FAIL in reshape',isum,ii,jj,im*jm,im,im*jm
b(ii,jj)=buff(isum)
isum=isum+1
end do
Expand Down
38 changes: 19 additions & 19 deletions sorc/ncep_post.fd/EXCH.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -51,7 +51,7 @@ SUBROUTINE EXCH(A)
jbl=max(jsta-1,1)
!

! write(0,*) 'mype=',me,'num_procs=',num_procs,'im=',im,'jsta_2l=', &
! write(*,*) 'mype=',me,'num_procs=',num_procs,'im=',im,'jsta_2l=', &
! jsta_2l,'jend_2u=',jend_2u,'jend=',jend,'iup=',iup,'jsta=', &
! jsta,'idn=',idn
if ( num_procs <= 1 ) return
Expand Down Expand Up @@ -139,7 +139,7 @@ SUBROUTINE EXCH(A)
ii=ibcoords(iend+1,j)/10000
jj=ibcoords( iend+1,j)-(ii*10000)
if( j .ne. jj .or. ii .ne. iend+1 .and. ii .ne. im .and. ii .ne. 1) &
write(0,921) j,iend+1,ii,jj,ibcoords(iend+1,j),'IEXCH COORD FAIL j,iend+1,ii,jj,ibcoord '
write(*,921) j,iend+1,ii,jj,ibcoords(iend+1,j),'IEXCH COORD FAIL j,iend+1,ii,jj,ibcoord '
endif !IFIRST
endif !checkcoords
end do
Expand Down Expand Up @@ -213,7 +213,7 @@ SUBROUTINE EXCH(A)
ii=ibcoords(ista-1,j)/10000
jj=ibcoords( ista-1,j)-(ii*10000)
if( j .ne. jj .or. ii .ne. ista-1 .and. ii .ne. im .and. ii .ne. 1) &
write(0,921) j,ista-1,ii,jj,ibcoords(ista-1,j),'EXCH COORD FAIL j,ista-1,ii,jj,ibcoord '
write(*,921) j,ista-1,ii,jj,ibcoords(ista-1,j),'EXCH COORD FAIL j,ista-1,ii,jj,ibcoord '
endif !IFIRST
endif !checkcoords
end do
Expand All @@ -227,7 +227,7 @@ SUBROUTINE EXCH(A)
do i=ista,iend
ii=ibcoords(i,j)/10000
jj=ibcoords( i,j)-(ii*10000)
if(ii .ne. i .or. jj .ne. j) write(0,151) 'INFAILED IJ ',i,j,ibcoords(i,j),ibl,jbl,ibu,jbu
if(ii .ne. i .or. jj .ne. j) write(*,151) 'INFAILED IJ ',i,j,ibcoords(i,j),ibl,jbl,ibu,jbu
end do
end do
endif !IFIRST
Expand Down Expand Up @@ -313,37 +313,37 @@ SUBROUTINE EXCH(A)
ii=ibcoords(icc,jcc)/10000
jj=ibcoords(icc,jcc)-(ii*10000)

if(ii .ne. icc .and. icc .ne. 0) write(0,151) ' CORNER FAILI ilb ll ',icc,jcc,ibcoords(icc,jcc),ii,jj
if( jj .ne. jcc) write(0,151) ' CORNER FAILJ ilb ll ',icc,jcc,ibcoords(icc,jcc),ii,jj
if(ii .ne. icc .and. icc .ne. 0) write(*,151) ' CORNER FAILI ilb ll ',icc,jcc,ibcoords(icc,jcc),ii,jj
if( jj .ne. jcc) write(*,151) ' CORNER FAILJ ilb ll ',icc,jcc,ibcoords(icc,jcc),ii,jj

icc=ibu
jcc=jbl
ii=ibcoords(icc,jcc)/10000
jj=ibcoords(icc,jcc)-(ii*10000)
if(ii .ne. icc .and. icc .ne. im+1 ) write(0,151) ' CORNER FAILI ilb ul ',icc,jcc,ibcoords(icc,jcc),ii,jj
if( jj .ne. jcc ) write(0,151) ' CORNER FAILJ ilb ul ',icc,jcc,ibcoords(icc,jcc),ii,jj
if(ii .ne. icc .and. icc .ne. im+1 ) write(*,151) ' CORNER FAILI ilb ul ',icc,jcc,ibcoords(icc,jcc),ii,jj
if( jj .ne. jcc ) write(*,151) ' CORNER FAILJ ilb ul ',icc,jcc,ibcoords(icc,jcc),ii,jj

icc=ibu
jcc=jbu
ii=ibcoords(icc,jcc)/10000
jj=ibcoords(icc,jcc)-(ii*10000)
if(ii .ne. icc .and. icc .ne. im+1) write(0,151) ' CORNER FAILI ilb uu ',icc,jcc,ibcoords(icc,jcc),ii,jj
if( jj .ne. jcc ) write(0,151) ' CORNER FAILJ ilb ul ',icc,jcc,ibcoords(icc,jcc),ii,jj
if(ii .ne. icc .and. icc .ne. im+1) write(*,151) ' CORNER FAILI ilb uu ',icc,jcc,ibcoords(icc,jcc),ii,jj
if( jj .ne. jcc ) write(*,151) ' CORNER FAILJ ilb ul ',icc,jcc,ibcoords(icc,jcc),ii,jj

icc=ibl
jcc=jbu
ii=ibcoords(icc,jcc)/10000.
jj=ibcoords(icc,jcc)-(ii*10000)
if(ii .ne. icc .and. icc .ne. 0 ) write(0,151) ' CORNER FAILI ilb lu ',icc,jcc,ibcoords(icc,jcc),ii,jj
if( jj .ne. jcc ) write(0,151) ' CORNER FAILJ ilb ul ',icc,jcc,ibcoords(icc,jcc),ii,jj
if(ii .ne. icc .and. icc .ne. 0 ) write(*,151) ' CORNER FAILI ilb lu ',icc,jcc,ibcoords(icc,jcc),ii,jj
if( jj .ne. jcc ) write(*,151) ' CORNER FAILJ ilb ul ',icc,jcc,ibcoords(icc,jcc),ii,jj

! if(ileft .ge. 0) then
!119 format(' GWX LEFT EXCHANGE ileft,me,ibcoords(ista-1,jend+1),ibcoords(ista-1,jend-1),ista-1,jend-1,jend+1', &
! 10i10)
! endif

! if(iright .ge. 0) then
!! write(0,129) iright,me,ibcoords(ista+1,jend+1),ibcoords(ista+1,jend-1),ista-1,jend-1,jend+1 !GWVX
!! write(*,129) iright,me,ibcoords(ista+1,jend+1),ibcoords(ista+1,jend-1),ista-1,jend-1,jend+1 !GWVX
!129 format(' GWX RIGHT EXCHANGE iright,me,ibcoords(ista+1,jend+1),ibcoords(ista-1,jend+1),ista-1,jend-1,jend+1', &
! 10i10)
! endif
Expand All @@ -354,7 +354,7 @@ SUBROUTINE EXCH(A)
do i=ista,iend
ii=ibcoords(i,j)/10000
jj=ibcoords( i,j)-(ii*10000)
if(ii .ne. i .or. jj .ne. j) write(0,151) 'GWVX FAILED IJ ',i,j,ibcoords(i,j),ibl,jbl,ibu,jbu
if(ii .ne. i .or. jj .ne. j) write(*,151) 'GWVX FAILED IJ ',i,j,ibcoords(i,j),ibl,jbl,ibu,jbu
end do
end do

Expand All @@ -367,14 +367,14 @@ SUBROUTINE EXCH(A)
do i=ista,iend
ii=ibcoords(i,j)/10000
jj=ibcoords( i,j)-(ii*10000)
if(ii .ne. i .or. jj .ne. j) write(0,151) 'GWVX FAILEDI JBU IJ ',i,j,ibcoords(i,j),ibl,jbl,ibu,jbu
if(ii .ne. i .or. jj .ne. j) write(*,151) 'GWVX FAILEDI JBU IJ ',i,j,ibcoords(i,j),ibl,jbl,ibu,jbu
end do

j=jbl
do i=ista,iend
ii=ibcoords(i,j)/10000
jj=ibcoords( i,j)-(ii*10000)
if(ii .ne. i .or. jj .ne. j) write(0,151) 'GWVX FAILEDI JBL IJ ',i,j,ibcoords(i,j),ibl,jbl,ibu,jbu
if(ii .ne. i .or. jj .ne. j) write(*,151) 'GWVX FAILEDI JBL IJ ',i,j,ibcoords(i,j),ibl,jbl,ibu,jbu
end do

! second and last, check left and right halo columns
Expand All @@ -383,17 +383,17 @@ SUBROUTINE EXCH(A)
do j=jsta,jend
ii=ibcoords(i,j)/10000
jj=ibcoords( i,j)-(ii*10000)
if(ii .ne. i .and. ii .ne. im .or. jj .ne. j) write(0,151) 'GWVX FAILED IBL IJ ',ii,i,j,ibcoords(i,j),ibl,jbl,ibu,jbu
if(ii .ne. i .and. ii .ne. im .or. jj .ne. j) write(*,151) 'GWVX FAILED IBL IJ ',ii,i,j,ibcoords(i,j),ibl,jbl,ibu,jbu
end do

i=ibu
do j=jsta,jend
ii=ibcoords(i,j)/10000
jj=ibcoords( i,j)-(ii*10000)
if(ii .ne. i .and. ii .ne. 1 .or. jj .ne. j) write(0,151) 'GWVX FAILED IBU ii i j ibcoords ibl,jbl,ibu,jbu',ii,i,j,ibcoords(i,j),ibl,jbl,ibu,jbu
if(ii .ne. i .and. ii .ne. 1 .or. jj .ne. j) write(*,151) 'GWVX FAILED IBU ii i j ibcoords ibl,jbl,ibu,jbu',ii,i,j,ibcoords(i,j),ibl,jbl,ibu,jbu
end do

if(me .eq. 0) write(0,*) ' IFIRST CHECK'
if(me .eq. 0) write(*,*) ' IFIRST CHECK'

endif ! IFIRST
endif !checkcoords
Expand Down
38 changes: 19 additions & 19 deletions sorc/ncep_post.fd/EXCH_c_float.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -52,7 +52,7 @@ SUBROUTINE EXCH_c_float(A)
jbl=max(jsta-1,1)
!

! write(0,*) 'mype=',me,'num_procs=',num_procs,'im=',im,'jsta_2l=', &
! write(*,*) 'mype=',me,'num_procs=',num_procs,'im=',im,'jsta_2l=', &
! jsta_2l,'jend_2u=',jend_2u,'jend=',jend,'iup=',iup,'jsta=', &
! jsta,'idn=',idn
if ( num_procs <= 1 ) return
Expand Down Expand Up @@ -140,7 +140,7 @@ SUBROUTINE EXCH_c_float(A)
ii=ibcoords(iend+1,j)/10000
jj=ibcoords( iend+1,j)-(ii*10000)
if( j .ne. jj .or. ii .ne. iend+1 .and. ii .ne. im .and. ii .ne. 1) &
write(0,921) j,iend+1,ii,jj,ibcoords(iend+1,j),'IEXCH COORD FAIL j,iend+1,ii,jj,ibcoord '
write(*,921) j,iend+1,ii,jj,ibcoords(iend+1,j),'IEXCH COORD FAIL j,iend+1,ii,jj,ibcoord '
endif !IFIRST
endif !checkcoords
end do
Expand Down Expand Up @@ -214,7 +214,7 @@ SUBROUTINE EXCH_c_float(A)
ii=ibcoords(ista-1,j)/10000
jj=ibcoords( ista-1,j)-(ii*10000)
if( j .ne. jj .or. ii .ne. ista-1 .and. ii .ne. im .and. ii .ne. 1) &
write(0,921) j,ista-1,ii,jj,ibcoords(ista-1,j),'EXCH COORD FAIL j,ista-1,ii,jj,ibcoord '
write(*,921) j,ista-1,ii,jj,ibcoords(ista-1,j),'EXCH COORD FAIL j,ista-1,ii,jj,ibcoord '
endif !IFIRST
endif !checkcoords
end do
Expand All @@ -228,7 +228,7 @@ SUBROUTINE EXCH_c_float(A)
do i=ista,iend
ii=ibcoords(i,j)/10000
jj=ibcoords( i,j)-(ii*10000)
if(ii .ne. i .or. jj .ne. j) write(0,151) 'INFAILED IJ ',i,j,ibcoords(i,j),ibl,jbl,ibu,jbu
if(ii .ne. i .or. jj .ne. j) write(*,151) 'INFAILED IJ ',i,j,ibcoords(i,j),ibl,jbl,ibu,jbu
end do
end do
endif !IFIRST
Expand Down Expand Up @@ -314,37 +314,37 @@ SUBROUTINE EXCH_c_float(A)
ii=ibcoords(icc,jcc)/10000
jj=ibcoords(icc,jcc)-(ii*10000)

if(ii .ne. icc .and. icc .ne. 0) write(0,151) ' CORNER FAILI ilb ll ',icc,jcc,ibcoords(icc,jcc),ii,jj
if( jj .ne. jcc) write(0,151) ' CORNER FAILJ ilb ll ',icc,jcc,ibcoords(icc,jcc),ii,jj
if(ii .ne. icc .and. icc .ne. 0) write(*,151) ' CORNER FAILI ilb ll ',icc,jcc,ibcoords(icc,jcc),ii,jj
if( jj .ne. jcc) write(*,151) ' CORNER FAILJ ilb ll ',icc,jcc,ibcoords(icc,jcc),ii,jj

icc=ibu
jcc=jbl
ii=ibcoords(icc,jcc)/10000
jj=ibcoords(icc,jcc)-(ii*10000)
if(ii .ne. icc .and. icc .ne. im+1 ) write(0,151) ' CORNER FAILI ilb ul ',icc,jcc,ibcoords(icc,jcc),ii,jj
if( jj .ne. jcc ) write(0,151) ' CORNER FAILJ ilb ul ',icc,jcc,ibcoords(icc,jcc),ii,jj
if(ii .ne. icc .and. icc .ne. im+1 ) write(*,151) ' CORNER FAILI ilb ul ',icc,jcc,ibcoords(icc,jcc),ii,jj
if( jj .ne. jcc ) write(*,151) ' CORNER FAILJ ilb ul ',icc,jcc,ibcoords(icc,jcc),ii,jj

icc=ibu
jcc=jbu
ii=ibcoords(icc,jcc)/10000
jj=ibcoords(icc,jcc)-(ii*10000)
if(ii .ne. icc .and. icc .ne. im+1) write(0,151) ' CORNER FAILI ilb uu ',icc,jcc,ibcoords(icc,jcc),ii,jj
if( jj .ne. jcc ) write(0,151) ' CORNER FAILJ ilb ul ',icc,jcc,ibcoords(icc,jcc),ii,jj
if(ii .ne. icc .and. icc .ne. im+1) write(*,151) ' CORNER FAILI ilb uu ',icc,jcc,ibcoords(icc,jcc),ii,jj
if( jj .ne. jcc ) write(*,151) ' CORNER FAILJ ilb ul ',icc,jcc,ibcoords(icc,jcc),ii,jj

icc=ibl
jcc=jbu
ii=ibcoords(icc,jcc)/10000.
jj=ibcoords(icc,jcc)-(ii*10000)
if(ii .ne. icc .and. icc .ne. 0 ) write(0,151) ' CORNER FAILI ilb lu ',icc,jcc,ibcoords(icc,jcc),ii,jj
if( jj .ne. jcc ) write(0,151) ' CORNER FAILJ ilb ul ',icc,jcc,ibcoords(icc,jcc),ii,jj
if(ii .ne. icc .and. icc .ne. 0 ) write(*,151) ' CORNER FAILI ilb lu ',icc,jcc,ibcoords(icc,jcc),ii,jj
if( jj .ne. jcc ) write(*,151) ' CORNER FAILJ ilb ul ',icc,jcc,ibcoords(icc,jcc),ii,jj

! if(ileft .ge. 0) then
!119 format(' GWX LEFT EXCHANGE ileft,me,ibcoords(ista-1,jend+1),ibcoords(ista-1,jend-1),ista-1,jend-1,jend+1', &
! 10i10)
! endif

! if(iright .ge. 0) then
!! write(0,129) iright,me,ibcoords(ista+1,jend+1),ibcoords(ista+1,jend-1),ista-1,jend-1,jend+1 !GWVX
!! write(*,129) iright,me,ibcoords(ista+1,jend+1),ibcoords(ista+1,jend-1),ista-1,jend-1,jend+1 !GWVX
!129 format(' GWX RIGHT EXCHANGE iright,me,ibcoords(ista+1,jend+1),ibcoords(ista-1,jend+1),ista-1,jend-1,jend+1', &
! 10i10)
! endif
Expand All @@ -355,7 +355,7 @@ SUBROUTINE EXCH_c_float(A)
do i=ista,iend
ii=ibcoords(i,j)/10000
jj=ibcoords( i,j)-(ii*10000)
if(ii .ne. i .or. jj .ne. j) write(0,151) 'GWVX FAILED IJ ',i,j,ibcoords(i,j),ibl,jbl,ibu,jbu
if(ii .ne. i .or. jj .ne. j) write(*,151) 'GWVX FAILED IJ ',i,j,ibcoords(i,j),ibl,jbl,ibu,jbu
end do
end do

Expand All @@ -368,14 +368,14 @@ SUBROUTINE EXCH_c_float(A)
do i=ista,iend
ii=ibcoords(i,j)/10000
jj=ibcoords( i,j)-(ii*10000)
if(ii .ne. i .or. jj .ne. j) write(0,151) 'GWVX FAILEDI JBU IJ ',i,j,ibcoords(i,j),ibl,jbl,ibu,jbu
if(ii .ne. i .or. jj .ne. j) write(*,151) 'GWVX FAILEDI JBU IJ ',i,j,ibcoords(i,j),ibl,jbl,ibu,jbu
end do

j=jbl
do i=ista,iend
ii=ibcoords(i,j)/10000
jj=ibcoords( i,j)-(ii*10000)
if(ii .ne. i .or. jj .ne. j) write(0,151) 'GWVX FAILEDI JBL IJ ',i,j,ibcoords(i,j),ibl,jbl,ibu,jbu
if(ii .ne. i .or. jj .ne. j) write(*,151) 'GWVX FAILEDI JBL IJ ',i,j,ibcoords(i,j),ibl,jbl,ibu,jbu
end do

! second and last, check left and right halo columns
Expand All @@ -384,17 +384,17 @@ SUBROUTINE EXCH_c_float(A)
do j=jsta,jend
ii=ibcoords(i,j)/10000
jj=ibcoords( i,j)-(ii*10000)
if(ii .ne. i .and. ii .ne. im .or. jj .ne. j) write(0,151) 'GWVX FAILED IBL IJ ',ii,i,j,ibcoords(i,j),ibl,jbl,ibu,jbu
if(ii .ne. i .and. ii .ne. im .or. jj .ne. j) write(*,151) 'GWVX FAILED IBL IJ ',ii,i,j,ibcoords(i,j),ibl,jbl,ibu,jbu
end do

i=ibu
do j=jsta,jend
ii=ibcoords(i,j)/10000
jj=ibcoords( i,j)-(ii*10000)
if(ii .ne. i .and. ii .ne. 1 .or. jj .ne. j) write(0,151) 'GWVX FAILED IBU ii i j ibcoords ibl,jbl,ibu,jbu',ii,i,j,ibcoords(i,j),ibl,jbl,ibu,jbu
if(ii .ne. i .and. ii .ne. 1 .or. jj .ne. j) write(*,151) 'GWVX FAILED IBU ii i j ibcoords ibl,jbl,ibu,jbu',ii,i,j,ibcoords(i,j),ibl,jbl,ibu,jbu
end do

if(me .eq. 0) write(0,*) ' IFIRST CHECK'
if(me .eq. 0) write(*,*) ' IFIRST CHECK'

endif ! IFIRST
endif !checkcoords
Expand Down
6 changes: 3 additions & 3 deletions sorc/ncep_post.fd/GFIP3.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -243,7 +243,7 @@ subroutine calc_indice(t, td, pres, wvm, nz, topoK, &
real :: surfaceTemp,surfaceDewPtTemp,surfacePressure,surfaceMIXR
real :: tempAtLCL, theta, pressAtLCL, thetaEAtLCL, tempFromThetaE, tem

! write(0,*)' nz=',nz,' pres=',pres(:)
! write(*,*)' nz=',nz,' pres=',pres(:)
t500hPa = t(nz)
t700hPa = t(nz)
dpt700hPa = td(nz)
Expand All @@ -254,7 +254,7 @@ subroutine calc_indice(t, td, pres, wvm, nz, topoK, &

! use linear interpolation

! write(0,*)'k=',k,' pres=',pres(k)
! write(*,*)'k=',k,' pres=',pres(k)
if ((pres(k)- 50000.0 >= 0.) .and. (pres(k-1)- 50000.0 < 0.) ) then
if (abs(pres(k)- 50000.0) <= 0.1) then
t500hPa = t(k)
Expand All @@ -280,7 +280,7 @@ subroutine calc_indice(t, td, pres, wvm, nz, topoK, &
end if
endif

! write(0,*)'k=',k,' pres=',pres(k),pres(k-1)
! write(*,*)'k=',k,' pres=',pres(k),pres(k-1)
if ((pres(k)- 85000.0 >= 0.) .and. (pres(k-1)- 85000.0 < 0.) ) then
if (abs(pres(k)- 85000.0) <= 0.1) then
t850hPa = t(k)
Expand Down
2 changes: 1 addition & 1 deletion sorc/ncep_post.fd/GFSPOST.F
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -537,7 +537,7 @@ subroutine mptgen(mpirank,mpisize,nd,jt1,jt2,j1,j2,jx,jm,jn)
jx(n)=j2(n)-j1(n)+1
msize=msn
mrank=mod(mrank,msn)
write(0,*)' mrank=',mrank,' j1=',j1(n),' j2=',j2(n),' jx=',jx(n),' jm=',jm(n)
write(*,*)' mrank=',mrank,' j1=',j1(n),' j2=',j2(n),' jx=',jx(n),' jm=',jm(n)
else
jm(n)=0
jn(n)=1
Expand Down
Loading