| 1 |
subroutine newStickyType(c_ident, w0, v0, v0p, rl, ru, rlp, rup, isError) |
| 2 |
|
| 3 |
use definitions, ONLY : dp |
| 4 |
use sticky, ONLY : module_newStickyType => newStickyType |
| 5 |
|
| 6 |
integer, intent(inout) :: c_ident, isError |
| 7 |
real( kind = dp ), intent(inout) :: w0, v0, v0p, rl, ru, rlp, rup |
| 8 |
|
| 9 |
call module_newStickyType(c_ident, w0, v0, v0p, rl, ru, rlp, rup, & |
| 10 |
isError) |
| 11 |
|
| 12 |
end subroutine newStickyType |
| 13 |
|
| 14 |
subroutine destroyStickyTypes() |
| 15 |
use sticky, ONLY : module_destroyStickyTypes => destroyStickyTypes |
| 16 |
call module_destroyStickyTypes() |
| 17 |
|
| 18 |
end subroutine destroyStickyTypes |
