pro SaveMon,Savefile,data,nlat,nlon

d0=0.0 & d1=0.0 & d2=0.0 & d3=0.0 & d4=0.0 & d5=0.0 

openw, lunSave, Savefile, /get_lun
  
for xmon = 0, 11 do begin
   for xlat = nlat-1, 0, -1 do begin
     for xlon = (nlon/2), (nlon-6), 6 do begin
       d0=data(xmon,xlon+0,xlat) & d1=data(xmon,xlon+1,xlat) & d2=data(xmon,xlon+2,xlat) 
       d3=data(xmon,xlon+3,xlat) & d4=data(xmon,xlon+4,xlat) & d5=data(xmon,xlon+5,xlat) 
       printf,lunSave,d0,d1,d2,d3,d4,d5,format='(6e12.4)'
     endfor
     for xlon = 0, ((nlon/2)-6), 6 do begin
       d0=data(xmon,xlon+0,xlat) & d1=data(xmon,xlon+1,xlat) & d2=data(xmon,xlon+2,xlat) 
       d3=data(xmon,xlon+3,xlat) & d4=data(xmon,xlon+4,xlat) & d5=data(xmon,xlon+5,xlat) 
       printf,lunSave,d0,d1,d2,d3,d4,d5,format='(6e12.4)'
     endfor
   endfor
endfor

free_lun, lunSave

end