/[lmdze]/trunk/libf/phylmd/conema3.f
ViewVC logotype

Diff of /trunk/libf/phylmd/conema3.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 10 by guez, Fri Apr 18 14:45:53 2008 UTC
# Line 70  c Line 70  c
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)
# Line 356  c  precip. Line 356  c  precip.
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
Legend:
Removed from v.3  
changed lines
  Added in v.10
  ViewVC Help
Powered by ViewVC 1.1.21