Changeset 97 for trunk/src/paper01/fig10/fig10_swr_correction.pro

Timestamp:

08/30/11 14:38:29 (13 years ago)

Author:

pinsard

Message:

suppress blank lines trailing blank

File:

• trunk/src/paper01/fig10/fig10_swr_correction.pro (modified) (3 diffs)

trunk/src/paper01/fig10/fig10_swr_correction.pro

@@ -83 +83 @@
 reinitplt, /z,/invert
 key_portrait = 1
-
+;
 openps, FILENAME = project_od_env+'fig10_swr_correction.ps'
 close,/all
-
+;
 fi=project_id_env+'swr_isccp_correction.txt'
 res=read_ascii(fi,data_start=0)
@@ -94 +94 @@
 std=reform(ff(2,*))
 mean=reform(ff(4,*))
-
-
+;
+;
 splot, mean, bias, small=[2,3,1], xtitle='Mean ERA-I SWR', ytitle='ERA-I SWR bias', $
        title='', psym=2, charsize=1.2,  $
        xrange=[170,290], yrange=[-10,35], xmin=1, ymin=1
-
+;
 ab=linfit(mean, bias,yfit=yfit)
-a=float(ab(0)) 
+a=float(ab(0))
 b=float(ab(1))
 oplot, mean, yfit, thick=3
 print, a,b
-;; significant test
+; significant test
 significance_test_99,mean,bias
-
+;
 fi=project_id_env+'swr_isccp_correction.txt'
 res=read_ascii(fi,data_start=0)
@@ -115 +115 @@
 std=reform(ff(2,*))
 mean=reform(ff(4,*))
-
+;
 splot, mean, std, small=[2,3,3],/noer, xtitle='Mean ERA-I SWR', ytitle='ERA-I std ratio', $
        title='', psym=2, charsize=1.2,  $
        xrange=[170,290], yrange=[0.4,1.4], xmin=1, ymin=1
-
+;
 ab=linfit(mean, std,yfit=yfit)
-a=float(ab(0)) 
+a=float(ab(0))
 b=float(ab(1))
 oplot, mean, yfit, thick=3
-
-;; significant test
+;
+; significant test
 significance_test_99,mean,std
-
+;
 closeps
-
-
+;
 end