| 9 |
|
!! @author Matthew Meineke |
| 10 |
|
!! @author Christopher Fennel |
| 11 |
|
!! @author J. Daniel Gezelter |
| 12 |
< |
!! @version $Id: calc_sticky_pair.F90,v 1.1.1.1 2004-09-24 04:16:36 gezelter Exp $, $Date: 2004-09-24 04:16:36 $, $Name: not supported by cvs2svn $, $Revision: 1.1.1.1 $ |
| 12 |
> |
!! @version $Id: calc_sticky_pair.F90,v 1.2 2004-10-19 20:44:31 chuckv Exp $, $Date: 2004-10-19 20:44:31 $, $Name: not supported by cvs2svn $, $Revision: 1.2 $ |
| 13 |
|
|
| 14 |
|
module sticky_pair |
| 15 |
|
|
| 401 |
|
return |
| 402 |
|
end subroutine calc_sw_fnc |
| 403 |
|
end module sticky_pair |
| 404 |
+ |
|
| 405 |
+ |
subroutine set_sticky_params(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 |
| 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, & |
| 414 |
+ |
sticky_rl, sticky_ru, sticky_rlp, sticky_rup) |
| 415 |
+ |
|
| 416 |
+ |
end subroutine set_sticky_params |
