Changeset 203 for trunk/src/flux_evaluation_tpr_timeseries.pro

Timestamp:

02/11/14 18:41:24 (10 years ago)

Author:

pinsard

Message:

fix thanks to coding rules

File:

• trunk/src/flux_evaluation_tpr_timeseries.pro (modified) (2 diffs)

trunk/src/flux_evaluation_tpr_timeseries.pro

@@ -25 +25 @@
 ; ========
 ;
-; ::
+; .. code-block:: idl
 ;
-;   date1 = 20000101L
-;   date2 = 20091231L
-;   flux_evaluation_tpr_timeseries, date1, date2
+;    date1 = 20000101L
+;    date2 = 20091231L
+;    flux_evaluation_tpr_timeseries, date1, date2
 ;
 ; EVOLUTIONS
@@ -131 +131 @@
 
 
-           extract_tpr_location,var,box, $
-                var_tpr
-           var_tpr=reform(var_tpr)
+       extract_tpr_location,var,box, $
+       var_tpr
+       var_tpr=reform(var_tpr)
 
-           stats_5d, tpr,var_tpr, $  ;; tpr=TPR observation and var_tpr=gridded product extracted at TPR location
-              cor, bias, std, rmsd
+       stats_5d, tpr,var_tpr, $  ;; tpr=TPR observation and var_tpr=gridded product extracted at TPR location
+       cor, bias, std, rmsd
 
-           printf, 1, x, y, cor, bias, std, rmsd, format='(f6.2, 3x, f6.2, 3x, f4.2, 3x, f7.2, 3x, f4.2, 3x, f5.2)'
-           cstat=string(cor, bias, std, rmsd, format='(f4.2,3x,f7.2,3x,f4.2,3x,f5.2)')
-           print, cstat
+       printf, 1, x, y, cor, bias, std, rmsd, format='(f6.2, 3x, f6.2, 3x, f4.2, 3x, f7.2, 3x, f4.2, 3x, f5.2)'
+       cstat=string(cor, bias, std, rmsd, format='(f4.2,3x,f7.2,3x,f4.2,3x,f5.2)')
+       print, cstat
 
-;;         PLOTTING THE TIME-SERIES
-           array=[tpr, var_tpr] & mi=min(array,/nan) & ma=max(array,/nan) & int=(ma-mi)/3.
-           pltt, ts_smooth(tpr,5,/nan), "t",/rempl, small=[1,3,1], lct=65, $
-                 title='Five day stats are shown below.  TPR (black) and Product (red) at'+csite+' ', charsize=1., $
-                 subtitle=cstat
-           ind=where(finite(tpr,/nan)) & var_tpr(ind)=!Values.f_nan
-           pltt, ts_smooth(var_tpr,5,/nan), "t",/ov1d, color=250
-           erase
-           mooring=[mooring,tpr] & product=[product,var_tpr]
+;;     PLOTTING THE TIME-SERIES
+       array=[tpr, var_tpr] & mi=min(array,/nan) & ma=max(array,/nan) & int=(ma-mi)/3.
+       pltt, ts_smooth(tpr,5,/nan), "t",/rempl, small=[1,3,1], lct=65, $
+       title='Five day stats are shown below.  TPR (black) and Product (red) at'+csite+' ', charsize=1., $
+       subtitle=cstat
+       ind=where(finite(tpr,/nan)) & var_tpr(ind)=!Values.f_nan
+       pltt, ts_smooth(var_tpr,5,/nan), "t",/ov1d, color=250
+       erase
+       mooring=[mooring,tpr] & product=[product,var_tpr]
     endif
 endfor