PRO CREATE_AWIPS_CI_PRODUCTS, INFILE1, INFILE2, INFILE3, IN_DIR1, IN_DIR2, IN_DIR3, OUT_DIR, P_TYPE

;----->Variables
limit = [17.00, -131.00, 52.00, -64.00]                              ;; The lat and lon limits to display image in AWIPS
	 
input_data0 = READ_CI_CTC(infile1,infile2,ifile3,in_dir1,in_dir2,in_dir3)
input_data1 = input_data0.data1
input_data2 = input_data0.data2
input_data3 = input_data0.data3
ss = SIZE(input_data1.lat) 
nx = ss[1] & ny = ss[2]

IF (p_type EQ 2) THEN WRITE_MCIDASV_NETCDF, input_data, out_dir       ;; print, McIDAS-V netCDF	

IF (p_type EQ 1) THEN BEGIN
  rrin1 = REMAP_ACCUM_DATA(input_data1,limit)                                ;; Remap to fit AWIPS projection
  rin1 = RESIZE_CI_ACCUM_DATA(rrin1, nx, ny)  	       		             ;; shrink or enlarge image to original size.
  rrin2 = REMAP_INDIV_DATA(input_data2,limit)                                ;; Remap to fit AWIPS projection
  rin2 = RESIZE_CI_INDIV_DATA(rrin2, nx, ny)  	       		             ;; shrink or enlarge image to original size.
  rrin3 = REMAP_OVERSHOOT_DATA(input_data3,limit)                            ;; Remap to fit AWIPS projection
  rin3 = RESIZE_OVERSHOOT_DATA(rrin3, nx, ny)  	       		             ;; shrink or enlarge image to original size.
  adate = input_data0.adate & atime = input_data0.atime
  WRITE_AWIPS_NETCDF, rin1, rin2, rin3, limit, out_dir, adate, atime              ;; write output for AWIPS display
ENDIF
    
PRINT, 'AWIPS netCDF files for '+input_data0.adate+'_'+input_data0.atime+ ' is DONE'
	
END