Changeset 43 for trunk/src/paper01/fig14


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/fig14
Files:
7 edited

Legend:

Unmodified
Added
Removed
  • trunk/src/paper01/fig14/as_validation_net_1994_95_v10.pro

    r41 r43  
     1;+ 
     2; .. _as_validation_net_1994_95_v10.pro 
     3; 
     4; ================================= 
     5; as_validation_net_1994_95_v10.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> as_validation_net_1994_95_v10 
     23; 
     24; 
     25; EVOLUTIONS 
     26; ========== 
     27; 
     28; $Id$ 
     29; 
     30; - fplod 20110411T142955Z aedon.locean-ipsl.upmc.fr (Darwin) 
     31; 
     32;   * minimal header 
     33; 
     34;- 
    135pro as_validation_net_1994_95_v10 
    236@common 
    3 ;------------------------------------------------------------ 
    437reinitplt, /z,/invert 
    538key_portrait = 1 
     
    740 
    841openps, FILENAME = 'idl.ps' 
    9 ;------------------------------------------------------------ 
    1042; partie a changer 
    11 ;------------------------------------------------------------ 
    1243asbox=[61,62,15,16] 
    1344date1=19941016 & date2=19951019 
     
    71102file="/Users/pkb/data/TropFlux/TropFlux_swr_19890101_20091231_NRT_v50.nc" 
    72103initncdf, file 
    73 olr1=read_ncdf("sw", date1-1, date2, file=file,/nostr, box=asbox) ;; & olr1=grossemoyenne(olr1, "xy",/nan, box=asbox) &  
     104olr1=read_ncdf("sw", date1-1, date2, file=file,/nostr, box=asbox) ;; & olr1=grossemoyenne(olr1, "xy",/nan, box=asbox) & 
    74105olr1=reform(olr1) 
    75106 
     
    140171nce1=nce1(ind) 
    141172help, nce1 
    142 ;------------------------------------------------------------ 
    143173;ind=where(finite(net)) 
    144174;net=net(ind) & era=era(ind) & trop=trop(ind) & oaf=oaf(ind) & nce1=nce1(ind) & nce2=nce2(ind) 
     
    175205cstat_olr=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    176206 
    177 ;------------------------------------------------------------ 
    178207splot, net, era, charsize=1.1, title='Net Flux - AS Vs ERAI', $ 
    179208     xrange=[-200,200], yrange=[-200,200], small=[2,3,1], psym=2, xmin=1, ymin=1 
     
    207236 
    208237stop 
    209 ;------------------------------------------------------------ 
    210238closeps 
    211239fig='as_validation_net_1994_95_v10.ps' 
    212240spawn, 'mv '+psdir+'idl.ps '+cpsdir+fig 
    213241spawn, 'gv '+cpsdir+fig 
    214 ;------------------------------------------------------------ 
    215242return 
    216243end 
    217  
  • trunk/src/paper01/fig14/coare_validation_net_1992_93_all_v10.pro

    r41 r43  
     1;+ 
     2; .. _coare_validation_net_1992_93_all_v10.pro: 
     3; 
     4; ======================================== 
     5; coare_validation_net_1992_93_all_v10.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> coare_validation_net_1992_93_all_v10 
     23; 
     24; EVOLUTIONS 
     25; ========== 
     26; 
     27; $Id$ 
     28; 
     29; - fplod 20110411T142955Z aedon.locean-ipsl.upmc.fr (Darwin) 
     30; 
     31;   * minimal header 
     32; 
     33;- 
    134pro coare_validation_net_1992_93_all_v10 
    235@common 
    3 ;------------------------------------------------------------ 
    436reinitplt, /z,/invert 
    537key_portrait = 1 
     
    739 
    840openps, FILENAME = 'idl.ps' 
    9 ;------------------------------------------------------------ 
    1041; partie a changer 
    11 ;------------------------------------------------------------ 
    1242 
    1343box=[155.5, 156.5, -2, -1] 
     
    143173shf4=read_ncdf('shf',st4,en4,file=file,/nostr, box=box) & shf4=grossemoyenne(shf4, "xy",/nan, box=box) & shf4=reform(shf4) 
    144174 
    145 net1=swr1+lwr1+lhf1+shf1 & net2=swr2+lwr2+lhf2+shf2  
     175net1=swr1+lwr1+lhf1+shf1 & net2=swr2+lwr2+lhf2+shf2 
    146176net3=swr3+lwr3+lhf3+shf3 & net4=swr4+lwr4+lhf4+shf4 
    147177 
     
    278308 
    279309help, net, era, trop, oaf, nce1, nce2, olr 
    280 ;------------------------------------------------------------ 
    281310 
    282311statistics, net, era, $ 
     
    310339cstat_olr=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    311340 
    312 ;------------------------------------------------------------ 
    313341 
    314342splot, net, era, charsize=1.1, title='Net Flux - COARE Vs ERAI', $ 
     
    343371 
    344372stop 
    345 ;------------------------------------------------------------ 
    346373closeps 
    347374fig="coare_validation_net_1992_93_all_v11.ps" 
    348375spawn, 'mv '+psdir+'idl.ps '+cpsdir+fig 
    349376spawn, 'gv '+cpsdir+fig 
    350 ;------------------------------------------------------------ 
    351377return 
    352378end 
    353  
  • trunk/src/paper01/fig14/stratus_validation_net_2001_2002_all_v10.pro

    r41 r43  
     1;+ 
     2; .. _stratus_validation_net_2001_2002_all_v10.pro 
     3; 
     4; ============================================ 
     5; stratus_validation_net_2001_2002_all_v10.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> stratus_validation_net_2001_2002_all_v10 
     23; 
     24; EVOLUTIONS 
     25; ========== 
     26; 
     27; $Id$ 
     28; 
     29; - fplod 20110411T142955Z aedon.locean-ipsl.upmc.fr (Darwin) 
     30; 
     31;   * minimal header 
     32; 
     33;- 
    134pro stratus_validation_net_2001_2002_all_v10 
    235@common 
    3 ;------------------------------------------------------------ 
    436reinitplt, /z,/invert 
    537key_portrait = 1 
     
    739 
    840openps, FILENAME = 'idl.ps' 
    9 ;------------------------------------------------------------ 
    1041; partie a changer 
    11 ;------------------------------------------------------------ 
    1242 
    1343;; stratus in the south pacific cold tongue 2000-01 
     
    122152net=net(ind) & era=era(ind) & trop=trop(ind) & oaf=oaf(ind) & nce2=nce2(ind) & nce1=nce1(ind) 
    123153olr=olr(ind) 
    124 ;------------------------------------------------------------ 
    125154 
    126155statistics, net, era, $ 
     
    154183cstat_olr=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    155184 
    156 ;------------------------------------------------------------ 
    157185 
    158186splot, net, era, charsize=1.1, title='SWR - Stratus Vs ERAI', $ 
     
    187215 
    188216stop 
    189 ;------------------------------------------------------------ 
    190217closeps 
    191218fig="stratus_validation_net_2001_2002_all_v11.ps" 
    192219spawn, 'mv '+psdir+'idl.ps '+cpsdir+fig 
    193220spawn, 'gv '+cpsdir+fig 
    194 ;------------------------------------------------------------ 
    195221return 
    196222end 
    197  
  • trunk/src/paper01/fig14/subdctn_cs_validation_net_1991_93_all_v10.pro

    r41 r43  
     1;+ 
     2; .. _subdctn_cs_validation_net_1991_93_all_v10.pro 
     3; 
     4; ============================================= 
     5; subdctn_cs_validation_net_1991_93_all_v10.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> subdctn_cs_validation_net_1991_93_all_v10 
     23; 
     24; EVOLUTIONS 
     25; ========== 
     26; 
     27; $Id$ 
     28; 
     29; - fplod 20110411T142955Z aedon.locean-ipsl.upmc.fr (Darwin) 
     30; 
     31;   * minimal header 
     32; 
     33;- 
    134pro subdctn_cs_validation_net_1991_93_all_v10 
    235@common 
    3 ;------------------------------------------------------------ 
    436reinitplt, /z,/invert 
    537key_portrait = 1 
     
    739 
    840openps, FILENAME = 'idl.ps' 
    9 ;------------------------------------------------------------ 
    1041; partie a changer 
    11 ;------------------------------------------------------------ 
    1242 
    1343;; subduction experiment in the atlantic in 1991-93 
     
    136166net=net(ind) & era=era(ind) & trop=trop(ind) & oaf=oaf(ind) & nce2=nce2(ind) & nce1=nce1(ind) 
    137167olr=olr(ind) 
    138 ;------------------------------------------------------------ 
    139168 
    140169statistics, net, era, $ 
     
    168197cstat_olr=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    169198 
    170 ;------------------------------------------------------------ 
    171199 
    172200splot, net, era, charsize=1.1, title='Net Flux - Subdn. cs Vs ERAI', $ 
     
    201229 
    202230stop 
    203 ;------------------------------------------------------------ 
    204231closeps 
    205232fig="subdctn_cs_validation_net_1991_93_all_v10.ps" 
    206233spawn, 'mv '+psdir+'idl.ps '+cpsdir+fig 
    207234spawn, 'gv '+cpsdir+fig 
    208 ;------------------------------------------------------------ 
    209235return 
    210236end 
    211  
  • trunk/src/paper01/fig14/subdctn_ses_validation_net_1991_93_all_v10.pro

    r41 r43  
     1;+ 
     2; .. _subdctn_ses_validation_net_1991_93_all_v10.pro 
     3; 
     4; ============================================== 
     5; subdctn_ses_validation_net_1991_93_all_v10.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> subdctn_ses_validation_net_1991_93_all_v10 
     23; 
     24; 
     25; EVOLUTIONS 
     26; ========== 
     27; 
     28; $Id$ 
     29; 
     30; - fplod 20110411T142955Z aedon.locean-ipsl.upmc.fr (Darwin) 
     31; 
     32;   * minimal header 
     33; 
     34;- 
    135pro subdctn_ses_validation_net_1991_93_all_v10 
    236@common 
    3 ;------------------------------------------------------------ 
    437reinitplt, /z,/invert 
    538key_portrait = 1 
     
    740 
    841openps, FILENAME = 'idl.ps' 
    9 ;------------------------------------------------------------ 
    1042; partie a changer 
    11 ;------------------------------------------------------------ 
    1243 
    1344;; subduction experiment in the atlantic in 1991-93 
     
    93124 
    94125net1=swr1+lwr1+(shf1+lhf1) & net2=swr2+lwr2+(shf2+lhf2) 
    95 neto_1=olr1+lwr1+lhf1+shf1 & neto_2=olr2+lwr2+lhf2+shf2  
     126neto_1=olr1+lwr1+lhf1+shf1 & neto_2=olr2+lwr2+lhf2+shf2 
    96127trop=[net1,net2] & olr=[neto_1,neto_2] 
    97128help, trop, olr 
     
    163194net=net(ind) & era=era(ind) & trop=trop(ind) & oaf=oaf(ind) & nce2=nce2(ind) & nce1=nce1(ind) 
    164195olr=olr(ind) 
    165 ;------------------------------------------------------------ 
    166196 
    167197statistics, net, era, $ 
     
    195225cstat_olr=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    196226 
    197 ;------------------------------------------------------------ 
    198227 
    199228splot, net, era, charsize=1.1, title='Net Flux - Subdn. ses Vs ERAI', $ 
     
    228257 
    229258stop 
    230 ;------------------------------------------------------------ 
    231259closeps 
    232260fig="subdctn_ses_validation_net_1991_93_all_v10.ps" 
    233261spawn, 'mv '+psdir+'idl.ps '+cpsdir+fig 
    234262spawn, 'gv '+cpsdir+fig 
    235 ;------------------------------------------------------------ 
    236263return 
    237264end 
    238  
  • trunk/src/paper01/fig14/subdctn_sws_validation_net_1991_93_all_v10.pro

    r41 r43  
     1;+ 
     2; .. _subdctn_sws_validation_net_1991_93_all_v10.pro 
     3; 
     4; ============================================== 
     5; subdctn_sws_validation_net_1991_93_all_v10.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> subdctn_sws_validation_net_1991_93_all_v10 
     23; 
     24; EVOLUTIONS 
     25; ========== 
     26; 
     27; $Id$ 
     28; 
     29; - fplod 20110411T142955Z aedon.locean-ipsl.upmc.fr (Darwin) 
     30; 
     31;   * minimal header 
     32; 
     33;- 
    134pro subdctn_sws_validation_net_1991_93_all_v10 
    235@common 
    3 ;------------------------------------------------------------ 
    436reinitplt, /z,/invert 
    537key_portrait = 1 
     
    739 
    840openps, FILENAME = 'idl.ps' 
    9 ;------------------------------------------------------------ 
    1041; partie a changer 
    11 ;------------------------------------------------------------ 
    1242 
    1343;; subduction experiment in the atlantic in 1991-93 
     
    90120era=[net1,net2,net3,net4] 
    91121lhf1=0. & lhf2=0. & lhf3=0. & lhf4=0. 
    92 shf1=0. & shf2=0. & shf3=0. & shf4=0.  
    93 lwr1=0. & lwr2=0. & lwr3=0. & lwr4=0. 
    94 swr1=0. & swr2=0. & swr3=0. & swr4=0.  
     122shf1=0. & shf2=0. & shf3=0. & shf4=0. 
     123lwr1=0. & lwr2=0. & lwr3=0. & lwr4=0. 
     124swr1=0. & swr2=0. & swr3=0. & swr4=0. 
    95125net1=0. & net2=0. & net3=0. & net4=0 
    96126help, era 
     
    132162lhf1=0. & lhf2=0. & lhf3=0. & lhf4=0. 
    133163shf1=0. & shf2=0. & shf3=0. & shf4=0. 
    134 lwr1=0. & lwr2=0. & lwr3=0. & lwr4=0.  
     164lwr1=0. & lwr2=0. & lwr3=0. & lwr4=0. 
    135165swr1=0. & swr2=0. & swr3=0. & swr4=0. 
    136166net1=0. & net2=0. & net3=0. & net4=0. 
     
    252282net=net(ind) & era=era(ind) & trop=trop(ind) & oaf=oaf(ind) & nce2=nce2(ind) & nce1=nce1(ind) 
    253283olr=olr(ind) 
    254 ;------------------------------------------------------------ 
    255284 
    256285statistics, net, era, $ 
     
    284313cstat_olr=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    285314 
    286 ;------------------------------------------------------------ 
    287315 
    288316splot, net, era, charsize=1.1, title='SWR - Subdctn. sws Vs ERAI', $ 
     
    317345 
    318346stop 
    319 ;------------------------------------------------------------ 
    320347closeps 
    321348fig="subdctn_sws_validation_net_1991_93_all_v10.ps" 
    322349spawn, 'mv '+psdir+'idl.ps '+cpsdir+fig 
    323350spawn, 'gv '+cpsdir+fig 
    324 ;------------------------------------------------------------ 
    325351return 
    326352end 
    327  
  • trunk/src/paper01/fig14/whots_validation_net_2004_2007_all_v10.pro

    r41 r43  
     1;+ 
     2; .. _whots_validation_net_2004_2007_all_v10.pro 
     3; 
     4; ========================================== 
     5; whots_validation_net_2004_2007_all_v10.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> whots_validation_net_2004_2007_all_v10 
     23; 
     24;  EVOLUTIONS 
     25; ========== 
     26; 
     27; $Id$ 
     28; 
     29; - fplod 20110411T142955Z aedon.locean-ipsl.upmc.fr (Darwin) 
     30; 
     31;   * minimal header 
     32; 
     33;- 
    134pro whots_validation_net_2004_2007_all_v10 
    235@common 
    3 ;------------------------------------------------------------ 
    436reinitplt, /z,/invert 
    537key_portrait = 1 
     
    739 
    840openps, FILENAME = 'idl.ps' 
    9 ;------------------------------------------------------------ 
    1041; partie a changer 
    11 ;------------------------------------------------------------ 
    1242 
    1343;; WHOTS in the NC pacific  2004-09 
     
    5080;; reading other data sets 
    5181 
    52 st1=20040813 & en1=20050725  
     82st1=20040813 & en1=20050725 
    5383st2=20050728 & en2=20060624 
    54 st3=20060627 & en3=20070628  
    55 ;st4=20070626 & en4=20080606  
     84st3=20060627 & en3=20070628 
     85;st4=20070626 & en4=20080606 
    5686;st5=20080605 & en5=20090715 
    5787 
     
    84114lhf1=0. & lhf2=0. & lhf3=0. 
    85115shf1=0. & shf2=0. & shf3=0. 
    86 lwr1=0. & lwr2=0. & lwr3=0.  
    87 swr1=0. & swr2=0. & swr3=0. 
    88 net1=0. & net2=0. & net3=0.  
     116lwr1=0. & lwr2=0. & lwr3=0. 
     117swr1=0. & swr2=0. & swr3=0. 
     118net1=0. & net2=0. & net3=0. 
    89119help, era 
    90120 
     
    115145 
    116146net1=swr1+lwr1+(shf1+lhf1) & net2=swr2+lwr2+(shf2+lhf2) & net3=swr3+lwr3+(shf3+lhf3) 
    117 neto_1=olr1+lwr1+lhf1+shf1 & neto_2=olr2+lwr2+lhf2+shf2 & neto_3=olr3+lwr3+lhf3+shf3  
     147neto_1=olr1+lwr1+lhf1+shf1 & neto_2=olr2+lwr2+lhf2+shf2 & neto_3=olr3+lwr3+lhf3+shf3 
    118148 
    119149trop=[net1,net2,net3] & olr=[neto_1,neto_2,neto_3] 
    120150 
    121151lhf1=0. & lhf2=0. & lhf3=0. 
    122 shf1=0. & shf2=0. & shf3=0.  
    123 lwr1=0. & lwr2=0. & lwr3=0. 
    124 swr1=0. & swr2=0. & swr3=0.  
    125 net1=0. & net2=0. & net3=0.  
     152shf1=0. & shf2=0. & shf3=0. 
     153lwr1=0. & lwr2=0. & lwr3=0. 
     154swr1=0. & swr2=0. & swr3=0. 
     155net1=0. & net2=0. & net3=0. 
    126156neto_1=0 & neto_2=0 & neto_3=0 
    127157 
     
    155185 
    156186oaf=[net1,net2,net3] 
    157 lhf1=0. & lhf2=0. & lhf3=0.  
    158 shf1=0. & shf2=0. & shf3=0.  
     187lhf1=0. & lhf2=0. & lhf3=0. 
     188shf1=0. & shf2=0. & shf3=0. 
    159189lwr1=0. & lwr2=0. & lwr3=0. 
    160190swr1=0. & swr2=0. & swr3=0. 
     
    191221help, nce2 
    192222 
    193 lhf1=0. & lhf2=0. & lhf3=0.  
    194 shf1=0. & shf2=0. & shf3=0. 
    195 lwr1=0. & lwr2=0. & lwr3=0. 
    196 swr1=0. & swr2=0. & swr3=0.  
     223lhf1=0. & lhf2=0. & lhf3=0. 
     224shf1=0. & shf2=0. & shf3=0. 
     225lwr1=0. & lwr2=0. & lwr3=0. 
     226swr1=0. & swr2=0. & swr3=0. 
    197227net1=0. & net2=0. & net3=0. 
    198228 
     
    220250help, nce1 
    221251 
    222 lhf1=0. & lhf2=0. & lhf3=0.  
    223 shf1=0. & shf2=0. & shf3=0. 
    224 lwr1=0. & lwr2=0. & lwr3=0. 
    225 swr1=0. & swr2=0. & swr3=0.  
     252lhf1=0. & lhf2=0. & lhf3=0. 
     253shf1=0. & shf2=0. & shf3=0. 
     254lwr1=0. & lwr2=0. & lwr3=0. 
     255swr1=0. & swr2=0. & swr3=0. 
    226256net1=0. & net2=0. & net3=0. 
    227257 
    228258ind=where(finite(net)) 
    229 net=net(ind) & era=era(ind) & trop=trop(ind) & oaf=oaf(ind)  
     259net=net(ind) & era=era(ind) & trop=trop(ind) & oaf=oaf(ind) 
    230260nce2=nce2(ind) & nce1=nce1(ind) & olr=olr(ind) 
    231261 
    232 ;------------------------------------------------------------ 
    233262 
    234263statistics, net, era, $ 
     
    262291cstat_olr=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    263292 
    264 ;------------------------------------------------------------ 
    265293 
    266294splot, net, era, charsize=1.1, title='Net Flux - WHOTS Vs ERAI', $ 
     
    294322xyouts, 0,-200, cstat_olr, charsize=1. 
    295323 
    296 ;------------------------------------------------------------ 
    297324closeps 
    298325fig="WHOTS_validation_net_2004_2007_all_v10.ps" 
    299326spawn, 'mv '+psdir+'idl.ps '+cpsdir+fig 
    300327spawn, 'gv '+cpsdir+fig 
    301 ;------------------------------------------------------------ 
    302328return 
    303329end 
    304  
Note: See TracChangeset for help on using the changeset viewer.