Subroutine Hovmoller_BL (Grads_File, Out_Dir, Decade)
! Real, Dimension (Nst_Max,NYear*NWeek,Nidx) :: All_IDX 
Integer :: it, imw, ix, ist, Nt, irec, Ny, Nx, Ndx1, Ndx2, Nvar
Character (Len=*) :: Grads_File, Out_Dir, Decade
Real, Allocatable :: Y(:,:)
Character (Len=3) :: IDXs(Nidx)=(/"mop", "mow", "moz", "msp", "msw", "msz", "mpr"/)

 Open (33,file=trim(Out_Dir)//trim(Grads_File)//'.dat',FORM='UNFORMATTED', &
          access="direct",recl=4,status="unknown") !*Nt*Nst,status="unknown")
 if (trim(Decade)=="Month") then
    Ndx1=1; Ndx2=(Nidx-2)/2; Ny=NMonth; Nvar=Ndx2
 else if (trim(Decade)=="Week1") then
    Ndx1=(Nidx-2)/2+1; Ndx2=(Nidx-2)/4*3; Ny=NWeek; Nvar=(Nidx-2)/4
 else if (trim(Decade)=="Week2") then
    Ndx1=(Nidx-2)/4*3+1; Ndx2=Nidx-2; Ny=NWeek/2; Nvar=(Nidx-2)/4
 endif
 irec = 0
 Do idx=Ndx1, Ndx2 !1, Nidx-2
    Nx = Nst*NYear
    Allocate (Y(Ny,Nx)); ix=0
    Do ist=1, Nst
       it = 0
       Do iyr=1, NYear
          ix=ix+1
          Do imw=1, Ny
             it = it + 1
             Y(imw,ix) = All_IDX(ist,it,idx)
          Enddo
       Enddo
    Enddo
 ! 
    Do imw=1, Ny
       Do ix=1,Nx
          irec=irec+1; write (33,rec=irec) Y(imw,ix)
       Enddo
    Enddo
    Deallocate (Y)
 Enddo
 Close (33)
 Open (4, file=trim(Out_Dir)//trim(Grads_File)//".ctl")
 write (4,"(A)") "dset ^"//trim(Grads_File)//".dat"
 write (4,"(A)") "title Spatial-Temporal Distribution of Drought"
 write (4,"(A,F10.3)") "undef -99.0"
 write (4,"(A,I4,A,I4,A)") "xdef ",Nst*NYear," linear ",1," 1"
 write (4,"(A,I4,A)") "ydef ",Ny," linear 1 1"
! write (4,"(A,I4,A)") "ydef ",1," linear 1 1"
! write (4,"(A)") "options yrev"
 write (4,"(A)") "zdef 1 linear 1000 1"
! write (4,"(A,I4,A,I4,A)") "tdef ",Ntime," linear 00z01Jan",YBas1," 1mon"
 write (4,"(A,I4,A,I4,A)") "tdef ",1," linear 00z01Jan",YBas1," 1mon"
 write (4,"(A,I3)") "vars ", Nvar
 Do idx=Ndx1, Ndx2
    write (4,"(A,A,A)") trim(IDXs(idx))," 0 99 "," Variable "
 Enddo
 write (4,"(A)") "endvars"
 Close(4)
End Subroutine Hovmoller_BL
!------------------------------------------------------------------------------