Changeset 47
- Timestamp:
- 04/20/11 17:40:26 (13 years ago)
- Location:
- trunk/src/paper01
- Files:
-
- 13 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/src/paper01/fig1/fig1_no_obs_map.pro
r46 r47 73 73 ; $Id$ 74 74 ; 75 ; - pinsard 2011-04-20T15:08:28Z loholt1.ipsl.polytechnique.fr (Linux) 76 ; 77 ; * make it work on loholt1 78 ; 75 79 ; - fplod 20110420T134821Z aedon.locean-ipsl.upmc.fr (Darwin) 76 80 ; … … 91 95 ; 92 96 @cm_tropflux 97 @cm_general 93 98 ; 94 99 reinitplt, /z,/invert -
trunk/src/paper01/fig14/as_validation_net_1994_95_v10.pro
r46 r47 65 65 ; 66 66 ; make it work on cratos : missing data 67 ; 67 68 ; coding rules 68 69 ; -
trunk/src/paper01/fig2/fig2_timeline_diagram.pro
r46 r47 54 54 ; ==== 55 55 ; 56 ; make it work on cratos ::56 ; make it work on cratos and loholt1:: 57 57 ; % Error: 58 58 ; % the vector size (7670) is incompatible … … 60 60 ; % [jpi/nx, jpj/ny, jpk/nz, jpt] = [1/1, 1/1, 1/1, 1] 61 61 ; 62 ; missing cdf files 63 ; 62 64 ; coding rules 63 65 ; … … 87 89 88 90 @cm_tropflux 91 @cm_general 89 92 90 93 reinitplt, /z,/invert -
trunk/src/paper01/fig2/read_sw.pro
r46 r47 34 34 ; :ref:`tropflux_profile.sh` 35 35 ; 36 ::func:`time_lec`36 ; :func:`time_lec` 37 37 ; 38 38 ; :ref:`fig2_timeline_diagram.pro` … … 55 55 ; make it work with a file 56 56 ; 57 ;58 57 ; EVOLUTIONS 59 58 ; ========== 60 59 ; 61 60 ; $Id$ 61 ; 62 ; - pinsard 2011-04-20T15:15:12Z loholt1.ipsl.polytechnique.fr (Linux) 63 ; 64 ; * typo 62 65 ; 63 66 ; - fplod 20110412T093325Z aedon.locean-ipsl.upmc.fr (Darwin) -
trunk/src/paper01/fig3/q2m_validation_scatter_2000_2009_v50.pro
r46 r47 80 80 ; complete description 81 81 ; 82 ; externalize function83 ;84 82 ; handle IO error 85 83 ; … … 88 86 ; 89 87 ; $Id$ 88 ; 89 ; - pinsard 2011-04-20T15:17:57Z loholt1.ipsl.polytechnique.fr (Linux) 90 ; 91 ; * typo 92 ; * externalize function 90 93 ; 91 94 ; - fplod 20110412T104125Z aedon.locean-ipsl.upmc.fr (Darwin) … … 128 131 close,/all 129 132 130 fi_q2m_erai= 'tropflux_id_env+'q2m_2000_2009_erai_v50.txt'133 fi_q2m_erai=tropflux_id_env+'q2m_2000_2009_erai_v50.txt' 131 134 openw,1,fi_q2m_erai 132 fi_q2m_trop= 'tropflux_id_env+'q2m_2000_2009_trop_v50.txt'135 fi_q2m_trop=tropflux_id_env+'q2m_2000_2009_trop_v50.txt' 133 136 openw,2,fi_q2m_trop 134 fi_q2m_oaflx= 'tropflux_id_env+'q2m_2000_2009_oaflx_v50.txt'137 fi_q2m_oaflx=tropflux_id_env+'q2m_2000_2009_oaflx_v50.txt' 135 138 openw,3,fi_q2m_oaflx 136 fi_q2m_ncep= 'tropflux_id_env+'q2m_2000_2009_ncep_v50.txt'139 fi_q2m_ncep=tropflux_id_env+'q2m_2000_2009_ncep_v50.txt' 137 140 openw,4,fi_q2m_ncep 138 fi_q2m_ncep1= 'tropflux_id_env+'q2m_2000_2009_ncep1_v50.txt'141 fi_q2m_ncep1=tropflux_id_env+'q2m_2000_2009_ncep1_v50.txt' 139 142 openw,5,fi_q2m_ncep1 140 143 … … 169 172 help, nce 170 173 171 file=tropflux_id_env+' 'q2m_ncep1_19890101_20091231.nc'174 file=tropflux_id_env+'q2m_ncep1_19890101_20091231.nc' 172 175 initncdf, file 173 176 nce1=read_ncdf("q2m", date1, date2, file=file,/nostr) … … 384 387 spawn, 'gv '+fig 385 388 end 386 387 function x_site_location, site388 n1=strpos(site, 's')389 if (n1 gt -1) then begin390 ns=-1.391 x=strmid(site, 0, n1)392 x=float(x)*ns393 endif else begin394 n1=strpos(site, 'n')395 x=strmid(site, 0, n1)396 ny=1.397 x=float(x)*ny398 endelse399 return, float(x)400 end401 function y_site_location, site402 n1=strpos(site, 'e')403 if (n1 gt -1) then begin404 n=strpos(site, 's')405 if (n gt -1) then begin406 y=strmid(site, n+1, n1-n-1)407 endif else begin408 n=strpos(site, 'n')409 y=strmid(site, n+1, n1-n-1)410 endelse411 412 endif else begin413 n1=strpos(site, 'w')414 n=strpos(site, 's')415 if (n gt -1) then begin416 y=strmid(site, n+1, n1-n-1)417 y=180+(180-float(y))418 endif else begin419 n=strpos(site, 'n')420 y=strmid(site, n+1, n1-n-1)421 y=180+(180-float(y))422 endelse423 endelse424 return,float(y)425 end -
trunk/src/paper01/fig3/sst_validation_scatter_2000_2009_v50.pro
r46 r47 66 66 ; ==== 67 67 ; 68 ; ++ plus de licences sur cratos68 ; make it work on cratos : missing data 69 69 ; 70 70 ; ++ mooring data in graphviz -
trunk/src/paper01/fig3/ws_validation_scatter_2000_2009_v50.pro
r46 r47 65 65 ; ==== 66 66 ; 67 ; ++ plus de licences sur cratos67 ; make it work on cratos : missing data 68 68 ; 69 69 ; ++ mooring data in graphviz -
trunk/src/paper01/fig4/fig4_met_var_correction_scatter.pro
r46 r47 50 50 ; ==== 51 51 ; 52 ; check results 53 ; 54 ; improve plot 55 ; 52 56 ; coding rules 53 57 ; … … 62 66 ; 63 67 ; $Id$ 68 ; 69 ; - pinsard 2011-04-20T15:27:24Z loholt1.ipsl.polytechnique.fr (Linux) 70 ; 71 ; * work on loholt1 64 72 ; 65 73 ; - fplod 20110420T085113Z aedon.locean-ipsl.upmc.fr (Darwin) -
trunk/src/paper01/fig5/fig5_gustiness_scatter.pro
r46 r47 46 46 ; ==== 47 47 ; 48 ; check results 49 ; 50 ; improve plot 51 ; 48 52 ; coding rules 49 53 ; … … 58 62 ; 59 63 ; $Id$ 64 ; 65 ; - pinsard 2011-04-20T15:29:37Z loholt1.ipsl.polytechnique.fr (Linux) 66 ; 67 ; * work on loholt1 60 68 ; 61 69 ; - fplod 20110420T090057Z aedon.locean-ipsl.upmc.fr (Darwin) -
trunk/src/paper01/fig6/icoads_q2m_stats_paper.pro
r46 r47 52 52 ; ==== 53 53 ; 54 ; make it work (missing data )54 ; make it work (missing data, box definition) 55 55 ; 56 56 ; coding rules -
trunk/src/paper01/fig6/icoads_sst_stats_paper.pro
r46 r47 53 53 ; ==== 54 54 ; 55 ; make it work (missing data )55 ; make it work (missing data, box definition) 56 56 ; 57 57 ; coding rules -
trunk/src/paper01/fig6/icoads_t2m_stats_paper.pro
r46 r47 53 53 ; ==== 54 54 ; 55 ; make it work (missing data )55 ; make it work (missing data, box definition) 56 56 ; 57 57 ; coding rules -
trunk/src/paper01/fig6/icoads_ws_stats_paper.pro
r46 r47 54 54 ; ==== 55 55 ; 56 ; make it work (missing data )56 ; make it work (missing data, box definition) 57 57 ; 58 58 ; coding rules
Note: See TracChangeset
for help on using the changeset viewer.