Ignore:
Timestamp:
Jul 15, 2025, 2:13:19 PM (2 weeks ago)
Author:
evignon
Message:

ajout de l'advection horizontale de la TKE. Travaux dans le cadre de la these de Valentin Wiener

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/conf_phys_m.f90

    r5773 r5776  
    255255    INTEGER,SAVE  :: kz0_omp
    256256    LOGICAL, SAVE :: ok_bs_omp, ok_rad_bs_omp
     257    LOGICAL, SAVE :: ok_advtke_omp
    257258    LOGICAL, SAVE :: ok_mass_dtcon_omp, ok_mass_dqcon_omp, ok_mass_duvcon_omp
    258259
    … …  
    23302331
    23312332
     2333    ok_advtke_omp = .FALSE.
     2334    CALL getin('ok_advtke', ok_advtke_omp)
     2335    !
     2336    !Config Key  = ok_advtke_omp
     2337    !Config Desc = advect tke
     2338    !Config Def  = .FALSE.
     2339    !Config Help = ...
    23322340
    23332341    ok_bs_omp = .FALSE.
    … …  
    25092517    ok_bs = ok_bs_omp
    25102518    ok_rad_bs=ok_rad_bs_omp
     2519    ok_advtke=ok_advtke_omp
    25112520    rad_froid = rad_froid_omp
    25122521    rad_chau1 = rad_chau1_omp
    … …  
    30003009    WRITE(lunout,*) ' inertie_lic = ', inertie_lic
    30013010    WRITE(lunout,*) ' inertie_sno = ', inertie_sno
     3011    WRITE(lunout,*) ' ok_advtke = ', ok_advtke
    30023012    WRITE(lunout,*) ' ok_bs = ', ok_bs
    30033013    WRITE(lunout,*) ' ok_rad_bs = ', ok_rad_bs
Note: See TracChangeset for help on using the changeset viewer.