CAM
|
Data Types | |
interface | tridiagonal |
Functions/Subroutines | |
subroutine | tridiagonal_sr (bounds, lbj, ubj, jtop, numf, filter, a, b, c, r, u, is_col_active) |
subroutine | tridiagonal_mr (bounds, lbj, ubj, jtop, numf, filter, ntrcs, a, b, c, r, u, is_col_active) |
subroutine, public | trisim (bounds, lbj, ubj, numf, filter, a1, b1, c1, d1, e1, a2, b2, c2, d2, e2, w1, w2) |
Variables | |
character(len= *), parameter, private | mod_filename = __FILE__ |
subroutine btridiagonalmod::tridiagonal_mr | ( | type(bounds_type), intent(in) | bounds, |
integer, intent(in) | lbj, | ||
integer, intent(in) | ubj, | ||
integer, dimension( bounds%begc: bounds%endc), intent(in) | jtop, | ||
integer, intent(in) | numf, | ||
integer, dimension(:), intent(in) | filter, | ||
integer, intent(in) | ntrcs, | ||
real(r8), dimension( bounds%begc:bounds%endc , lbj:ubj), intent(in) | a, | ||
real(r8), dimension( bounds%begc:bounds%endc , lbj:ubj), intent(in) | b, | ||
real(r8), dimension( bounds%begc:bounds%endc , lbj:ubj), intent(in) | c, | ||
real(r8), dimension( bounds%begc:bounds%endc , lbj:ubj, 1:ntrcs), intent(in) | r, | ||
real(r8), dimension( bounds%begc:bounds%endc , lbj:ubj, 1:ntrcs), intent(inout) | u, | ||
logical, dimension(bounds%begc:bounds%endc), intent(in), optional | is_col_active | ||
) |
subroutine btridiagonalmod::tridiagonal_sr | ( | type(bounds_type), intent(in) | bounds, |
integer, intent(in) | lbj, | ||
integer, intent(in) | ubj, | ||
integer, dimension( bounds%begc: bounds%endc), intent(in) | jtop, | ||
integer, intent(in) | numf, | ||
integer, dimension(:), intent(in) | filter, | ||
real(r8), dimension( bounds%begc:bounds%endc , lbj:ubj), intent(in) | a, | ||
real(r8), dimension( bounds%begc:bounds%endc , lbj:ubj), intent(in) | b, | ||
real(r8), dimension( bounds%begc:bounds%endc , lbj:ubj), intent(in) | c, | ||
real(r8), dimension( bounds%begc:bounds%endc , lbj:ubj), intent(in) | r, | ||
real(r8), dimension( bounds%begc:bounds%endc , lbj:ubj), intent(inout) | u, | ||
logical, dimension(bounds%begc:bounds%endc), intent(in), optional | is_col_active | ||
) |
subroutine, public btridiagonalmod::trisim | ( | type(bounds_type), intent(in) | bounds, |
integer, intent(in) | lbj, | ||
integer, intent(in) | ubj, | ||
integer, intent(in) | numf, | ||
integer, dimension(:), intent(in) | filter, | ||
real(r8), dimension(bounds%begc:bounds%endc, lbj:ubj), intent(in) | a1, | ||
real(r8), dimension(bounds%begc:bounds%endc, lbj:ubj), intent(in) | b1, | ||
real(r8), dimension(bounds%begc:bounds%endc, lbj:ubj), intent(in) | c1, | ||
real(r8), dimension(bounds%begc:bounds%endc, lbj:ubj), intent(in) | d1, | ||
real(r8), dimension(bounds%begc:bounds%endc, lbj:ubj), intent(in) | e1, | ||
real(r8), dimension(bounds%begc:bounds%endc, lbj:ubj), intent(in) | a2, | ||
real(r8), dimension(bounds%begc:bounds%endc, lbj:ubj), intent(in) | b2, | ||
real(r8), dimension(bounds%begc:bounds%endc, lbj:ubj), intent(in) | c2, | ||
real(r8), dimension(bounds%begc:bounds%endc, lbj:ubj), intent(in) | d2, | ||
real(r8), dimension(bounds%begc:bounds%endc, lbj:ubj), intent(in) | e2, | ||
real(r8), dimension(bounds%begc:bounds%endc, lbj:ubj-1), intent(out) | w1, | ||
real(r8), dimension(bounds%begc:bounds%endc, lbj:ubj-1), intent(out) | w2 | ||
) |
|
private |