/[lmdze]/trunk/Sources/phylmd/Thermcell/thermcell.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/Thermcell/thermcell.f

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

revision 91 by guez, Wed Mar 26 17:18:58 2014 UTC revision 105 by guez, Thu Sep 4 10:40:24 2014 UTC
# Line 77  contains Line 77  contains
77      real thetath2(klon, klev), wth2(klon, klev)      real thetath2(klon, klev), wth2(klon, klev)
78      common/comtherm/thetath2, wth2      common/comtherm/thetath2, wth2
79    
80      real count_time      integer isplit, nsplit
     integer isplit, nsplit, ialt  
81      parameter (nsplit=10)      parameter (nsplit=10)
82      data isplit/0/      data isplit/0/
83      save isplit      save isplit
# Line 90  contains Line 89  contains
89      real wmax(klon), wmaxa(klon)      real wmax(klon), wmaxa(klon)
90      real wa(klon, klev, klev+1)      real wa(klon, klev, klev+1)
91      real wd(klon, klev+1)      real wd(klon, klev+1)
     real larg_part(klon, klev, klev+1)  
92      real fracd(klon, klev+1)      real fracd(klon, klev+1)
93      real xxx(klon, klev+1)      real xxx(klon, klev+1)
94      real larg_cons(klon, klev+1)      real larg_cons(klon, klev+1)
95      real larg_detr(klon, klev+1)      real larg_detr(klon, klev+1)
96      real fm0(klon, klev+1), entr0(klon, klev), detr(klon, klev)      real fm0(klon, klev+1), entr0(klon, klev), detr(klon, klev)
     real pu_therm(klon, klev), pv_therm(klon, klev)  
97      real fm(klon, klev+1), entr(klon, klev)      real fm(klon, klev+1), entr(klon, klev)
98      real fmc(klon, klev+1)      real fmc(klon, klev+1)
99    
100      !CR:nouvelles variables      !CR:nouvelles variables
101      real f_star(klon, klev+1), entr_star(klon, klev)      real f_star(klon, klev+1), entr_star(klon, klev)
102      real entr_star_tot(klon), entr_star2(klon)      real entr_star_tot(klon), entr_star2(klon)
103      real f(klon), f0(klon)      real f(klon)
104      real zlevinter(klon)      real zlevinter(klon)
105      logical first      logical first
106      data first /.false./      data first /.false./
107      save first      save first
108    
109      character*2 str2      character(len=2) str2
110      character*10 str10      character(len=10) str10
111    
112      LOGICAL vtest(klon), down      LOGICAL vtest(klon)
113    
114      EXTERNAL SCOPY      EXTERNAL SCOPY
115    
116      integer ncorrec, ll      integer ncorrec
117      save ncorrec      save ncorrec
118      data ncorrec/0/      data ncorrec/0/
119    
Legend:
Removed from v.91  
changed lines
  Added in v.105
  ViewVC Help
Powered by ViewVC 1.1.21