Changeset 2450 for LMDZ5/trunk/libf/phylmd/pbl_surface_mod.F90
- Timestamp:
- Feb 24, 2016, 3:53:09 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/pbl_surface_mod.F90
r2410 r2450 305 305 306 306 !!! nrlmd+jyg le 02/05/2011 et le 20/02/2012 307 !! REAL, DIMENSION(klon,klev), INTENT(IN) :: t_x ! Temp érature hors poche froide308 !! REAL, DIMENSION(klon,klev), INTENT(IN) :: t_w ! Temp érature dans la poches froide307 !! 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 309 309 !! 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 311 311 REAL, DIMENSION(klon,klev), INTENT(IN) :: wake_dlt !temperature difference between (w) and (x) (K) 312 312 REAL, DIMENSION(klon,klev), INTENT(IN) :: wake_dlq !humidity difference between (w) and (x) (K) … … 679 679 680 680 !!! jyg le 25/03/2013 681 !! Variables intermediaires pour le raccord des deux colonnes àla surface681 !! Variables intermediaires pour le raccord des deux colonnes \`a la surface 682 682 REAL :: dd_Ch 683 683 REAL :: dd_Cm … … 1572 1572 1573 1573 !!! 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 couche1574 !----- 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 1575 1575 ! Kech_h_x(j) = ycdragh_x(j) * & 1576 1576 ! (1.0+SQRT(yu_x(j,1)**2+yv_x(j,1)**2)) * & … … 1664 1664 ENDIF 1665 1665 ! 1666 ! Calcul des coef A, B équivalents dans la couche 11666 ! Calcul des coef A, B \'equivalents dans la couche 1 1667 1667 ! 1668 1668 AcoefH(j) = AcoefH_x(j) + ywake_s(j)*(Kech_H_wp(j)/Kech_Hp(j))*dd_AH … … 1684 1684 1685 1685 ! 1686 ! Calcul des cdrag équivalents dans la couche1686 ! Calcul des cdrag \'equivalents dans la couche 1687 1687 ! 1688 1688 ycdragm(j) = ycdragm_x(j) + ywake_s(j)*dd_CM 1689 1689 ycdragh(j) = ycdragh_x(j) + ywake_s(j)*dd_CH 1690 1690 ! 1691 ! Calcul de T, q, u et v équivalents dans la couche 11691 ! Calcul de T, q, u et v \'equivalents dans la couche 1 1692 1692 yt(j,1) = yt_x(j,1) + ywake_s(j)*(Kech_h_w(j)/Kech_h(j))*dd_t 1693 1693 yq(j,1) = yq_x(j,1) + ywake_s(j)*(Kech_h_w(j)/Kech_h(j))*dd_q … … 1993 1993 !!jyg!! ENDIF 1994 1994 !!jyg!! 1995 !!jyg!!!-----Calcul de ybeta (evap_r éelle/evap_potentielle)1995 !!jyg!!!-----Calcul de ybeta (evap_r\'eelle/evap_potentielle) 1996 1996 !!jyg!!!!!!! jyg le 23/02/2012 1997 1997 !!jyg!!!!!!!
Note: See TracChangeset
for help on using the changeset viewer.