CAM
|
Functions/Subroutines | |
subroutine | schu_inti |
subroutine | schu (o2col, secchi, dto2, xscho2) |
Variables | |
integer, parameter | ngast = 17 |
integer, parameter | tdim = 501 |
real(r8), parameter | t_del = 5._r8/(tdim-1) |
real(r8), parameter | t_fac = (tdim-1)/5._r8 |
integer | ii |
integer | jj |
real(r8), dimension(0:tdim, ngast-1) | d_table |
real(r8), dimension(0:tdim, ngast-1) | x_table |
real(r8), dimension(tdim) | o2_table |
real(r8), dimension(12, ngast-1) | a |
real(r8), dimension(12, ngast-1) | b |
subroutine mo_schu::schu | ( | real(r8), dimension(pverp), intent(in) | o2col, |
real(r8), dimension(pverp), intent(in) | secchi, | ||
real(r8), dimension(pver,ngast-1), intent(inout) | dto2, | ||
real(r8), dimension(pverp,ngast-1), intent(inout) | xscho2 | ||
) |
subroutine mo_schu::schu_inti | ( | ) |
real(r8), dimension(12,ngast-1) mo_schu::a |
real(r8), dimension(12,ngast-1) mo_schu::b |
integer mo_schu::ii |
integer mo_schu::jj |
integer, parameter mo_schu::ngast = 17 |
real(r8), dimension(tdim) mo_schu::o2_table |
real(r8), parameter mo_schu::t_del = 5._r8/(tdim-1) |
real(r8), parameter mo_schu::t_fac = (tdim-1)/5._r8 |
integer, parameter mo_schu::tdim = 501 |