Changeset 2450 for LMDZ5/trunk/libf/phylmd/physiq_mod.F90
- Timestamp:
- Feb 24, 2016, 3:53:09 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/physiq_mod.F90
r2448 r2450 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ébut 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é-évapore 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 évapore la glace 1783 1783 qs_seri(i,k) = 0.0 1784 1784 d_t_eva(i,k) = za … … 2591 2591 ! 2592 2592 !!! nrlmd le 22/03/2011---Si on met les poches hors des thermiques il faut rajouter cette 2593 !------------------------- tendance calcul ée hors des poches froides2593 !------------------------- tendance calcul\'ee hors des poches froides 2594 2594 ! 2595 2595 if (iflag_wake>=1) then … … 2655 2655 DO i=1,klon 2656 2656 IF (rneb(i,k)==0.) THEN 2657 ! On ne tient compte des tendances qu'en dehors des nuages (c'est �|dire2657 ! On ne tient compte des tendances qu'en dehors des nuages (c'est-\`a-dire 2658 2658 ! a priri dans une region ou l'eau se reevapore). 2659 2659 dt_dwn(i,k)= dt_dwn(i,k)+ & … … 2806 2806 IF (mod(iflag_pbl_split/2,2) .EQ. 1) THEN 2807 2807 ! Si les thermiques ne sont presents que hors des poches, la tendance moyenne 2808 ! associ ée doit etre multipliee par la fraction surfacique qu'ils couvrent.2808 ! associ\'ee doit etre multipliee par la fraction surfacique qu'ils couvrent. 2809 2809 DO k=1,klev 2810 2810 DO i=1,klon
Note: See TracChangeset
for help on using the changeset viewer.