subroutine, public zhaocarr_gscond::zhaocarr_gscond_run | ( | integer, intent(in) | im, |
integer, intent(in) | km, | ||
real(kind=kind_phys), intent(in) | dt, | ||
real(kind=kind_phys), intent(in) | dtf, | ||
real(kind=kind_phys), dimension(:,:), intent(in) | prsl, | ||
real(kind=kind_phys), dimension(:), intent(in) | ps, | ||
real(kind=kind_phys), dimension(:,:), intent(inout) | q, | ||
real(kind=kind_phys), dimension(:,:), intent(in) | clw1, | ||
real(kind=kind_phys), dimension(:,:), intent(in) | clw2, | ||
real(kind=kind_phys), dimension(:,:), intent(out) | cwm, | ||
real(kind=kind_phys), dimension(:,:), intent(inout) | t, | ||
real(kind=kind_phys), dimension(:,:), intent(inout), optional | tp, | ||
real(kind=kind_phys), dimension(:,:), intent(inout), optional | qp, | ||
real(kind=kind_phys), dimension(:), intent(inout), optional | psp, | ||
real(kind=kind_phys), intent(in) | psat, | ||
real(kind=kind_phys), intent(in) | hvap, | ||
real(kind=kind_phys), intent(in) | grav, | ||
real(kind=kind_phys), intent(in) | hfus, | ||
real(kind=kind_phys), intent(in) | ttp, | ||
real(kind=kind_phys), intent(in) | rd, | ||
real(kind=kind_phys), intent(in) | cp, | ||
real(kind=kind_phys), intent(in) | eps, | ||
real(kind=kind_phys), intent(in) | epsm1, | ||
real(kind=kind_phys), intent(in) | rv, | ||
real(kind=kind_phys), dimension(:,:), intent(inout), optional | tp1, | ||
real(kind=kind_phys), dimension(:,:), intent(inout), optional | qp1, | ||
real(kind=kind_phys), dimension(:), intent(inout), optional | psp1, | ||
real(kind=kind_phys), dimension(:,:), intent(in) | u, | ||
logical, intent(in) | lprnt, | ||
integer, intent(in) | ipr, | ||
character(len=*), intent(out) | errmsg, | ||
integer, intent(out) | errflg ) |
\[ A_{t}=(t-tp)/dt \]
\[ A_{q}=(q-qp)/dt \]
\[ A_{p}=(prsl-\frac{prsl}{ps} \times psp)/dt \]
\[ b=1-\left ( \frac{f_{s}-f}{f_{s}-u} \right )^{1/2} \]
for \(f>u\)Definition at line 73 of file zhaocarr_gscond.f.