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

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

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

revision 12 by guez, Mon Jul 21 16:05:07 2008 UTC revision 38 by guez, Thu Jan 6 17:52:19 2011 UTC
# Line 10  Line 10 
10    
11        use dimens_m        use dimens_m
12        use dimphy        use dimphy
13        use YOMCST        use SUPHEC_M
14        use conema3_m        use conema3_m
15        use yoethf        use yoethf_m
16        use fcttre        use fcttre
17        IMPLICIT none        IMPLICIT none
18  c======================================================================  c======================================================================
# Line 72  c Line 72  c
72        REAL, intent(in):: paprs(klon,klev+1)        REAL, intent(in):: paprs(klon,klev+1)
73        real, intent(in):: 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)
76          real, intent(in):: tra(klon,klev,ntra)
77        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)
78        REAL work1(klon,klev), work2(klon,klev)        REAL work1(klon,klev), work2(klon,klev)
79        REAL upwd(klon,klev), dnwd(klon,klev), dnwdbis(klon,klev)        REAL upwd(klon,klev), dnwd(klon,klev), dnwdbis(klon,klev)
Legend:
Removed from v.12  
changed lines
  Added in v.38
  ViewVC Help
Powered by ViewVC 1.1.21