fix for bufr scatterometer example failing on some platfomrs

2015-05-28 16:02:32 +01:00 · 2015-05-28 16:02:32 +01:00 · d9118d21c7
parent a25a368214
commit d9118d21c7
2 changed files with 2017 additions and 2017 deletions
--- a/examples/F90/bufr_read_scatterometer.f90
+++ b/examples/F90/bufr_read_scatterometer.f90
@ -81,7 +81,7 @@ real(kind=8), dimension(:), allocatable :: year
    write(*,*) "--------------------------------------" 
     
    do i=1,numObs
-        write(*,*) i,latVal(i),lonVal(i),bscatterVal(i)
+        write(*,'(I4,3F10.5)') i,latVal(i),lonVal(i),bscatterVal(i)
    end do 
     
    ! free arrays 
--- a/examples/F90/bufr_read_scatterometer.sh
+++ b/examples/F90/bufr_read_scatterometer.sh