SUBROUTINE surfini(ngrid,psolaralb)
      IMPLICIT NONE
c=======================================================================
c
c   creation des calottes pour l'etat initial
c
c=======================================================================
c-----------------------------------------------------------------------
c   Declarations:
c   -------------
#include "dimensions.h"
#include "dimphys.h"
#include "surfdat.h"
#include "callkeys.h"
#include "tracer.h"
c
      INTEGER ngrid,ig
      REAL psolaralb(ngrid)

      EXTERNAL ISMIN,ISMAX
      INTEGER ISMIN,ISMAX
c

      DO ig=1,ngrid
         psolaralb(ig)=albedodat(ig)
      ENDDO



      PRINT*,'surfini: minimum des donnees albedo',
     s     albedodat(ISMIN(ngrid,albedodat,1))
      PRINT*,'surfini: maximum des donnees albedo',
     s     albedodat(ISMAX(ngrid,albedodat,1))

      PRINT*,'surfini: minimum des donnees albedo',
     s     psolaralb(ISMIN(ngrid,psolaralb,1))
      PRINT*,'surfini: maximum des donnees albedo',
     s     psolaralb(ISMAX(ngrid,psolaralb,1))

      RETURN
      END