# | Line 1 | Line 1 | |
---|---|---|
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() |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |