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

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

Parent Directory | Revision Log | View Patch Patch

-trunk/phylmd/Thermcell/thermcell.f
revision 105 by guez,
Thu Sep  4 10:40:24 2014 UTC
+trunk/Sources/phylmd/Thermcell/thermcell.f
revision 157 by guez,
Mon Jul 20 16:01:49 2015 UTC
 Line 8 
 contains
         po, pduadj, pdvadj, pdtadj, pdoadj, fm0, entr0, r_aspect, l_mix, w2di, &
         tho)
-     ! Calcul du transport vertical dans la couche limite en présence
+     ! Calcul du transport vertical dans la couche limite en pr\'esence
-     ! de "thermiques" explicitement représentés. Récriture à partir
+     ! de "thermiques" explicitement repr\'esent\'es. R\'ecriture \`a partir
-     ! d'un listing papier à Habas, le 14/02/00. Le thermique est
+     ! d'un listing papier \`a Habas, le 14/02/00. Le thermique est
-     ! supposé homogène et dissipé par mélange avec son
+     ! suppos\'e homog\`ene et dissip\'e par m\'elange avec son
-     ! environnement. La longueur "l_mix" contrôle l'efficacité du
+     ! environnement. La longueur "l_mix" contr\^ole l'efficacit\'e du
-     ! mélange. Le calcul du transport des différentes espèces se fait
+     ! m\'elange. Le calcul du transport des diff\'erentes esp\`eces se fait
      ! en prenant en compte :
      ! 1. un flux de masse montant
      ! 2. un flux de masse descendant
-     ! 3. un entraînement
+     ! 3. un entra\^inement
-     ! 4. un détraînement
+     ! 4. un d\'etra\^inement
      USE dimphy, ONLY : klev, klon
      USE suphec_m, ONLY : rd, rg, rkappa
 Line 46 
 contains
      ! local:
      INTEGER ig, k, l, lmaxa(klon), lmix(klon)
-     real zsortie1d(klon)
      ! CR: on remplace lmax(klon, klev+1)
      INTEGER lmax(klon), lmin(klon), lentr(klon)
      real linter(klon)
      real zmix(klon), fracazmix(klon)
-     real zmax(klon), zw, zz, zw2(klon, klev+1), ztva(klon, klev), zzz
+     real zmax(klon), zw, zw2(klon, klev+1), ztva(klon, klev)
      real zlev(klon, klev+1), zlay(klon, klev)
      REAL zh(klon, klev), zdhadj(klon, klev)
      REAL ztv(klon, klev)
      real zu(klon, klev), zv(klon, klev), zo(klon, klev)
-     REAL wh(klon, klev+1)
-     real wu(klon, klev+1), wv(klon, klev+1), wo(klon, klev+1)
      real zla(klon, klev+1)
      real zwa(klon, klev+1)
      real zld(klon, klev+1)
-     real zwd(klon, klev+1)
-     real zsortie(klon, klev)
      real zva(klon, klev)
      real zua(klon, klev)
      real zoa(klon, klev)
-Line 102 
 contains
+Line 97 
 contains
      real entr_star_tot(klon), entr_star2(klon)
      real f(klon)
      real zlevinter(klon)
-     logical first
-     data first /.false./
-     save first
-     character(len=2) str2
-     character(len=10) str10
-     LOGICAL vtest(klon)
      EXTERNAL SCOPY
-     integer ncorrec
-     save ncorrec
-     data ncorrec/0/
      !-----------------------------------------------------------------------
      ! initialisation:
-Line 422 
 contains
+Line 405 
 contains
      ! calcul de la largeur de chaque ascendance dans le cas conservatif.
      ! dans ce cas simple, on suppose que la largeur de l'ascendance provenant
-     ! d'une couche est égale à la hauteur de la couche alimentante.
+     ! d'une couche est \'egale \`a la hauteur de la couche alimentante.
      ! La vitesse maximale dans l'ascendance est aussi prise comme estimation
      ! de la vitesse d'entrainement horizontal dans la couche alimentante.
-Line 447 
 contains
+Line 430 
 contains
         enddo
      enddo
-     ! calcul de la fraction de la maille concernée par l'ascendance en tenant
+     ! calcul de la fraction de la maille concern\'ee par l'ascendance en tenant
      ! compte de l'epluchage du thermique.
      !CR def de zmix continu (profil parabolique des vitesses)

 Legend:



Removed from v.105
 


changed lines


 
Added in v.157
 Legend:



Removed from v.105
 


changed lines


 
Added in v.157
-Removed from v.105
+Added in v.157

	ViewVC Help
Powered by ViewVC 1.1.21