70 |
REAL em_d_u2(klev), em_d_v2(klev) ! sbl |
REAL em_d_u2(klev), em_d_v2(klev) ! sbl |
71 |
c |
c |
72 |
REAL, intent(in):: paprs(klon,klev+1) |
REAL, intent(in):: paprs(klon,klev+1) |
73 |
real pplay(klon,klev) |
real, intent(in):: pplay(klon,klev) |
74 |
REAL t(klon,klev), q(klon,klev), d_t(klon,klev), d_q(klon,klev) |
REAL t(klon,klev), q(klon,klev), d_t(klon,klev), d_q(klon,klev) |
75 |
REAL u(klon,klev), v(klon,klev), tra(klon,klev,ntra) |
REAL u(klon,klev), v(klon,klev), tra(klon,klev,ntra) |
76 |
REAL d_u(klon,klev), d_v(klon,klev), d_tra(klon,klev,ntra) |
REAL d_u(klon,klev), d_v(klon,klev), d_tra(klon,klev,ntra) |
356 |
if (ktop(i)-kbas(i).gt.0.and. |
if (ktop(i)-kbas(i).gt.0.and. |
357 |
s l.ge.kbas(i).and.l.le.ktop(i)) then |
s l.ge.kbas(i).and.l.le.ktop(i)) then |
358 |
qcond_incld(i,l)=rain(i)*8.e4 |
qcond_incld(i,l)=rain(i)*8.e4 |
|
c s *(pplay(i,l )-paprs(i,ktop(i)+1)) |
|
359 |
s /(pplay(i,kbas(i))-pplay(i,ktop(i))) |
s /(pplay(i,kbas(i))-pplay(i,ktop(i))) |
360 |
c s **2 |
c s **2 |
361 |
else |
else |