      PARAMETER (M_=600,N_=600,L_=13000,NCT_=3000,LC_=L_)
C Remember to change COMMON /BCPTS/ to M_*2 + N_*2
      PARAMETER (NBK_=5000,ND_=1000)
      PARAMETER (M2G_=8000)
      COMMON /WDMAX/  WDMAX(M_,N_)
      COMMON /LLXFLE/ YLT(M_,N_),YLG(M_,N_)
      COMMON /DUMB5/  ZB(M_,N_),ZBM(M_,N_)
      COMMON /DUMB7/  UB(M_,N_),VB(M_,N_),HB(M_,N_)
      COMMON /SCRTCH/ HSUB(M_,N_)
      COMMON /DUMB10/ HMX(M_,N_)
      COMMON /ARHMX/  IHMX(M_,N_)
      INTEGER*2       IHMX
      COMMON /ELPDST/ ELPCT(M_),ELPDT(M_),ELPCL(M_),ELPDL(M_)
      COMMON /ELPDS2/ ELPCL2(M_),ELPDL2(M_),SINL2(N_),SINT2(N_)
      COMMON /PLRPST/ SINT(N_),COST(N_),SINL(N_),COSL(N_)
      COMMON /SETMIX/ IS(N_),MS(N_),MF(N_)
      COMMON /SETMX1/ IE(N_),ME(N_)
      COMMON /ITREE/  ITREE(M_,N_)
      COMMON /KTREE/  KTREE(L_)
      CHARACTER*1     ITREE,KTREE
      COMMON /KSPCON/ KSKP(M_,N_)
      CHARACTER*1     KSKP
      COMMON /DUMB18/ ISQR(L_),JSQR(L_),ISIDE(L_),HWEIR(L_),ZBMIN(L_)
      COMMON /ACT1D/  FLWSQR(L_),F1DACT(L_)
      COMMON /CS1DA/  COS1D(L_),SIN1D(L_)
      CHARACTER*1     F1DACT
      COMMON /DUMCUT/ CUTL(NCT_),CUTLI(NCT_),CUTLE(NCT_)
      COMMON /BANK2/  DELCUT(LC_),BANK(LC_,2)
      COMMON /SUBDCE/ ZSUBCE,JSUB,JSUB1,ZSUB(N_)
      COMMON /LAKE/   JLDTMG,LDTMG(N_)
      COMMON /LDRY/   NODRY,IDRY(ND_),JDRY(ND_)
      
      COMMON /STRESS/ GFXX(M_,N_),GFYY(M_,N_)
      REAL GFXX, GFYY
      
      COMMON /PRESS/  GPXX(M_,N_),GPYY(M_,N_)
      REAL GPXX, GPYY
      
      COMMON /NCWIND/   GWXX(M_,N_),GWYY(M_,N_)
      REAL GWXX, GWYY
      
      COMMON /NCWAVE/   GRXX(M_,N_),GRYY(M_,N_)
      REAL GRXX, GRYY      
      
      COMMON /NCFP/  GFPX(M_,N_),GFPY(M_,N_)
      COMMON /NCFW/   GFWX(M_,N_),GFWY(M_,N_)      
      COMMON /NCFR/   GFRX(M_,N_),GFRY(M_,N_)      
      REAL GFPX, GFPY, GFWX, GFWY, GFRX, GFRY
      
      COMMON /CASESTEPTIME/ TBEGIN,PSTEP,ETIME
      INTEGER TBEGIN
      
      COMMON /FNAME/ WNFILE,PRFILE,NCFILE,STFILE,WVFILE
      CHARACTER*100 WNFILE,PRFILE,NCFILE,STFILE,WVFILE
      
      COMMON /COORD/ DLAT, DLON, SWLAT, SWLON
      Double Precision DLAT, DLON, SWLAT, SWLON

      COMMON /STVALS/ NLON, NLAT
      INTEGER NLAT, NLON

      COMMON /NCMETP/ PXX1(M_,N_),PXX2(M_,N_),PYY1(M_,N_),PYY2(M_,N_)
      REAL PXX1,PXX2,PYY1,PYY2

      COMMON /NCMETS/ FXX1(M_,N_),FXX2(M_,N_),FYY1(M_,N_),FYY2(M_,N_)
      REAL FXX1,FXX2,FYY1,FYY2

      COMMON /NCMETR/ RXX1(M_,N_),RXX2(M_,N_),RYY1(M_,N_),RYY2(M_,N_)
      REAL RXX1,RXX2,RYY1,RYY2
      
      COMMON /NCMETW/ WXX1(M_,N_),WXX2(M_,N_),WYY1(M_,N_),WYY2(M_,N_)
      REAL WXX1,WXX2,WYY1,WYY2

      COMMON /NCTIME/ PSNAP, WSNAP, RSNAP, SSNAP
      INTEGER PSNAP, WSNAP, RSNAP, SSNAP
      
      COMMON /NCFIO/ POPEN, SOPEN, ROPEN, WOPEN
      INTEGER POPEN,SOPEN,ROPEN,WOPEN
      
      COMMON /NCPID/ PNCID, NT_P, DT_P, P_ID, I_P
      INTEGER        PNCID, NT_P, DT_P, P_ID, I_P

      COMMON /NCWID/ WNCID, NT_W, DT_W, FX_ID, FY_ID, I_W
      INTEGER        WNCID, NT_W, DT_W, FX_ID, FY_ID, I_W

      COMMON /NCSID/ SNCID, NT_S, DT_S, WX_ID, WY_ID, I_S
      INTEGER        SNCID, NT_S, DT_S, WX_ID, WY_ID, I_S
      
      COMMON /NCRID/ RNCID, NT_R, DT_R, RX_ID, RY_ID, I_R
      INTEGER        RNCID, NT_R, DT_R, RX_ID, RY_ID, I_R      

      COMMON /NCIDA/ NCID,NC_VarID_time,NC_VarID_eta,NC_VarID_etamax
      INTEGER        NCID,NC_VarID_time,NC_VarID_eta,NC_VarID_etamax
           
      COMMON /NCIDB/ NC_VarID_wxx,NC_VarID_wyy
      INTEGER        NC_VarID_wxx,NC_VarID_wyy

      
      

