MODULE planet IMPLICIT NONE SAVE REAL :: aphelie, periheli, year_day, peri_day, obliquit, & coefvis, coefir, & lmixmin=100., emin_turb=1e-8 REAL, PARAMETER :: karman=0.4 END MODULE planet