MODULE clesphys_mod IMPLICIT NONE LOGICAL,SAVE :: cycle_diurne, soil_model !$OMP THREADPRIVATE(cycle_diurne, soil_model) LOGICAL,SAVE :: ok_orodr, ok_orolf, ok_gw_nonoro !$OMP THREADPRIVATE(ok_orodr, ok_orolf, ok_gw_nonoro) LOGICAL,SAVE :: ok_kzmin, tuneupperatm, ok_ionchem, ok_jonline !$OMP THREADPRIVATE(ok_kzmin, tuneupperatm, ok_ionchem, ok_jonline) LOGICAL,SAVE :: ok_iondiff !$OMP THREADPRIVATE(ok_iondiff) LOGICAL,SAVE :: callnlte, callnirco2, callthermos !$OMP THREADPRIVATE(callnlte, callnirco2, callthermos) LOGICAL,SAVE :: ok_cloud, ok_chem, reinit_trac, ok_sedim !$OMP THREADPRIVATE(ok_cloud, ok_chem, reinit_trac, ok_sedim) LOGICAL,SAVE :: ok_clmain, physideal, startphy_file !$OMP THREADPRIVATE(ok_clmain, physideal, startphy_file) INTEGER,SAVE :: nbapp_rad, nbapp_chem, iflag_con, iflag_ajs !$OMP THREADPRIVATE(nbapp_rad, nbapp_chem, iflag_con, iflag_ajs) INTEGER,SAVE :: lev_histins, lev_histday, lev_histmth !$OMP THREADPRIVATE(lev_histins, lev_histday, lev_histmth) INTEGER,SAVE :: tr_scheme, cl_scheme !$OMP THREADPRIVATE(tr_scheme, cl_scheme) INTEGER,SAVE :: nircorr, nltemodel, solvarmod !$OMP THREADPRIVATE(nircorr, nltemodel, solvarmod) INTEGER,SAVE :: nb_mode !$OMP THREADPRIVATE(nb_mode) INTEGER,SAVE :: solarchoice !$OMP THREADPRIVATE(solarchoice) REAL,SAVE :: ecriphy !$OMP THREADPRIVATE(ecriphy) REAL,SAVE :: z0, lmixmin !$OMP THREADPRIVATE(z0, lmixmin) REAL,SAVE :: ksta, inertie !$OMP THREADPRIVATE(ksta, inertie) REAL,SAVE :: euveff, fixed_euv_value !$OMP THREADPRIVATE(euveff, fixed_euv_value) END MODULE clesphys_mod