!copyright (C) 2001  MSC-RPN COMM  %%%RPNPHY%%%
      integer maxvarsurf, nvarsurf
      parameter(maxvarsurf=1000)
      common /nbvarsurf/ nvarsurf
!
#include "indx_sfc.cdk"