C************************************************************************
C*  / BLOCK4 /								*
C*									*
C*  This common area contains information from the land surface station *
C*  table.                                                              * 
C************************************************************************
        INTEGER  ITBLSZ
        PARAMETER ( ITBLSZ = 16000 )
C
        COMMON /BLOCK4/  jstn,    jstnid,  elev,  ylat,  ylong,
     +                   jwmorg,  jwdflg,  jcoun
C 
        REAL   ylat(ITBLSZ),  ylong(ITBLSZ),  elev(ITBLSZ)
C 
        INTEGER   jstnid(ITBLSZ),   jwdflg(ITBLSZ),   jwmorg(ITBLSZ)
C 
        CHARACTER*2   jcoun(ITBLSZ)
C