pro mkplots

;
  dir_nc = '/glade/scratch/foster/fwx.edyn.cam5342/run'
  dir_ps = '/glade/scratch/foster/fwx.edyn.cam5342/run'

; dir_nc = '/glade/scratch/foster/fwx.edyn.cam5342/run/use_time3d_waccm'
; dir_ps = '/glade/scratch/foster/fwx.edyn.cam5342/run/use_time3d_waccm'

; -----------------------------------------------------------------------------------------------
; From sub prep_time3d_output:
;
; dir_nc = '/glade/scratch/foster/fwx.edyn.cam5342/run'
; dir_ps = '/glade/scratch/foster/fwx.edyn.cam5342/run'

; file   = dir_nc + '/Begin_prep_time3d_out.nc'
; psfile = dir_ps + '/Begin_prep_time3d_out.ps'
; plotdata,file,psfile

; file   = dir_nc + '/End_prep_time3d_out.nc'
; psfile = dir_ps + '/End_prep_time3d_out.ps'
; plotdata,file,psfile

; file   = dir_nc + '/t3d_prep_time3d_out.nc'
; psfile = dir_ps + '/t3d_prep_time3d_out.ps'
; plotdata,file,psfile

; file   = dir_nc + '/waccm_prep_time3d_out.nc'
; psfile = dir_ps + '/waccm_prep_time3d_out.ps'
; plotdata,file,psfile

; file   = dir_nc + '/t3d_ikj_prep_time3d_out.nc'
; psfile = dir_ps + '/t3d_ikj_prep_time3d_out.ps'
; plotdata,file,psfile

; file   = dir_nc + '/t3d_jik_prep_time3d_out.nc'
; psfile = dir_ps + '/t3d_jik_prep_time3d_out.ps'
; plotdata,file,psfile

; file   = dir_nc + '/waccm_ijt3dk_prep_time3d_out.nc'
; psfile = dir_ps + '/waccm_ijt3dk_prep_time3d_out.ps'
; plotdata,file,psfile

; file   = dir_nc + '/waccm_ijk_prep_time3d_out.nc'
; psfile = dir_ps + '/waccm_ijk_prep_time3d_out.ps'
; plotdata,file,psfile

; -----------------------------------------------------------------------------------------------
; For use_time3d_gcmsim=.true.:

; dir_nc = '/glade/scratch/foster/fwx.edyn.cam5342/run/time3d_gcmsim_input'
; dir_ps = '/glade/scratch/foster/fwx.edyn.cam5342/run/time3d_gcmsim_input'

; dir_nc = '/glade/scratch/foster/fwx.edyn.cam5342/run/time3d_gcmsim_input_op'
; dir_ps = '/glade/scratch/foster/fwx.edyn.cam5342/run/time3d_gcmsim_input_op'

; dir_nc = '/glade/scratch/foster/fwx.edyn.cam5342/run'
; dir_ps = '/glade/scratch/foster/fwx.edyn.cam5342/run'

; dir_nc = '/glade/scratch/foster/fwx.edyn.cam5342/run/time3d_waccm_output'
; dir_ps = '/glade/scratch/foster/fwx.edyn.cam5342/run/time3d_waccm_output'

; file   = dir_nc + '/time3d2gcm_nlev.nc'
; psfile = dir_ps + '/time3d2gcm_nlev.ps'
; plotdata,file,psfile

; file   = dir_nc + '/time3d2gcm_NLi.nc'
; psfile = dir_ps + '/time3d2gcm_NLi.ps'
; plotdata,file,psfile

; file   = dir_nc + '/time3d_edyn_maginput.nc'
; psfile = dir_ps + '/time3d_edyn_maginput.ps'
; plotdata,file,psfile

; file   = dir_nc + '/time3d_gcmsim_input.nc'
; psfile = dir_ps + '/time3d_gcmsim_input.ps'
; plotdata,file,psfile

; file   = dir_nc + '/time3d_gcmsim_output.nc'
; psfile = dir_ps + '/time3d_gcmsim_output.ps'
; plotdata,file,psfile

; file   = dir_nc + '/time3d_gcmsim_magoutput.nc'
; psfile = dir_ps + '/time3d_gcmsim_magoutput.ps'
; plotdata,file,psfile

