Changeset 4290


Ignore:
Timestamp:
Oct 3, 2022, 3:03:38 PM (2 years ago)
Author:
evignon
Message:

fix bug of SANDU/FAST (vertical interpolation of initial tke)

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/dyn1d/mod_1D_cases_read_std.F90

    r4282 r4290  
    11911191             k1=1
    11921192             k2=2
     1193             frac1 = (play(l)-plev_prof_cas(k2))/(plev_prof_cas(k1)-plev_prof_cas(k2))
     1194             frac2 = (play(l)-plev_prof_cas(k1))/(plev_prof_cas(k1)-plev_prof_cas(k2))
    11931195             tke_mod_cas(l)= frac1*tke_prof_cas(k1) - frac2*tke_prof_cas(k2)
    11941196
Note: See TracChangeset for help on using the changeset viewer.