Changeset 3111 for LMDZ6/trunk/libf/phylmd/physiq_mod.F90

Timestamp:

Dec 4, 2017, 6:30:42 PM (6 years ago)

Author:

fhourdin

Message:

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

File:

• LMDZ6/trunk/libf/phylmd/physiq_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -2241 +2241 @@
           gustiness(1:klon)=0
        ELSE IF (iflag_gusts==1) THEN
-          do i = 1, klon
-             gustiness(i)=f_gust_bl*ale_bl(i)+f_gust_wk*ale_wake(i)
-          enddo
+          gustiness(1:klon)=f_gust_bl*ale_bl(1:klon)+f_gust_wk*ale_wake(1:klon)
+       ELSE IF (iflag_gusts==2) THEN
+          gustiness(1:klon)=f_gust_bl*ale_bl_stat(1:klon)+f_gust_wk*ale_wake(1:klon)
           ! ELSE IF (iflag_gusts==2) THEN
           !    do i = 1, klon