source: trunk/LMDZ.VENUS/libf/phyvenus/clesphys_mod.F90 @ 3885

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