Changeset 116 for trunk/procs/trends.pro

Timestamp:

06/12/08 11:58:18 (16 years ago)

Author:

kolasinski

Message:

Small changes in def_grid.pro (cdf option) and trends.pro (name of ascii file)

File:

• trunk/procs/trends.pro (modified) (1 diff)

trunk/procs/trends.pro

@@ -360 +360 @@
          scale = 1.
          get_lun, nuldat
-         filename = cmd_wrk.exp+'_'+cmd_wrk.date1+'_'+cmd_wrk.spec+'_'+cmd_wrk.plt+'.asc'
+         IF field.origin EQ 'div' THEN $
+          name_exp = strjoin(strsplit(cmd_wrk.exp, '/',  /EXTRACT), '-', /SINGLE) ELSE name_exp = cmd_wrk.exp 
+         filename = name_exp+'_'+ cmd_wrk.var+'_'+cmd_wrk.date1+'_'+cmd_wrk.spec+'_'+cmd_wrk.plt+'.asc'
          openw, nuldat, asciidir+filename
          print,  '     -> writing 1D data to ',  asciidir+filename