!
!		COMMONS FOR XXXX
!		===================================
!
!       further cleaning required
!

      REAL(8) :: rlat  !keep
 
      COMMON / iteration / 
     &   numit,
     &   rlat,
     &   year, ! (useful?)
     &   day, ! (useful ?)
     &   nstart,
     &   nend,
     &   nitrun,
     &   num_d,
     &   nyear
 
      COMMON / cstfix /
     &  c_zero, one, pi, radian,
     &  yeaday, gpes, rho0,
     &  iyea_num