Ignore:
Timestamp:
Oct 7, 2019, 3:30:19 PM (5 years ago)
Author:
fhourdin
Message:

Corrections d'erreurs identifiees en debug ancienne physique sur Jean-Zay
Vive le poihl interactif.

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r3575 r3577  
    17011701
    17021702!jyg<
    1703        IF (klon_glo==1) THEN
     1703       IF (iflag_pbl<=1) THEN
     1704          ! No TKE for Standard Physics
     1705          pbl_tke(:,:,:)=0.
     1706
     1707       ELSE IF (klon_glo==1) THEN
    17041708          pbl_tke(:,:,is_ave) = 0.
    17051709          DO nsrf=1,nbsrf
Note: See TracChangeset for help on using the changeset viewer.