Changeset 97 for trunk/src/interp_erai_dewt_1989_2009.pro

Timestamp:

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

Author:

pinsard

Message:

suppress blank lines trailing blank

File:

• trunk/src/interp_erai_dewt_1989_2009.pro (modified) (4 diffs)

trunk/src/interp_erai_dewt_1989_2009.pro

@@ -235 +235 @@
 initncdf, fullfilename
 domdef
-latin=reform(gphit(0,*)) 
+latin=reform(gphit(0,*))
 lonin=reform(glamt(*,0))
 print, 'lat grid ',min(latin),max(latin),latin(1)-latin(0)
 print, 'lon grid ',min(lonin),max(lonin),lonin(1)-lonin(0)
 d2min=read_ncdf("d2",19881201,20101231,file=fullfilename,/nostr)
-
+;
 timein=time
 jptin=jpt
 tab=d2min(*,*,0)
 mskin=glamt*0.+1.
-
+;
 initncdf, fullfilename_msk
 domdef
@@ -253 +253 @@
 print, 'lon grid ',min(lonout),max(lonout),lonout(1)-lonout(0)
 mskout=read_ncdf("msk", file=fullfilename_msk,/nostr)
-
+;
 help, d2min,lonin,latin,mskin,lonout,latout,mskout
-
+;
 si=size(d2min)
 d2mout=fltarr(jpi,jpj,jptin)
@@ -266 +266 @@
   d2mout(*,*,jt)=d2mout(*,*,jt)*mskout+(1.-mskout)*1.e20
 endfor
-
+;
 timein=timein
 jptin=jpt
-
+;
 initncdf, fullfilename_msk
 cda0=string(jul2date(timein(0)),format='(i8.8)')
 cda1=string(jul2date(timein(jpt-1)),format='(i8.8)')
-
-time=timegen(7670, units='days', start=julday(1,1,1989)) 
+;
+time=timegen(7670, units='days', start=julday(1,1,1989))
 jpt=n_elements(time)
 cda0=string(jul2date(time(0)),format='(i8.8)')
 cda1=string(jul2date(time(jpt-1)),format='(i8.8)')
 timein=time-julday(1,1,1950,00,00)
-
+;
 lat=latout
 lon=lonout
@@ -288 +288 @@
 d2m_attr={units:'degK',missing_value:1e20,long_name:'Dew Point Temperature at 2m',short_name:'d2m',axis:'TYX'}
 globattr={source:'Data are from ECMWF ERA-Interim reanalysis', timerange:cda0+' - '+cda1}
-
+;
 ncfields = 'd2m[longitude,latitude,time]=d2mout:d2m_attr; ' $
                       + 'longitude[]=lon:lon_attr; ' $
                       + 'latitude[]=lat:lat_attr; ' $
-                      + 'time[*time]=timein:time_attr ' $
+                      + 'time[*time]=timein:time_attr ' $
                       + ' @ globattr'
-
+;
 @ncdf_quickwrite
-
+;
 end