Ignore:
Timestamp:
Jun 27, 2024, 9:27:27 AM (8 days ago)
Author:
evignon
Message:

ajout d'un flag pour le calcul de qsat dans la condtion de "francis"
pour l'advection de l'humidite (q<qsat_aval). En activant ce flag,
on calcule qsat /liquide quelque soit la temperature et on peut donc
ainsi autoriser l'advection de sursaturations / glace à T<0oC.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dyn3dmem/gcm.F90

    r4619 r4996  
    480480  !$OMP COPYIN(saison,ecripar,fxyhypb,ysinus,read_start,ok_guide) &
    481481  !$OMP COPYIN(ok_strato,ok_gradsfile,ok_limit,ok_etat0) &
    482   !$OMP COPYIN(iflag_phys,iflag_trac)
     482  !$OMP COPYIN(iflag_phys,iflag_trac,adv_qsat_liq)
    483483  CALL leapfrog_loc(ucov,vcov,teta,ps,masse,phis,q,time_0)
    484484  !$OMP END PARALLEL
Note: See TracChangeset for help on using the changeset viewer.