Ignore:
Timestamp:
Nov 14, 2017, 4:17:16 PM (7 years ago)
Author:
jyg
Message:

Correction in ener_conserv.F90: bils_tke is
set to zero if iflag_pbl <= 1.

Cosmetic correction in physiq_mod.F90: pbl_tke is
initialized to zero if iflag_pbl <= 1 and
klon_glo=1.

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r3048 r3071  
    14001400!jyg<
    14011401       IF (klon_glo==1) THEN
    1402           pbl_tke(:,:,is_ave) = 0.
    1403           DO nsrf=1,nbsrf
    1404             DO k = 1,klev+1
    1405                  pbl_tke(:,k,is_ave) = pbl_tke(:,k,is_ave) &
    1406                      +pctsrf(:,nsrf)*pbl_tke(:,k,nsrf)
    1407             ENDDO
    1408           ENDDO
     1402          IF (iflag_pbl > 1) THEN         
     1403              pbl_tke(:,:,is_ave) = 0.
     1404              DO nsrf=1,nbsrf
     1405                DO k = 1,klev+1
     1406                     pbl_tke(:,k,is_ave) = pbl_tke(:,k,is_ave) &
     1407                         +pctsrf(:,nsrf)*pbl_tke(:,k,nsrf)
     1408                ENDDO
     1409              ENDDO
     1410          ELSE   ! (iflag_pbl > 1)
     1411              pbl_tke(:,:,:) = 0.
     1412          ENDIF  ! (iflag_pbl > 1)
    14091413!>jyg
    14101414       ENDIF
Note: See TracChangeset for help on using the changeset viewer.