From be001ede26fbfebafe004338ce3c185ea0325a90 Mon Sep 17 00:00:00 2001 From: Jim Bresch Date: Wed, 7 Sep 2011 04:40:27 +0000 Subject: [PATCH] Fix a minor bug in g2print git-svn-id: https://svn-wrf-wps.cgd.ucar.edu/trunk@611 86b71a92-4018-0410-97f8-d555beccfc3a --- ungrib/src/g2print.F | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/ungrib/src/g2print.F b/ungrib/src/g2print.F index 96d8c7a..5c105c1 100644 --- a/ungrib/src/g2print.F +++ b/ungrib/src/g2print.F @@ -184,6 +184,7 @@ end program g2print character(len=40) :: string character(len=13) :: pstring = ',t50,":",i14)' character(len=15) :: rstring = ',t50,":",f14.5)' + character(len=13) :: astring = ',t50,":",a14)' ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ! SET ARGUMENTS @@ -619,7 +620,7 @@ end program g2print write(*,'(5x,"Length of Section 2"'//pstring) gfld%locallen if ( associated(gfld%local).AND.gfld%locallen.gt.0 ) then do j = 1, gfld%locallen - write(*,'(5x,"Local value "'//pstring) gfld%local(j) + write(*,'(5x,"Local value "'//astring) gfld%local(j) enddo ! print *,'G2 SECTION 2: ',(gfld%local(j),j=1,gfld%locallen) endif -- 2.11.4.GIT