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

Diff of /trunk/phylmd/cltrac.f90

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

trunk/libf/phylmd/cltrac.f revision 7 by guez, Mon Mar 31 12:24:17 2008 UTC trunk/phylmd/cltrac.f revision 76 by guez, Fri Nov 15 18:45:49 2013 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 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.7  
changed lines
  Added in v.76
  ViewVC Help
Powered by ViewVC 1.1.21