function BMF_blocgobe(path,prefix,date,hour,min,sec) result(length) 

ARGUMENTS

path	Path to files	character*(*)	I
prefix	Prefix, in the prog_filename sense	character(len=2)	I
date	Date in yyyymmdd format	integer	I
hh,mm,ss	Hours, minutes, seconds	integer	I
Length	Number of fields found	integer	0

---

DESCRIPTION

Subroutine which will perform the same task than bmf_gobe but also taking advantage of a block structure as it could have been defined with RPN_COMM_bloc. Each master PE reads files for his group and ships data accordingly.

---

EXAMPLE

   call bmf_init
   length=bmf_blocgobe('../../datafiles','AA',19990101,13,12,11)

   allocate(ni(length),nj(length,nk(length))
   allocate(dtyp(length),hgrid(length),vgrid(length))
   allocate(nom(length),time1(length),time2(length))
   allocate(ndata(length),scrap(length))
   call bmf_catalog(nom,ni,scrap,scrap,nj,scrap,scrap,nk, &
                      scrap,scrap,time1,time2,hgrid,vgrid,dtyp,scrap,ndata)
   trouve=.false.
   do i=1,length
      if(nom(i).eq.'HUMI') then
          trouve=.true.
          allocate(humi(ni(i),nj(i),nk(i)))
      endif
      if(trouve) exit
   enddo
   call bmf_get2(.....)
   call bmf_clear   
   deallocate(ni,nj,nk,dtyp,hgrid,vgrid,time1,time2,nom,ndata,scrap)


---

SEE ALSO

BMF_*, RPN_COMM_bloc


---


Author: Luc Corbeil, February 24 2003, 11h29


---


Return to RPN Librairies home page