Ignore:
Timestamp:
Oct 12, 2023, 10:30:22 AM (15 months ago)
Author:
slebonnois
Message:

BBT : Update for the titan microphysics and cloud model

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.TITAN/libf/phytitan/callkeys_mod.F90

    r2793 r3083  
    4545      logical,save :: eff_gz
    4646!$OMP THREADPRIVATE(eff_gz)
    47      
     47
     48      logical,save :: nudging_u
     49!$OMP THREADPRIVATE(nudging_u)
     50      real,save    :: nudging_dt
     51!$OMP THREADPRIVATE(nudging_dt)
     52
     53      logical,save :: opt4clouds
     54!$OMP THREADPRIVATE(opt4clouds)
     55      real,save    :: Fcloudy
     56      real,save    :: Fssa
     57      real,save    :: FHVIS
     58      real,save    :: FHIR
     59!$OMP THREADPRIVATE(Fcloudy,Fssa,FHVIS,FHIR)
     60      logical,save :: resCH4_inf
     61!$OMP THREADPRIVATE(resCH4_inf)
     62       
    4863      integer,save :: ichim
    4964!$OMP THREADPRIVATE(ichim)
Note: See TracChangeset for help on using the changeset viewer.