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

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

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

revision 9 by guez, Mon Mar 31 12:24:17 2008 UTC revision 10 by guez, Fri Apr 18 14:45:53 2008 UTC
# Line 31  c======================================= Line 31  c=======================================
31        REAL, intent(in):: t(klon,klev) ! temperature (K)        REAL, intent(in):: t(klon,klev) ! temperature (K)
32        real tr(klon,klev)        real tr(klon,klev)
33        REAL, intent(in):: paprs(klon,klev+1)        REAL, intent(in):: paprs(klon,klev+1)
34        real pplay(klon,klev), delp(klon,klev)        real, intent(in):: pplay(klon,klev)
35          real delp(klon,klev)
36        REAL d_tr(klon,klev)        REAL d_tr(klon,klev)
37        REAL flux(klon), cdrag(klon), tr0(klon)        REAL flux(klon), cdrag(klon), tr0(klon)
38  c      REAL flux_tr(klon,klev)  c      REAL flux_tr(klon,klev)
Legend:
Removed from v.9  
changed lines
  Added in v.10
  ViewVC Help
Powered by ViewVC 1.1.21