Changeset 94 for trunk/src/paper01/fig11


Ignore:
Timestamp:
08/25/11 13:02:20 (13 years ago)
Author:
pinsard
Message:

get rid of multistatement lines

Location:
trunk/src/paper01/fig11
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/src/paper01/fig11/swr_isccp_tropflux_correlation_fig10.pro

    r85 r94  
    105105 
    106106openps, FILENAME = project_od_env+'correlation_rmsd_olra_swra_smooth.ps' 
    107 st=19890101 & en=20071231 
     107st=19890101  
     108en=20071231 
    108109 
    109110restore, project_od_env + "correlation_isccp_olr.idl" 
  • trunk/src/paper01/fig11/swr_isccp_tropflux_new_v1.pro

    r85 r94  
    104104 
    105105openps, FILENAME = project_od_env+'correlation_rmsd_olra_swra_smooth.ps' 
    106 st=19890101 & en=20071231 
     106st=19890101  
     107en=20071231 
    107108 
    108109file=project_od_env+'swr_oafluxgrid_1985_2007.nc' 
     
    132133nsmooth=45 
    133134 
    134 swi=[[[swi]],[[swi]],[[swi]]] & olri=[[[olri]],[[olri]],[[olri]]] 
    135 si=size(sw) & n1=si(1) & n2=si(2) 
     135swi=[[[swi]],[[swi]],[[swi]]]  
     136olri=[[[olri]],[[olri]],[[olri]]] 
     137si=size(sw)  
     138n1=si(1)  
     139n2=si(2) 
    136140 
    137141for j=0,n2-1 do begin 
     
    144148endfor 
    145149 
    146 swi=swi[*,*,365:365+364] & olri=olri[*,*,365:365+364] 
     150swi=swi[*,*,365:365+364]  
     151olri=olri[*,*,365:365+364] 
    147152help, swi, olri 
    148153 
    149154caldat, time,mon,day,yea 
    150 swm=olr*0. & olrm=olr*0. 
     155swm=olr*0.  
     156olrm=olr*0. 
    151157for jt=0,jpt-1 do begin 
    152158  jtt=(time(jt)-julday(1,1,yea(jt))) < 364 
     
    160166m=reform(sw_trop(*,*,0)) 
    161167tmask=finite(m) 
    162 cor_olr=fltarr(jpi,jpj)+!values.f_nan & rms_olr=fltarr(jpi,jpj)+!values.f_nan 
     168cor_olr=fltarr(jpi,jpj)+!values.f_nan  
     169rms_olr=fltarr(jpi,jpj)+!values.f_nan 
    163170 
    164171for jj=0,jpj-1 do begin 
     
    177184endfor 
    178185 
    179 cor=fltarr(jpi,jpj)+!values.f_nan & rms=fltarr(jpi,jpj)+!values.f_nan 
     186cor=fltarr(jpi,jpj)+!values.f_nan  
     187rms=fltarr(jpi,jpj)+!values.f_nan 
    180188for jj=1,jpj-2 do begin 
    181189  for ji=1,jpi-2 do begin 
     
    188196save, cor, cor_olr, filename=project_od_env + 'correlation_isccp_olr.idl' 
    189197 
    190 lct=64 & cs=0.9 
     198lct=64  
     199cs=0.9 
    191200marge1=[0,0,-5,0] 
    192201help, cor 
Note: See TracChangeset for help on using the changeset viewer.