<p><b>duda</b> 2010-03-31 14:43:23 -0600 (Wed, 31 Mar 2010)</p><p>BRANCH COMMIT<br>
<br>
Fix bug in Ptop computation in CAM test driver: Pref * Ae(1) is already in Pa<br>
<br>
M    src/driver_cam_interface/test_driver.F<br>
</p><hr noshade><pre><font color="gray">Modified: branches/mpas_cam_coupling/src/driver_cam_interface/test_driver.F
===================================================================
--- branches/mpas_cam_coupling/src/driver_cam_interface/test_driver.F        2010-03-31 00:43:35 UTC (rev 174)
+++ branches/mpas_cam_coupling/src/driver_cam_interface/test_driver.F        2010-03-31 20:43:23 UTC (rev 175)
@@ -49,7 +49,7 @@
    end do
 
    Pref = 100000.
-   Ptop = Pref * Ae(1) * 100.0
+   Ptop = Pref * Ae(1)
 
    write(filename, '(a,i4.4)') 'test_driver_input.', mpi_procID
    open(22, file=trim(filename), form='unformatted', status='old')

</font>
</pre>