Changeset 97 for trunk/src/paper01/fig2/read_lw.pro

Timestamp:

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

Author:

pinsard

Message:

suppress blank lines trailing blank

File:

• trunk/src/paper01/fig2/read_lw.pro (modified) (4 diffs)

trunk/src/paper01/fig2/read_lw.pro

@@ -76 +76 @@
 ;
 @cm_project
-
-;; DEFINE THE OUTPUT TIME AXIS
+;
+; DEFINE THE OUTPUT TIME AXIS
 ;
 jda1=date2jul(date1)
@@ -83 +83 @@
 jpt=(jda2-jda1+1l)
 time=jda1+dindgen(jpt)
-
 ;
-;; FIRST READ ALL DATA FROM SITE
-;;   - if file exists, extract correct time axis
-;;   - if not, fill variable with missing values
 ;
-
-;; LWR
+; FIRST READ ALL DATA FROM SITE
+;   - if file exists, extract correct time axis
+;   - if not, fill variable with missing values
+;
+;
+; LWR
 fi=project_id_env+'lwnet'+csite+'_dy.cdf'
 f=file_test(fi)
@@ -105 +105 @@
   print, fi, ' not found'
 endelse
-
-
 ;
-;; Replace missing values by "NaN"
+;
+;
+; Replace missing values by "NaN"
 ;
 ;tsvars=['at','bf','bp','dyn','emp','evap','heat','iso','lw','lwnet','qlat','qsen','sw', $
@@ -114 +114 @@
 ;depvars=['u','v','d','t','s']
 vars=['lw']
-
+;
 nn=n_elements(vars)
 for n=0,nn-1 do begin
   var=vars(n)
-  com='ind=where('+var+' ge 1.e20) 
+  com='ind=where('+var+' ge 1.e20)
   if (ind(0) ne -1) then '+var+'(ind)=!values.f_nan'
   r=execute(com)
 endfor
-
+;
 ;++nsmooth=nsmooth
 ;++lw=smooth(lw,nsmooth,/nan)
-
+;
 end