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

Diff of /trunk/phylmd/cltrac.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 26  c tr0------input-R- traceurs a la surfac Line 26  c tr0------input-R- traceurs a la surfac
26  c d_tr-----output-R- le changement de tr  c d_tr-----output-R- le changement de tr
27  c flux_tr--output-R- flux de tr  c flux_tr--output-R- flux de tr
28  c======================================================================  c======================================================================
29        REAL dtime        REAL, intent(in):: dtime
30        REAL coef(klon,klev)        REAL coef(klon,klev)
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.3  
changed lines
  Added in v.10
  ViewVC Help
Powered by ViewVC 1.1.21