subroutine, public fv_sat_adj::fv_sat_adj_run | ( | real(kind=kind_dyn), intent(in) | mdt, |
real(kind=kind_dyn), intent(in) | zvir, | ||
integer, intent(in) | is, | ||
integer, intent(in) | ie, | ||
integer, intent(in) | isd, | ||
integer, intent(in) | ied, | ||
integer, intent(in) | isc1, | ||
integer, intent(in) | iec1, | ||
integer, intent(in) | isc2, | ||
integer, intent(in) | iec2, | ||
integer, intent(in) | kmp, | ||
integer, intent(in) | km, | ||
integer, intent(in) | kmdelz, | ||
integer, intent(in) | js, | ||
integer, intent(in) | je, | ||
integer, intent(in) | jsd, | ||
integer, intent(in) | jed, | ||
integer, intent(in) | jsc1, | ||
integer, intent(in) | jec1, | ||
integer, intent(in) | jsc2, | ||
integer, intent(in) | jec2, | ||
integer, intent(in) | ng, | ||
logical, intent(in) | hydrostatic, | ||
logical, intent(in) | fast_mp_consv, | ||
real(kind=kind_dyn), dimension(is:ie, js:je), intent(inout) | te0_2d, | ||
real(kind=kind_dyn), dimension(isd:ied, jsd:jed, 1:km), intent(out) | te0, | ||
integer, intent(in) | ngas, | ||
real(kind=kind_dyn), dimension(:,:,:,:), intent(inout), optional | qvi, | ||
real(kind=kind_dyn), dimension(isd:ied, jsd:jed, 1:km), intent(inout) | qv, | ||
real(kind=kind_dyn), dimension(isd:ied, jsd:jed, 1:km), intent(inout) | ql, | ||
real(kind=kind_dyn), dimension(isd:ied, jsd:jed, 1:km), intent(inout) | qi, | ||
real(kind=kind_dyn), dimension(isd:ied, jsd:jed, 1:km), intent(inout) | qr, | ||
real(kind=kind_dyn), dimension(isd:ied, jsd:jed, 1:km), intent(inout) | qs, | ||
real(kind=kind_dyn), dimension(isd:ied, jsd:jed, 1:km), intent(inout) | qg, | ||
real(kind=kind_dyn), dimension(isd:ied, jsd:jed), intent(in) | hs, | ||
real(kind=kind_dyn), dimension(is:ie, 1:km+1, js:je), intent(in) | peln, | ||
real(kind=kind_dyn), dimension(is:ie, js:je, 1:kmdelz), intent(in) | delz, | ||
real(kind=kind_dyn), dimension(isd:ied, jsd:jed, 1:km), intent(in) | delp, | ||
real(kind=kind_dyn), dimension(isd:ied, jsd:jed, 1:km), intent(inout) | pt, | ||
real(kind=kind_dyn), dimension(is:ie, js:je, 1:km), intent(inout) | pkz, | ||
real(kind=kind_dyn), dimension(isd:isd, jsd:jsd, 1), intent(inout) | q_con, | ||
real(kind=kind_dyn), intent(in) | akap, | ||
real(kind=kind_dyn), dimension(isd:ied, jsd:jed, 1), intent(inout) | cappa, | ||
real(kind_grid), dimension(isd:ied, jsd:jed), intent(in) | area, | ||
real(kind=kind_dyn), dimension(is:ie, js:je, 1:km), intent(inout) | dtdt, | ||
logical, intent(in) | out_dt, | ||
logical, intent(in) | last_step, | ||
logical, intent(in) | do_qa, | ||
real(kind=kind_dyn), dimension(isd:ied, jsd:jed, 1:km), intent(out) | qa, | ||
integer, intent(in) | nthreads, | ||
character(len=*), intent(out) | errmsg, | ||
integer, intent(out) | errflg ) |
Definition at line 233 of file fv_sat_adj.F90.
References fv_sat_adj_work().