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

Diff of /trunk/Sources/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 38 by guez, Thu Jan 6 17:52:19 2011 UTC
# Line 5  Line 5 
5       s                  d_tr)       s                  d_tr)
6        use dimens_m        use dimens_m
7         use dimphy         use dimphy
8        use YOMCST        use SUPHEC_M
9        IMPLICIT none        IMPLICIT none
10  c======================================================================  c======================================================================
11  c Auteur(s): O. Boucher (LOA/LMD) date: 19961127  c Auteur(s): O. Boucher (LOA/LMD) date: 19961127
# 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.38
  ViewVC Help
Powered by ViewVC 1.1.21