Ignore:
Timestamp:
May 15, 2015, 6:06:07 PM (9 years ago)
Author:
fhourdin
Message:

Modification sur la prise en compte de la gustinness

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/physiq.F90

    r2271 r2278  
    18661866!
    18671867!-------gustiness calculation-------!
    1868      do i = 1, klon
    1869         gustiness(i)=f_gust_bl*ale_bl(i)+f_gust_wk*ale_wake(i)
    1870      enddo
     1868     IF (iflag_gusts==0) THEN
     1869        gustiness(1:klon)=0
     1870     ELSE IF (iflag_gusts==1) THEN
     1871        do i = 1, klon
     1872           gustiness(i)=f_gust_bl*ale_bl(i)+f_gust_wk*ale_wake(i)
     1873        enddo
     1874!     ELSE IF (iflag_gusts==2) THEN
     1875!        do i = 1, klon
     1876!           gustiness(i)=f_gust_bl*ale_bl(i)+sigma_wk(i)*f_gust_wk*ale_wake(i) !! need to make sigma_wk accessible here
     1877!        enddo
     1878!     ELSE IF (iflag_gusts==3) THEN
     1879!        do i = 1, klon
     1880!           gustiness(i)=f_gust_bl*alp_bl(i)+f_gust_wk*alp_wake(i)
     1881!        enddo
     1882     ENDIF
     1883
     1884
    18711885
    18721886     CALL pbl_surface(  &
Note: See TracChangeset for help on using the changeset viewer.