subroutine gw_solver_linsatdis | ( | integer | im, |
integer | levs, | ||
real | dtp, | ||
integer | kdt, | ||
integer | me, | ||
real, dimension(im) | taub, | ||
integer, dimension(im) | klev, | ||
integer, dimension(im) | if_src, | ||
integer | nf_src, | ||
integer | nw, | ||
real, dimension(nw ) | ch, | ||
integer | naz, | ||
real, dimension(nw ) | spf, | ||
real, dimension(naz) | xaz, | ||
real, dimension(naz) | yaz, | ||
real, dimension(im) | fcor, | ||
real, dimension(im) | c2f2, | ||
real, dimension(im, levs) | u, | ||
real, dimension(im, levs) | v, | ||
real, dimension(im, levs) | t, | ||
real, dimension(im, levs) | q, | ||
real, dimension(im, levs+1) | prsi, | ||
real, dimension(im, levs) | delp, | ||
real, dimension(im, levs) | prsl, | ||
real, dimension(im, levs) | prslk, | ||
real, dimension(im, levs+1) | phii, | ||
real, dimension(im, levs) | phil, | ||
real, dimension(im, levs) | ax, | ||
real, dimension(im, levs) | ay, | ||
real, dimension(im, levs) | eps, | ||
real, dimension(im, levs) | ked, | ||
real, dimension(im, levs) | tauz | ||
) |
References cires_ugwp_module::kion, cires_ugwp_module::krad, cires_ugwp_module::ktg, cires_ugwp_module::kvg, cires_ugwp_module::kxw, cires_ugwp_module::max_axyz, cires_ugwp_module::max_eps, cires_ugwp_module::max_kdis, mflow_tauz(), and ugwp_lsatdis_naz().
Referenced by cires_ugwp_module::cires_ugwp_driver().