--- a/plot_correlation.pl	Wed Mar 16 08:25:32 2016 -0400
+++ b/plot_correlation.pl	Thu Mar 17 07:50:24 2016 -0400
@@ -1,14 +1,15 @@
 #======================================================================
 #                    P L O T _ C O R R E L A T I O N . P L 
 #                    doc: Tue Jul 28 13:21:09 2015
-#                    dlm: Tue Jan 26 20:46:18 2016
+#                    dlm: Wed Mar 16 16:26:09 2016
 #                    (c) 2015 A.M. Thurnherr
-#                    uE-Info: 19 31 NIL 0 0 72 0 2 4 NIL ofnI
+#                    uE-Info: 67 37 NIL 0 0 72 0 2 4 NIL ofnI
 #======================================================================
 
 # HISTORY:
 #	Jul 28, 2015: - created from [LWplot_corr]
 #   Jan 26, 2016: - added return on no data to plot
+#   Mar 16, 2016: - adapted to gmt5
 
 require "$ANTS/libGMT.pl";
 
@@ -53,8 +54,8 @@
 	}
 
 	GMT_unitcoords();																	# LABELS
-	GMT_pstext(-Gblue);
-		print(GMT "0.02 0.98 12 0 0 BL $P{out_basename} $P{run_label}\n");
+	GMT_pstext('-F+f14,Helvetica,blue+jTL -N');
+		print(GMT "0.01 -0.06 $P{out_basename} $P{run_label}\n");
 
 	my($depth_tics) = ($ymax < 1000 ) ? 'f10a100' : 'f100a500';							# AXES
 	my($ens_tics) =   ($ymax < 1000 ) ? 'f50a500' : 'f500a2000';
@@ -62,7 +63,8 @@
 	GMT_psbasemap("-B$ens_tics:'Ensemble [#]':/$depth_tics:'Depth [m]':WeSn");
 		 
 	GMT_setAnnotFontSize(7);															# SCALE BAR
-	GMT_psscale("-E -D8/2/3/0.4 $C -B/:corr:");
+#	GMT_psscale("-E -D8/2/3/0.4 $C -B/:corr:");
+	GMT_psscale("-Dn0.85/0.1+w3/0.4+e $C -B/:corr:");
 
 	GMT_end();																			# FINISH PLOT
 }