| 4 |
|
|
| 5 |
|
!! @author Charles F. Vardeman II |
| 6 |
|
!! @author Matthew Meineke |
| 7 |
< |
!! @version $Id: do_Forces.F90,v 1.35 2003-10-29 20:41:39 mmeineke Exp $, $Date: 2003-10-29 20:41:39 $, $Name: not supported by cvs2svn $, $Revision: 1.35 $ |
| 7 |
> |
!! @version $Id: do_Forces.F90,v 1.36 2003-10-30 18:59:20 gezelter Exp $, $Date: 2003-10-30 18:59:20 $, $Name: not supported by cvs2svn $, $Revision: 1.36 $ |
| 8 |
|
|
| 9 |
|
module do_Forces |
| 10 |
|
use force_globals |
| 231 |
|
integer :: listerror, error |
| 232 |
|
integer :: localError |
| 233 |
|
|
| 234 |
< |
real(kind=dp) :: listSkin = 1.0 |
| 235 |
< |
|
| 234 |
> |
real(kind=dp) :: listSkin = 1.0 |
| 235 |
|
|
| 236 |
|
!! initialize local variables |
| 237 |
|
|
