!     REAL rnaturfi(ngridmax),phisfi(ngridmax)
      REAL I_mer,I_ter,Cd_mer,Cd_ter
      REAL alb_mer,alb_ter,emi_mer,emi_ter

      COMMON/surface/
!  rnaturfi,phisfi,
     s I_mer,I_ter,Cd_mer,Cd_ter,
     s alb_mer,alb_ter,emi_mer,emi_ter