50 |
|
!! @author Matthew Meineke |
51 |
|
!! @author Christopher Fennel |
52 |
|
!! @author J. Daniel Gezelter |
53 |
< |
!! @version $Id: sticky.F90,v 1.3 2005-01-12 22:40:45 gezelter Exp $, $Date: 2005-01-12 22:40:45 $, $Name: not supported by cvs2svn $, $Revision: 1.3 $ |
53 |
> |
!! @version $Id: sticky.F90,v 1.4 2005-01-14 20:31:16 gezelter Exp $, $Date: 2005-01-14 20:31:16 $, $Name: not supported by cvs2svn $, $Revision: 1.4 $ |
54 |
|
|
55 |
|
module sticky |
56 |
|
|
506 |
|
return |
507 |
|
end subroutine calc_sw_fnc |
508 |
|
end module sticky |
509 |
– |
|
510 |
– |
subroutine newStickyType(c_ident, w0, v0, v0p, rl, ru, rlp, rup, isError) |
511 |
– |
|
512 |
– |
use definitions, ONLY : dp |
513 |
– |
use sticky, ONLY : module_newStickyType => newStickyType |
514 |
– |
|
515 |
– |
integer, intent(inout) :: c_ident, isError |
516 |
– |
real( kind = dp ), intent(inout) :: w0, v0, v0p, rl, ru, rlp, rup |
517 |
– |
|
518 |
– |
call module_newStickyType(c_ident, w0, v0, v0p, rl, ru, rlp, rup, & |
519 |
– |
isError) |
520 |
– |
|
521 |
– |
end subroutine newStickyType |