; file   = dir_nc + '/time3d_out_2waccm.nc'
; psfile = dir_ps + '/time3d_out_2waccm.ps'
; plotdata,file,psfile

; -----------------------------------------------------------------------------------------------
; For use_time3d_gcmsim=.false.:

; dir_nc = '/glade/scratch/foster/fwx.edyn.cam5342/run/time3d_waccm_input'
; dir_ps = '/glade/scratch/foster/fwx.edyn.cam5342/run/time3d_waccm_input'

; dir_nc = '/glade/scratch/foster/fwx.edyn.cam5342/run/time3d_waccm_input_op'
; dir_ps = '/glade/scratch/foster/fwx.edyn.cam5342/run/time3d_waccm_input_op'

; dir_nc = '/glade/scratch/foster/fwx.edyn.cam5342/run'
; dir_ps = '/glade/scratch/foster/fwx.edyn.cam5342/run'

; file   = dir_nc + '/Begin_prep_time3d_input.nc'
; psfile = dir_ps + '/Begin_prep_time3d_input.ps'
; plotdata,file,psfile

; file   = dir_nc + '/End_prep_time3d_input.nc'
; psfile = dir_ps + '/End_prep_time3d_input.ps'
; plotdata,file,psfile

; file   = dir_nc + '/time3d_edyn_maginput.nc'
; psfile = dir_ps + '/time3d_edyn_maginput.ps'
; plotdata,file,psfile

; file   = dir_nc + '/waccm_prep_time3d_input.nc'
; psfile = dir_ps + '/waccm_prep_time3d_input.ps'
; plotdata,file,psfile

; file   = dir_nc + '/time3d_waccm_interp.nc'
; psfile = dir_ps + '/time3d_waccm_interp.ps'
; plotdata,file,psfile

; file   = dir_nc + '/time3d_waccm_input.nc'
; psfile = dir_ps + '/time3d_waccm_input.ps'
; plotdata,file,psfile

; file   = dir_nc + '/time3d_waccm_output.nc'
; psfile = dir_ps + '/time3d_waccm_output.ps'
; plotdata,file,psfile

; file   = dir_nc + '/time3d_waccm_magoutput.nc'
; psfile = dir_ps + '/time3d_waccm_magoutput.ps'
; plotdata,file,psfile

; file   = dir_nc + '/time3d2gcm_nlev.nc'
; psfile = dir_ps + '/time3d2gcm_nlev.ps'
; plotdata,file,psfile

; file   = dir_nc + '/time3d2gcm_NLi.nc'
; psfile = dir_ps + '/time3d2gcm_NLi.ps'
; plotdata,file,psfile

; file   = dir_nc + '/time3d_out_2waccm.nc'
; psfile = dir_ps + '/time3d_out_2waccm.ps'
; plotdata,file,psfile

; -----------------------------------------------------------------------------------------------

; dir_nc = '/glade/scratch/foster/fwx.edyn.cam5342/run/edynamo_integ'
; dir_ps = '/glade/scratch/foster/fwx.edyn.cam5342/run/edynamo_integ'
; dir_nc = '/glade/scratch/foster/fwx.edyn.cam5342/run/edynamo_integ'
; dir_ps = '/glade/scratch/foster/fwx.edyn.cam5342/run/edynamo_integ'

; file   = dir_nc + '/time3d_edyn_maginput.nc'
; psfile = dir_ps + '/time3d_edyn_maginput.ps'
; plotdata,file,psfile

; file   = dir_nc + '/time3d_waccm_interp.nc'
; psfile = dir_ps + '/time3d_waccm_interp.ps'
; plotdata,file,psfile

; file   = dir_nc + '/time3d_waccm_input.nc'
; psfile = dir_ps + '/time3d_waccm_input.ps'
; plotdata,file,psfile

; file   = dir_nc + '/time3d_waccm_output.nc'
; psfile = dir_ps + '/time3d_waccm_output.ps'
; plotdata,file,psfile

; file   = dir_nc + '/time3d_waccm_magoutput.nc'
; psfile = dir_ps + '/time3d_waccm_magoutput.ps'
; plotdata,file,psfile

; -----------------------------------------------------------------------------------------------

end