Changeset 735 for LMDZ4/branches/V3_test/libf/phylmd/thermcell.F

Timestamp:

Nov 10, 2006, 3:50:16 PM (18 years ago)

Author:

Laurent Fairhead

Message:

Modifications version parallele
YM/LF

File:

• LMDZ4/branches/V3_test/libf/phylmd/thermcell.F (modified) (7 diffs)

LMDZ4/branches/V3_test/libf/phylmd/thermcell.F

@@ -14 +14 @@
 c   de "thermiques" explicitement representes
 c
-c   R�criture �partir d'un listing papier �Habas, le 14/02/00
-c
-c   le thermique est suppos�homog�e et dissip�par m�ange avec
-c   son environnement. la longueur l_mix contr�e l'efficacit�du
-c   m�ange
-c
-c   Le calcul du transport des diff�entes esp�es se fait en prenant
+c   Reecriture a partir d'un listing papier à Habas, le 14/02/00
+c
+c   le thermique est suppose homogene et dissipe par melange avec
+c   son environnement. la longueur l_mix controle l'efficacite du
+c   melange
+c
+c   Le calcul du transport des differentes especes se fait en prenant
 c   en compte:
 c     1. un flux de masse montant
@@ -512 +512 @@
 c   calcul de la largeur de chaque ascendance dans le cas conservatif.
 c   dans ce cas simple, on suppose que la largeur de l'ascendance provenant
-c   d'une couche est �ale �la hauteur de la couche alimentante.
+c   d'une couche est egale a la hauteur de la couche alimentante.
 c   La vitesse maximale dans l'ascendance est aussi prise comme estimation
 c   de la vitesse d'entrainement horizontal dans la couche alimentante.
@@ -551 +551 @@
 c      print*,'10 OK convect8'
 c     print*,'WA2 ',wa_moy
-c   calcul de la fraction de la maille concern� par l'ascendance en tenant
+c   calcul de la fraction de la maille concerne  par l'ascendance en tenant
 c   compte de l'epluchage du thermique.
 c
@@ -1119 +1119 @@
             if ((fm(ig,k+1)+detr(ig,k))*ptimestep.gt.
      s         1.e-5*masse(ig,k)) then
-c   On it�e sur la valeur du coeff de freinage.
+c   On itere sur la valeur du coeff de freinage.
 c              gamma0=rho(ig,k)*(zlev(ig,k+1)-zlev(ig,k))
                gamma0=masse(ig,k)
@@ -1125 +1125 @@
      s         *0.5/larga(ig)
 c              gamma0=0.
-c   la premi�e fois on multiplie le coefficient de freinage
+c   la premiere fois on multiplie le coefficient de freinage
 c   par le module du vent dans la couche en dessous.
                dua=ua(ig,k-1)-u(ig,k-1)
@@ -1317 +1317 @@
             if ((fm(ig,k+1)+detr(ig,k))*ptimestep.gt.
      s         1.e-5*masse(ig,k)) then
-c   On it�e sur la valeur du coeff de freinage.
+c   On itere sur la valeur du coeff de freinage.
 c              gamma0=rho(ig,k)*(zlev(ig,k+1)-zlev(ig,k))
                gamma0=masse(ig,k)
@@ -1328 +1328 @@
                zf=0.
                zf2=1./(1.-zf)
-c   la premi�e fois on multiplie le coefficient de freinage
+c   la premiere fois on multiplie le coefficient de freinage
 c   par le module du vent dans la couche en dessous.
                dua=ua(ig,k-1)-u(ig,k-1)