make_phangs_grids.pro
2.99 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
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 Pg02 -o {$phangs_srundir}/make_phangs_grids02.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_grids25.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_grids19.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=25 ;alma1
;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 ;on alma1
;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,grid_type=2,isrf_class=4 ;titan
;make_sed_phangs_tables,grid_type=2,isrf_class=3 ;titan
make_sed_phangs_tables,grid_type=2,isrf_class=2 ;titan
;make_sed_phangs_tables,grid_type=2,isrf_class=1 ;titan
;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