Ignore:
Timestamp:
Feb 24, 2016, 3:53:09 PM (9 years ago)
Author:
lguez
Message:

Non-ASCII characters in comments are not always rendered properly and they risk being lost. See revision [1740].

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/phylmd/pbl_surface_mod.F90

    r2410 r2450  
    305305
    306306!!! nrlmd+jyg le 02/05/2011 et le 20/02/2012
    307 !!    REAL, DIMENSION(klon,klev),   INTENT(IN)        :: t_x       ! Température hors poche froide
    308 !!    REAL, DIMENSION(klon,klev),   INTENT(IN)        :: t_w       ! Température dans la poches froide
     307!!    REAL, DIMENSION(klon,klev),   INTENT(IN)        :: t_x       ! Temp\'erature hors poche froide
     308!!    REAL, DIMENSION(klon,klev),   INTENT(IN)        :: t_w       ! Temp\'erature dans la poches froide
    309309!!    REAL, DIMENSION(klon,klev),   INTENT(IN)        :: q_x       !
    310 !!    REAL, DIMENSION(klon,klev),   INTENT(IN)        :: q_w       ! Pareil pour l'humidité
     310!!    REAL, DIMENSION(klon,klev),   INTENT(IN)        :: q_w       ! Pareil pour l'humidit\'e
    311311    REAL, DIMENSION(klon,klev),   INTENT(IN)        :: wake_dlt  !temperature difference between (w) and (x) (K)
    312312    REAL, DIMENSION(klon,klev),   INTENT(IN)        :: wake_dlq  !humidity difference between (w) and (x) (K)
     
    679679
    680680!!! jyg le 25/03/2013
    681 !!    Variables intermediaires pour le raccord des deux colonnes à la surface
     681!!    Variables intermediaires pour le raccord des deux colonnes \`a la surface
    682682    REAL   ::   dd_Ch
    683683    REAL   ::   dd_Cm
     
    15721572
    15731573!!! nrlmd le 13/06/2011
    1574 !----- On finit le calcul des coefficients d'échange:on multiplie le cdrag par le module du vent et la densité dans la première couche
     1574!----- On finit le calcul des coefficients d'\'echange:on multiplie le cdrag par le module du vent et la densit\'e dans la premi\`ere couche
    15751575!          Kech_h_x(j) = ycdragh_x(j) * &
    15761576!             (1.0+SQRT(yu_x(j,1)**2+yv_x(j,1)**2)) * &
     
    16641664       ENDIF
    16651665!
    1666 ! Calcul des coef A, B équivalents dans la couche 1
     1666! Calcul des coef A, B \'equivalents dans la couche 1
    16671667!
    16681668       AcoefH(j) = AcoefH_x(j) + ywake_s(j)*(Kech_H_wp(j)/Kech_Hp(j))*dd_AH
     
    16841684
    16851685!
    1686 ! Calcul des cdrag équivalents dans la couche
     1686! Calcul des cdrag \'equivalents dans la couche
    16871687!
    16881688       ycdragm(j) = ycdragm_x(j) + ywake_s(j)*dd_CM
    16891689       ycdragh(j) = ycdragh_x(j) + ywake_s(j)*dd_CH
    16901690!
    1691 ! Calcul de T, q, u et v équivalents dans la couche 1
     1691! Calcul de T, q, u et v \'equivalents dans la couche 1
    16921692       yt(j,1) = yt_x(j,1) + ywake_s(j)*(Kech_h_w(j)/Kech_h(j))*dd_t
    16931693       yq(j,1) = yq_x(j,1) + ywake_s(j)*(Kech_h_w(j)/Kech_h(j))*dd_q
     
    19931993!!jyg!!         ENDIF
    19941994!!jyg!!
    1995 !!jyg!!!-----Calcul de ybeta (evap_réelle/evap_potentielle)
     1995!!jyg!!!-----Calcul de ybeta (evap_r\'eelle/evap_potentielle)
    19961996!!jyg!!!!!!! jyg le 23/02/2012
    19971997!!jyg!!!!!!!
Note: See TracChangeset for help on using the changeset viewer.