;|-----------------------------------------------------------------|
;|                                                                 |
;|    Subroutine CHECKIT                                           |
;|                                                                 |
;|    checks for necessary latitudes.                              |
;|                                                                 |
;|-----------------------------------------------------------------|


pro checkit


@gia_var.inc

;dglat

startbin=0
itnum=0

for i=0,(ddimsizes(0)*ddimsizes(1)-1) do begin

   if startbin eq 0 then begin
      if (abs(dglat(i)) le 50.) and abs(dglat(i)) ge 20. then begin
	print,'Less Than'
	  tmin=dut(i)
	  startbin=1
      endif
   endif
   if startbin eq 1 then begin
      if (abs(dglat(i)) gt 50.) or abs(dglat(i)) lt 20. then begin
	print, 'Greater than'
	  tmax=dut(i)
	  itnum=itnum+1
	  fileplot  ;-------> Call Subroutine FILEPLOT
	  startbin=0
      endif
   endif 

endfor

end;-----------------------------------------------------------------------------------