PRO make_phangs_grids,bidon

;make_phangs_grids.pro
;====== srundir
;=== To be run on titan using something like this:
;srun -pn51 -J makeG -o {$phangs_srundir}/make_phangs_grids.log /home/soft/exelis/idl83/bin/idl {$phangs_srundir}/make_phangs_grids.pro &
;=== To be run on alma1 using something like this:

;nohup /usr/local/harris/idl87/bin/idl < {$phangs_srundir}/make_phangs_grids.pro >& {$phangs_srundir}/make_phangs_grids.log &

;=== check progress using:
;tail -20 {$phangs_srundir}/make_phangs_grids.log

;grep 'computing model' {$phangs_srundir}/make_phangs_grids.log | tail -20
;grep 'saved' {$phangs_srundir}/make_phangs_grids.log

;more {$phangs_srundir}/make_phangs_grids.log | grep "iteration "
;more {$phangs_srundir}/make_phangs_grids.log | grep "Will produce"

;This won't work, because it needs the Fortran to set files to the same area ...
;defsysv,'!DUSTEM_RES','/tmp/jbernard/Dustem_nohup'

t0=systime(/sec)

;make grid 

;make_sed_phangs_tables,/test,grid_type=2,/show_seds,isrf_class=15

;make_sed_phangs_tables,grid_type=2,isrf_class=15

;make_sed_phangs_tables,/test,/show_seds,grid_type=2,isrf_class=0
make_sed_phangs_tables,grid_type=2,isrf_class=0

t1=systime(/sec)

message,'It took '+strtrim((t1-t0)/60./60.,2)+' hrs',/info

message,'Job finished',/info

exit

END