1 |
|
subroutine newStickyType(c_ident, w0, v0, v0p, rl, ru, rlp, rup, isError) |
2 |
< |
|
2 |
> |
|
3 |
|
use definitions, ONLY : dp |
4 |
|
use sticky, ONLY : module_newStickyType => newStickyType |
5 |
< |
|
5 |
> |
|
6 |
|
integer, intent(inout) :: c_ident, isError |
7 |
|
real( kind = dp ), intent(inout) :: w0, v0, v0p, rl, ru, rlp, rup |
8 |
< |
|
8 |
> |
|
9 |
|
call module_newStickyType(c_ident, w0, v0, v0p, rl, ru, rlp, rup, & |
10 |
|
isError) |
11 |
< |
|
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 |