<p><b>duda</b> 2010-10-08 10:47:40 -0600 (Fri, 08 Oct 2010)</p><p>BRANCH COMMIT<br>
<br>
Add beginning and ending parentheses in a few format strings, <br>
as specified in the Fortran standard. Caught by g95 and xlf.<br>
<br>
<br>
M    src/core_nhyd_atmos/module_test_cases.F<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_nonhydrostatic/src/core_nhyd_atmos/module_test_cases.F
===================================================================
--- branches/atmos_nonhydrostatic/src/core_nhyd_atmos/module_test_cases.F        2010-10-07 22:16:54 UTC (rev 532)
+++ branches/atmos_nonhydrostatic/src/core_nhyd_atmos/module_test_cases.F        2010-10-08 16:47:40 UTC (rev 533)
@@ -1173,7 +1173,7 @@
       write(0,*) ' base state sounding '
       write(0,*) ' k,     pb,     rb,     tb,     rtb,     t,     rr,      p,    qvb'
       do k=1,grid%nVertLevels
-         write (0,'i2,8(2x,f19.15)') k,pb(k,1),rb(k,1),tb(k,1),rtb(k,1),t(k,1),rr(k,1),p(k,1),qvb(k)
+         write (0,'(i2,8(2x,f19.15))') k,pb(k,1),rb(k,1),tb(k,1),rtb(k,1),t(k,1),rr(k,1),p(k,1),qvb(k)
       end do
 
 !
@@ -1722,7 +1722,7 @@
        write(0,*) ' ***** base state sounding ***** '
        write(0,*) 'k       pb        p         rb         rtb         rr          tb          t'
        do k=1,grid%nVertLevels
-          write(0,'i2,7(2x,f14.9)') k,pb(k,1),p(k,1),rb(k,1),rtb(k,1),rr(k,1),tb(k,1),t(k,1)
+          write(0,'(i2,7(2x,f14.9))') k,pb(k,1),p(k,1),rb(k,1),rtb(k,1),rr(k,1),tb(k,1),t(k,1)
        end do
  
        scalars(index_qv,:,:) = 0.
@@ -1780,7 +1780,7 @@
       write(0,*) ' *** sounding for the simulation ***'
       write(0,*) '    z       theta       pres         qv       rho_m        u        rr'
       do k=1,nz1
-         write(6,'8(f14.9,2x)') .5*(zgrid(k,1)+zgrid(k+1,1))/1000.,   &amp;
+         write(6,'(8(f14.9,2x))') .5*(zgrid(k,1)+zgrid(k+1,1))/1000.,   &amp;
                        t(k,1)/(1.+1.61*scalars(index_qv,k,1)),        &amp;
                        .01*p0*p(k,1)**(1./rcp),                       &amp;
                        1000.*scalars(index_qv,k,1),                   &amp;

</font>
</pre>