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 |