| 45 |
|
|
| 46 |
|
!! @author Charles F. Vardeman II |
| 47 |
|
!! @author Matthew Meineke |
| 48 |
< |
!! @version $Id: doForces.F90,v 1.88 2007-05-02 00:18:08 chrisfen Exp $, $Date: 2007-05-02 00:18:08 $, $Name: not supported by cvs2svn $, $Revision: 1.88 $ |
| 48 |
> |
!! @version $Id: doForces.F90,v 1.89 2007-05-03 15:52:08 chrisfen Exp $, $Date: 2007-05-03 15:52:08 $, $Name: not supported by cvs2svn $, $Revision: 1.89 $ |
| 49 |
|
|
| 50 |
|
|
| 51 |
|
module doForces |
| 1117 |
|
fij(2) = fij(2) + fg(2) |
| 1118 |
|
fij(3) = fij(3) + fg(3) |
| 1119 |
|
|
| 1120 |
< |
if ((n_in_i .eq. 1).and.(n_in_j .eq. 1)) then |
| 1120 |
> |
if (do_stress .and. (n_in_i .eq. 1).and.(n_in_j .eq. 1)) then |
| 1121 |
|
call add_stress_tensor(d_atm, fg, tau) |
| 1122 |
|
endif |
| 1123 |
|
|
