Changeset 3111 for LMDZ6/trunk/libf


Ignore:
Timestamp:
Dec 4, 2017, 6:30:42 PM (7 years ago)
Author:
fhourdin
Message:

Modification de la formulation des rafales (gust) prenant en compte
ale_bl_stat plutot que ale_bl

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/physiq_mod.F90

    r3110 r3111  
    22412241          gustiness(1:klon)=0
    22422242       ELSE IF (iflag_gusts==1) THEN
    2243           do i = 1, klon
    2244              gustiness(i)=f_gust_bl*ale_bl(i)+f_gust_wk*ale_wake(i)
    2245           enddo
     2243          gustiness(1:klon)=f_gust_bl*ale_bl(1:klon)+f_gust_wk*ale_wake(1:klon)
     2244       ELSE IF (iflag_gusts==2) THEN
     2245          gustiness(1:klon)=f_gust_bl*ale_bl_stat(1:klon)+f_gust_wk*ale_wake(1:klon)
    22462246          ! ELSE IF (iflag_gusts==2) THEN
    22472247          !    do i = 1, klon
Note: See TracChangeset for help on using the changeset viewer.