| 9 |
|
!! @author Matthew Meineke |
| 10 |
|
!! @author Christopher Fennel |
| 11 |
|
!! @author J. Daniel Gezelter |
| 12 |
< |
!! @version $Id: sticky.F90,v 1.1 2004-10-20 04:02:48 gezelter Exp $, $Date: 2004-10-20 04:02:48 $, $Name: not supported by cvs2svn $, $Revision: 1.1 $ |
| 12 |
> |
!! @version $Id: sticky.F90,v 1.2 2004-10-20 21:52:20 gezelter Exp $, $Date: 2004-10-20 21:52:20 $, $Name: not supported by cvs2svn $, $Revision: 1.2 $ |
| 13 |
|
|
| 14 |
|
module sticky_pair |
| 15 |
|
|
| 402 |
|
end subroutine calc_sw_fnc |
| 403 |
|
end module sticky_pair |
| 404 |
|
|
| 405 |
< |
subroutine set_sticky_params(sticky_w0, sticky_v0, sticky_v0p, & |
| 405 |
> |
subroutine makeStickyType(sticky_w0, sticky_v0, sticky_v0p, & |
| 406 |
|
sticky_rl, sticky_ru, sticky_rlp, sticky_rup) |
| 407 |
|
use definitions, ONLY : dp |
| 408 |
< |
use sticky_pair, ONLY : module_set_sticky_params => set_sticky_params |
| 408 |
> |
use sticky_pair, ONLY : set_sticky_params |
| 409 |
|
real( kind = dp ), intent(inout) :: sticky_w0, sticky_v0, sticky_v0p |
| 410 |
|
real( kind = dp ), intent(inout) :: sticky_rl, sticky_ru |
| 411 |
|
real( kind = dp ), intent(inout) :: sticky_rlp, sticky_rup |
| 412 |
|
|
| 413 |
< |
call module_set_sticky_params(sticky_w0, sticky_v0, sticky_v0p, & |
| 413 |
> |
call set_sticky_params(sticky_w0, sticky_v0, sticky_v0p, & |
| 414 |
|
sticky_rl, sticky_ru, sticky_rlp, sticky_rup) |
| 415 |
|
|
| 416 |
< |
end subroutine set_sticky_params |
| 416 |
> |
end subroutine makeStickyType |
