PRO make_phangs_grids,bidon

;make_phangs_grids.pro

;CAUTION: must launch nohup through ssh with no XY option ...

;====== srundir
;=== To be run on titan using something like this:

;srun -pn51 -J Pg06 -o {$phangs_srundir}/make_phangs_grids06.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 &

;ssh jbernard@localhost -p2223 "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_grids07.log

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

;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)

bidon=1

;make grid 

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

;make_sed_phangs_tables,grid_type=2,isrf_class=30    ;titan Pg30. Canceled. Class does not exist

;make_sed_phangs_tables,grid_type=2,isrf_class=29    ;titan Pg29

;make_sed_phangs_tables,grid_type=2,isrf_class=28    ;titan Pg28

;make_sed_phangs_tables,grid_type=2,isrf_class=27    ;titan Pg27

;make_sed_phangs_tables,grid_type=2,isrf_class=26    ;titan Pg26

;make_sed_phangs_tables,grid_type=2,isrf_class=25    ;titan Pg25

;make_sed_phangs_tables,grid_type=2,isrf_class=24   ;titan Pgrid
;make_sed_phangs_tables,grid_type=2,isrf_class=23   ;Mac

;make_sed_phangs_tables,grid_type=2,isrf_class=22
;make_sed_phangs_tables,grid_type=2,isrf_class=21
;make_sed_phangs_tables,grid_type=2,isrf_class=20
;make_sed_phangs_tables,grid_type=2,isrf_class=19

;make_sed_phangs_tables,grid_type=2,isrf_class=18

;make_sed_phangs_tables,grid_type=2,isrf_class=17

;make_sed_phangs_tables,grid_type=2,isrf_class=16

;make_sed_phangs_tables,grid_type=2,isrf_class=15

;make_sed_phangs_tables,grid_type=2,isrf_class=14

;make_sed_phangs_tables,grid_type=2,isrf_class=13

;make_sed_phangs_tables,grid_type=2,isrf_class=12

;make_sed_phangs_tables,grid_type=2,isrf_class=11

;make_sed_phangs_tables,grid_type=2,isrf_class=10

;make_sed_phangs_tables,grid_type=2,isrf_class=9

;make_sed_phangs_tables,grid_type=2,isrf_class=8

;make_sed_phangs_tables,grid_type=2,isrf_class=7

make_sed_phangs_tables,grid_type=2,isrf_class=5

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

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

;N=1.e9
;FOR i=0L,N-1 DO print,"hello world" & wait,3

!quiet=0

t1=systime(/sec)

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

message,'Job finished',/info

exit

END