/[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 150 by guez, Thu Jun 18 13:49:26 2015 UTC revision 157 by guez, Mon Jul 20 16:01:49 2015 UTC
# Line 12  contains Line 12  contains
12      ! de "thermiques" explicitement repr\'esent\'es. R\'ecriture \`a partir      ! de "thermiques" explicitement repr\'esent\'es. R\'ecriture \`a partir
13      ! d'un listing papier \`a Habas, le 14/02/00. Le thermique est      ! d'un listing papier \`a Habas, le 14/02/00. Le thermique est
14      ! suppos\'e homog\`ene et dissip\'e par m\'elange avec son      ! suppos\'e homog\`ene et dissip\'e par m\'elange avec son
15      ! environnement. La longueur "l_mix" contrôle l'efficacit\'e du      ! environnement. La longueur "l_mix" contr\^ole l'efficacit\'e du
16      ! m\'elange. Le calcul du transport des diff\'erentes esp\`eces se fait      ! m\'elange. Le calcul du transport des diff\'erentes esp\`eces se fait
17      ! en prenant en compte :      ! en prenant en compte :
18      ! 1. un flux de masse montant      ! 1. un flux de masse montant
# Line 97  contains Line 97  contains
97      real entr_star_tot(klon), entr_star2(klon)      real entr_star_tot(klon), entr_star2(klon)
98      real f(klon)      real f(klon)
99      real zlevinter(klon)      real zlevinter(klon)
     logical first  
     data first /.false./  
     save first  
100    
101      EXTERNAL SCOPY      EXTERNAL SCOPY
102    
     integer ncorrec  
     save ncorrec  
     data ncorrec/0/  
   
103      !-----------------------------------------------------------------------      !-----------------------------------------------------------------------
104    
105      ! initialisation:      ! initialisation:
Legend:
Removed from v.150  
changed lines
  Added in v.157
  ViewVC Help
Powered by ViewVC 1.1.21