Changeset 160 for trunk/MESOSCALE/PLOT/SPEC

Timestamp:

Jun 16, 2011, 11:48:42 AM (14 years ago)

Author:

aslmd

Message:

MESOSCALE: modifications to use a tweaked polar topography corresponding to paleo conditions. plus purely cosmetic changes.

Location:

trunk/MESOSCALE/PLOT/SPEC/MAP

Files:

• defs/MOLA_topo.map_uvt_inc.pro (added)
• defs/SHARAD_topo.map_uvt_inc.pro (added)
• map_uvt.pro (modified) (1 diff)

trunk/MESOSCALE/PLOT/SPEC/MAP/map_uvt.pro

@@ -20 +20 @@
    help, u
 endif
-getcdf, file=filename, charvar='XLONG', invar=longi
-getcdf, file=filename, charvar='XLAT', invar=lati
-getcdf, file=filename, charvar='HGT', invar=hgt
+if (n_elements(fieldscoord) eq 0) then begin
+ getcdf, file=filename, charvar='XLONG', invar=longi
+ getcdf, file=filename, charvar='XLAT', invar=lati
+ getcdf, file=filename, charvar='HGT', invar=hgt
+endif else begin
+ print, 'coordinates are ', fieldscoord
+ getcdf, file=filename, charvar=fieldscoord(0), invar=longi
+ getcdf, file=filename, charvar=fieldscoord(1), invar=lati
+ getcdf, file=filename, charvar=fieldscoord(2), invar=hgt
+endelse
+
 ;
 ;