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