Changeset 4746 for LMDZ6


Ignore:
Timestamp:
Nov 10, 2023, 12:09:47 AM (14 months ago)
Author:
fhourdin
Message:

Bug fix

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r4590 r4746  
    6262      fm(:,nlay+1)=0.
    6363
     64
     65
     66do isrf=1,nsrf
     67
     68   q(:,:)=tke(:,:,isrf)
    6469!   calcul de la valeur dans les ascendances
    6570      do ig=1,ngrid
    … …  
    6772      enddo
    6873
    69 
    70 
    71 do isrf=1,nsrf
    72 
    73    q(:,:)=tke(:,:,isrf)
    7474
    7575    if (1==1) then
Note: See TracChangeset for help on using the changeset viewer.