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