45 |
|
|
46 |
|
!! @author Charles F. Vardeman II |
47 |
|
!! @author Matthew Meineke |
48 |
< |
!! @version $Id: doForces.F90,v 1.45 2005-09-16 20:36:55 chrisfen Exp $, $Date: 2005-09-16 20:36:55 $, $Name: not supported by cvs2svn $, $Revision: 1.45 $ |
48 |
> |
!! @version $Id: doForces.F90,v 1.46 2005-09-18 20:45:38 chrisfen Exp $, $Date: 2005-09-18 20:45:38 $, $Name: not supported by cvs2svn $, $Revision: 1.46 $ |
49 |
|
|
50 |
|
|
51 |
|
module doForces |
134 |
|
|
135 |
|
integer, save :: cutoffPolicy = TRADITIONAL_CUTOFF_POLICY |
136 |
|
real(kind=dp),save :: defaultRcut, defaultRsw, defaultRlist |
137 |
– |
real(kind=dp),save :: rcuti |
137 |
|
|
138 |
|
contains |
139 |
|
|
419 |
|
defaultRsw = defRsw |
420 |
|
defaultRlist = defRlist |
421 |
|
cutoffPolicy = cutPolicy |
423 |
– |
rcuti = 1.0_dp / defaultRcut |
422 |
|
end subroutine setDefaultCutoffs |
423 |
|
|
424 |
|
subroutine setCutoffPolicy(cutPolicy) |
501 |
|
end subroutine doReadyCheck |
502 |
|
|
503 |
|
|
504 |
< |
subroutine init_FF(thisESM, dampingAlpha, thisStat) |
504 |
> |
subroutine init_FF(thisESM, thisStat) |
505 |
|
|
506 |
|
integer, intent(in) :: thisESM |
507 |
|
real(kind=dp), intent(in) :: dampingAlpha |