pro LoadMon,loadfile,data,nlat,nlon

d0=0.0 & d1=0.0 & d2=0.0 & d3=0.0 & d4=0.0 & d5=0.0 
data = fltarr (12,nlon,nlat)

openr, lunLoad, loadfile, /get_lun
  
for xmon = 0, 11 do begin
   r=fltarr(nlon,nlat)
  
   for xlat = nlat-1, 0, -1 do begin
     for xlon = (nlon/2), (nlon-6), 6 do begin
       readf,lunLoad,d0,d1,d2,d3,d4,d5,format='(6e12.4)'
       r(xlon+0,xlat)=d0 & r(xlon+1,xlat)=d1 & r(xlon+2,xlat)=d2 
       r(xlon+3,xlat)=d3 & r(xlon+4,xlat)=d4 & r(xlon+5,xlat)=d5 
     endfor
     for xlon = 0, ((nlon/2)-6), 6 do begin
       readf,lunLoad,d0,d1,d2,d3,d4,d5,format='(6e12.4)'
       r(xlon+0,xlat)=d0 & r(xlon+1,xlat)=d1 & r(xlon+2,xlat)=d2 
       r(xlon+3,xlat)=d3 & r(xlon+4,xlat)=d4 & r(xlon+5,xlat)=d5 
     endfor
   endfor
   
   data(xmon,*,*) = r(*,*)
endfor

free_lun, lunLoad

end