Changeset 2451
- Timestamp:
- Feb 24, 2016, 3:59:18 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/physiq_mod.F90
r2450 r2451 451 451 real w0(klon) ! Vitesse des thermiques au LCL 452 452 real w_conv(klon) ! Vitesse verticale de grande \'echelle au LCL 453 real tke0(klon,klev+1) ! TKE au d ébut du pas de temps453 real tke0(klon,klev+1) ! TKE au d\'ebut du pas de temps 454 454 real therm_tke_max0(klon) ! TKE dans les thermiques au LCL 455 455 real env_tke_max0(klon) ! TKE dans l'environnement au LCL … … 1768 1768 else 1769 1769 1770 !CR: on r é-évapore eau liquide et glace1770 !CR: on r\'e-\'evapore eau liquide et glace 1771 1771 1772 1772 ! zdelta = MAX(0.,SIGN(1.,RTT-t_seri(i,k))) … … 1780 1780 q_seri(i,k) = q_seri(i,k) + zb 1781 1781 ql_seri(i,k) = 0.0 1782 !on évapore la glace1782 !on \'evapore la glace 1783 1783 qs_seri(i,k) = 0.0 1784 1784 d_t_eva(i,k) = za
Note: See TracChangeset
for help on using the changeset viewer.