C
C     ARRAYS FOR MID-MONTH WRITING
C
      PARAMETER(NZPP=NY)
      COMMON/WRM/NGZ(NZPP),NZAP,Y_BDZ(NC,L,365),
     *YZAP(L,NZPP,12),PZAP(L,NZPP,12),DZAP(L,NZPP,12)