C
C*************************** COMMON BLOCK SURFWATER ********************
C            
C  real scalars and real arrays for surface water routing and watershed 
C  characteristics
C            
C***********************************************************************
C
      REAL*8 AK_MAX,AK_MAX_SAV,AK_MAX_P,CUTRGT,CU_MAX
      REAL*8 ELEVATION(MAXCEL),ELEVATION_WITH_LAKES(MAXCEL)
      REAL*8 CELLCOARSE(MAXCEL)
      REAL*8 H_WATER_KKP1_SN(MAXCEL)
      REAL*8 SURFACE_WATER_SN(MAXCEL)
      REAL*8 Q_IN_KK_SN(MAXCEL),Q_IN_KK_SN_SAV(MAXCEL)
      REAL*8 Q_IN_KK_SN_P(MAXCEL),Q_IN_KKP1_SN(MAXCEL)
      REAL*8 Q_OUT_KK_SN_1(MAXCEL),Q_OUT_KK_SN_1_SAV(MAXCEL)
      REAL*8 Q_OUT_KK_SN_2(MAXCEL),Q_OUT_KK_SN_2_SAV(MAXCEL)
      REAL*8 Q_OUT_KK_SN_1_P(MAXCEL),Q_OUT_KKP1_SN_1(MAXCEL)
      REAL*8 Q_OUT_KK_SN_2_P(MAXCEL),Q_OUT_KKP1_SN_2(MAXCEL)
      REAL*8 VOLUME_KK_SN(MAXCEL),VOLUME_KK_SN_SAV(MAXCEL)
      REAL*8 VOLUME_KK_SN_P(MAXCEL),VOLUME_KKP1_SN(MAXCEL)
      REAL*8 H_POOL_KK_VEC(MAXRES),H_POOL_KK_VEC_SAV(MAXRES)
      REAL*8 H_POOL_KK_VEC_P(MAXRES),H_POOL_KKP1_VEC(MAXRES)
      REAL*8 HRES(MAXRES,30),ARES(MAXRES,30)
      REAL*8 H_SOGLIA(MAXRES),H_FONDO(MAXRES)
C
      COMMON /SURFWATER/
     A       AK_MAX,AK_MAX_SAV,AK_MAX_P,CUTRGT,CU_MAX,
     B       ELEVATION,ELEVATION_WITH_LAKES,
     C       CELLCOARSE,
     D       H_WATER_KKP1_SN,SURFACE_WATER_SN,
     E       Q_IN_KK_SN,Q_IN_KK_SN_SAV,
     F       Q_IN_KK_SN_P,Q_IN_KKP1_SN,
     G       Q_OUT_KK_SN_1,Q_OUT_KK_SN_1_SAV,
     H       Q_OUT_KK_SN_2,Q_OUT_KK_SN_2_SAV,
     I       Q_OUT_KK_SN_1_P,Q_OUT_KK_SN_2_P,
     L       Q_OUT_KKP1_SN_1,Q_OUT_KKP1_SN_2,
     M       VOLUME_KK_SN,VOLUME_KK_SN_SAV,
     N       VOLUME_KK_SN_P,VOLUME_KKP1_SN,
     O       H_POOL_KK_VEC,H_POOL_KK_VEC_SAV,
     P       H_POOL_KK_VEC_P,H_POOL_KKP1_VEC,
     Q       HRES,ARES,H_SOGLIA,H_FONDO
