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

Expanded format fields for percentages to allow 100% to be output. #777

Merged
merged 1 commit into from
Nov 23, 2021
Merged

Expanded format fields for percentages to allow 100% to be output. #777

Changes from all commits
Commits
Show all changes
1 commit
Select commit
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
18 changes: 9 additions & 9 deletions physics/sfcsub.F
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -5753,63 +5753,63 @@ subroutine qcmxmn(ttl,fld,slimsk,sno,iceflg, &
per = float(kmaxl)/float(len)*100.
print 9002,fldlmx,kmaxl,per
9002 format(' bare land max check. modified to ',f8.1, &
& ' at ',i5,' points ',f4.1,'percent')
& ' at ',i5,' points ',f5.1,'percent')
if(per.gt.permax) permax=per
endif
if(kmino > 0) then
per = float(kmino)/float(len)*100.
print 9003,fldomn,kmino,per
9003 format(' open ocean min check. modified to ',f8.1, &
& ' at ',i5,' points ',f4.1,'percent')
& ' at ',i5,' points ',f5.1,'percent')
if(per.gt.permax) permax=per
endif
if(kmaxo > 0) then
per = float(kmaxo)/float(len)*100.
print 9004,fldomx,kmaxo,per
9004 format(' open sea max check. modified to ',f8.1, &
& ' at ',i5,' points ',f4.1,'percent')
& ' at ',i5,' points ',f5.1,'percent')
if(per.gt.permax) permax=per
endif
if(kmins >.0) then
per = float(kmins)/float(len)*100.
print 9009,fldsmn,kmins,per
9009 format(' snow covered land min check. modified to ',f8.1, &
& ' at ',i5,' points ',f4.1,'percent')
& ' at ',i5,' points ',f5.1,'percent')
if(per.gt.permax) permax=per
endif
if(kmaxs > 0) then
per = float(kmaxs)/float(len)*100.
print 9010,fldsmx,kmaxs,per
9010 format(' snow covered land max check. modified to ',f8.1, &
& ' at ',i5,' points ',f4.1,'percent')
& ' at ',i5,' points ',f5.1,'percent')
if(per.gt.permax) permax=per
endif
if(kmini > 0) then
per = float(kmini)/float(len)*100.
print 9005,fldimn,kmini,per
9005 format(' bare ice min check. modified to ',f8.1, &
& ' at ',i5,' points ',f4.1,'percent')
& ' at ',i5,' points ',f5.1,'percent')
if(per.gt.permax) permax=per
endif
if(kmaxi > 0) then
per = float(kmaxi)/float(len)*100.
print 9006,fldimx,kmaxi,per
9006 format(' bare ice max check. modified to ',f8.1, &
& ' at ',i5,' points ',f4.1,'percent')
& ' at ',i5,' points ',f5.1,'percent')
if(per > permax) permax=per
endif
if(kminj > 0) then
per = float(kminj)/float(len)*100.
print 9007,fldjmn,kminj,per
9007 format(' snow covered ice min check. modified to ',f8.1, &
& ' at ',i5,' points ',f4.1,'percent')
& ' at ',i5,' points ',f5.1,'percent')
if(per.gt.permax) permax=per
endif
if(kmaxj > 0) then
per = float(kmaxj)/float(len)*100.
print 9008,fldjmx,kmaxj,per
9008 format(' snow covered ice max check. modified to ',f8.1, &
& ' at ',i5,' points ',f4.1,'percent')
& ' at ',i5,' points ',f5.1,'percent')
if(per > permax) permax=per
endif
! commented on 06/30/99 -- moorthi
Expand Down