| # | 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 |