Changeset 43 for trunk/src/paper01/fig2


Ignore:
Timestamp:
04/11/11 18:05:51 (13 years ago)
Author:
pinsard
Message:

add minimal header in paper01 IDL files

Location:
trunk/src/paper01/fig2
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • trunk/src/paper01/fig2/fig2_timeline_diagram.pro

    r41 r43  
     1;+ 
     2; .. _fig2_timeline_diagram.pro: 
     3; 
     4; ========================= 
     5; fig2_timeline_diagram.pro 
     6; ========================= 
     7; 
     8; DESCRIPTION 
     9; =========== 
     10; 
     11; SEE ALSO 
     12; ======== 
     13; 
     14; :ref:`tropflux_profile.sh` 
     15; 
     16; EXAMPLES 
     17; ======== 
     18; 
     19; :: 
     20; 
     21;  IDL> @tropflux_init 
     22;  IDL> fig2_timeline_diagram 
     23; 
     24; EVOLUTIONS 
     25; ========== 
     26; 
     27; $Id$ 
     28; 
     29; - fplod 20110411T142955Z aedon.locean-ipsl.upmc.fr (Darwin) 
     30; 
     31;   * minimal header 
     32; 
     33;- 
    134pro fig2_timeline_diagram 
    235@common 
    … …  
    115148    lwr=lw & ind=where(finite(lwr)) & valid=n_elements(ind) 
    116149    if (valid ge 10) then begin 
    117      
     150 
    118151       ind=where(finite(lw)) &  lw(ind)=1. 
    119152       ind=where(finite(lw,/nan)) & lw(ind)=0. 
    … …  
    180213return,float(y) 
    181214end 
    182  
    183  
    184  

  • trunk/src/paper01/fig2/read_lh.pro

    r41 r43  
    1 ;------------------------------------------------------------------------------------------------- 
    2 pro read_lh, csite,date1,date2,nsmooth, $ 
    3                       lh 
    4  
     1;+ 
     2; .. _read_lh.pro 
    53; 
    6 ;------------------------------------------------------------------------------------------------- 
     4; =========== 
     5; read_lh.pro 
     6; =========== 
     7; 
     8; DESCRIPTION 
     9; =========== 
     10; 
     11; SEE ALSO 
     12; ======== 
     13; 
     14; :ref:`tropflux_profile.sh` 
     15; 
     16; EXAMPLES 
     17; ======== 
     18; 
     19; :: 
     20; 
     21;  IDL> @tropflux_init 
     22;  IDL> csite=++ 
     23;  IDL> ++ 
     24;  IDL> read_lh, csite, date1, date2, nsmooth, lh 
     25; 
     26; EVOLUTIONS 
     27; ========== 
     28; 
     29; $Id$ 
     30; 
     31; - fplod 20110411T142955Z aedon.locean-ipsl.upmc.fr (Darwin) 
     32; 
     33;   * minimal header 
     34; 
     35;- 
     36pro read_lh, csite, date1, date2, nsmooth, lh 
     37; 
    738@common 
    839 
    … …  
    4980;; Replace missing values by "NaN" 
    5081; 
    51 tsvars=['lh']  
     82tsvars=['lh'] 
    5283vars=[tsvars] 
    5384nn=n_elements(vars) 
    … …  
    5990 
    6091nsmooth=nsmooth 
    61 lh=smooth(lh,nsmooth,/nan)  
     92lh=smooth(lh,nsmooth,/nan) 
    6293 
    63 ;------------------------------------------------------------------------------------------------- 
    6494end 
    65 ;------------------------------------------------------------------------------------------------- 
    6695 
    6796 
    68 ;------------------------------------------------------------------------------------------------- 
    6997function time_lec, fi 
    7098tt=ncdf_lec(fi,var='time') 
    … …  
    78106return, tt 
    79107end 
    80  
    81 ;------------------------------------------------------------------------------------------------- 

  • trunk/src/paper01/fig2/read_lw.pro

    r41 r43  
    1 ;------------------------------------------------------------------------------------------------- 
    2 pro read_lw, csite,date1,date2,box, $ 
    3                         lw 
     1;+ 
     2; .. _read_lw.pro 
    43; 
    5 ;------------------------------------------------------------------------------------------------- 
     4; =========== 
     5; read_lw.pro 
     6; =========== 
     7; 
     8; DESCRIPTION 
     9; =========== 
     10; 
     11; SEE ALSO 
     12; ======== 
     13; 
     14; :ref:`tropflux_profile.sh` 
     15; 
     16; EXAMPLES 
     17; ======== 
     18; 
     19; :: 
     20; 
     21;  IDL> @tropflux_init 
     22;  IDL> csite=++ 
     23;  IDL> ++ 
     24;  IDL> read_lw, csite, date1, date2, box, lw 
     25; 
     26; EVOLUTIONS 
     27; ========== 
     28; 
     29; $Id$ 
     30; 
     31; - fplod 20110411T142955Z aedon.locean-ipsl.upmc.fr (Darwin) 
     32; 
     33;   * minimal header 
     34; 
     35;- 
     36pro read_lw, csite, date1, date2, box, lw 
     37; 
    638@common 
    739 
    … …  
    4072; 
    4173;tsvars=['at','bf','bp','dyn','emp','evap','heat','iso','lw','lwnet','qlat','qsen','sw', $ 
    42 ;        'swnet','rain','rf','rh','ssd','sss','sst','swnet','tx','ty','wu','wv','ws','lat','lon']  
     74;        'swnet','rain','rf','rh','ssd','sss','sst','swnet','tx','ty','wu','wv','ws','lat','lon'] 
    4375;depvars=['u','v','d','t','s'] 
    4476vars=['lw'] 
    … …  
    5486lw=smooth(lw,nsmooth,/nan) 
    5587 
    56 ;------------------------------------------------------------------------------------------------- 
    5788end 
    58 ;------------------------------------------------------------------------------------------------- 
    5989 
    6090 
    61 ;------------------------------------------------------------------------------------------------- 
    6291function time_lec, fi 
    6392tt=ncdf_lec(fi,var='time') 
    … …  
    71100return, tt 
    72101end 
    73 ;------------------------------------------------------------------------------------------------- 

  • trunk/src/paper01/fig2/read_sw.pro

    r41 r43  
    1 ;------------------------------------------------------------------------------------------------- 
    2 pro read_sw, csite,date1,date2,box, $ 
    3                         sw 
     1;+ 
     2; .. _read_sw.pro 
    43; 
    5 ;------------------------------------------------------------------------------------------------- 
     4; =========== 
     5; read_sw.pro 
     6; =========== 
     7; 
     8; DESCRIPTION 
     9; =========== 
     10; 
     11; SEE ALSO 
     12; ======== 
     13; 
     14; :ref:`tropflux_profile.sh` 
     15; 
     16; EXAMPLES 
     17; ======== 
     18; 
     19; :: 
     20; 
     21;  IDL> @tropflux_init 
     22;  IDL> csite=++ 
     23;  IDL> ++ 
     24;  IDL> read_sw, csite, date1, date2, box, sw 
     25; 
     26; EVOLUTIONS 
     27; ========== 
     28; 
     29; $Id$ 
     30; 
     31; - fplod 20110411T142955Z aedon.locean-ipsl.upmc.fr (Darwin) 
     32; 
     33;   * minimal header 
     34; 
     35;- 
     36pro read_sw, csite, date1, date2, box, sw 
     37; 
    638@common 
    739 
    … …  
    4880; 
    4981;tsvars=['at','bf','bp','dyn','emp','evap','heat','iso','sw','swnet','qlat','qsen','sw', $ 
    50 ;        'swnet','rain','rf','rh','ssd','sss','sst','swnet','tx','ty','wu','wv','ws','lat','lon']  
     82;        'swnet','rain','rf','rh','ssd','sss','sst','swnet','tx','ty','wu','wv','ws','lat','lon'] 
    5183;depvars=['u','v','d','t','s'] 
    5284vars=['sw'] 
    … …  
    6395sw=smooth(sw,nsmooth,/nan) 
    6496 
    65 ;------------------------------------------------------------------------------------------------- 
    6697 
    6798 
    68 ;------------------------------------------------------------------------------------------------- 
    6999function time_lec, fi 
    70100tt=ncdf_lec(fi,var='time') 
    … …  
    78108return, tt 
    79109end 
    80 ;------------------------------------------------------------------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.