Changeset 47 for trunk/src

Timestamp:

04/20/11 17:40:26 (13 years ago)

Author:

pinsard

Message:

going on consolidation of paper01 materials using loholt1

Location:

trunk/src/paper01

Files:

• fig1/fig1_no_obs_map.pro (modified) (2 diffs)
• fig14/as_validation_net_1994_95_v10.pro (modified) (1 diff)
• fig2/fig2_timeline_diagram.pro (modified) (3 diffs)
• fig2/read_sw.pro (modified) (2 diffs)
• fig3/q2m_validation_scatter_2000_2009_v50.pro (modified) (5 diffs)
• fig3/sst_validation_scatter_2000_2009_v50.pro (modified) (1 diff)
• fig3/ws_validation_scatter_2000_2009_v50.pro (modified) (1 diff)
• fig4/fig4_met_var_correction_scatter.pro (modified) (2 diffs)
• fig5/fig5_gustiness_scatter.pro (modified) (2 diffs)
• fig6/icoads_q2m_stats_paper.pro (modified) (1 diff)
• fig6/icoads_sst_stats_paper.pro (modified) (1 diff)
• fig6/icoads_t2m_stats_paper.pro (modified) (1 diff)
• fig6/icoads_ws_stats_paper.pro (modified) (1 diff)

trunk/src/paper01/fig1/fig1_no_obs_map.pro

@@ -73 +73 @@
 ; $Id$
 ;
+; - pinsard 2011-04-20T15:08:28Z loholt1.ipsl.polytechnique.fr (Linux)
+;
+;   * make it work on loholt1
+;
 ; - fplod 20110420T134821Z aedon.locean-ipsl.upmc.fr (Darwin)
 ;
@@ -91 +95 @@
 ;
 @cm_tropflux
+@cm_general
 ;
 reinitplt, /z,/invert

trunk/src/paper01/fig14/as_validation_net_1994_95_v10.pro

@@ -65 +65 @@
 ;
 ; make it work on cratos : missing data
+;
 ; coding rules
 ;

trunk/src/paper01/fig2/fig2_timeline_diagram.pro

@@ -54 +54 @@
 ; ====
 ;
-; make it work on cratos ::
+; make it work on cratos and loholt1::
 ;    % Error:
 ;    % the vector size (7670) is incompatible
@@ -60 +60 @@
 ;    % [jpi/nx, jpj/ny, jpk/nz, jpt] = [1/1, 1/1, 1/1, 1]
 ;
+; missing cdf files
+;
 ; coding rules
 ;
@@ -87 +89 @@
 
 @cm_tropflux
+@cm_general
 
 reinitplt, /z,/invert

trunk/src/paper01/fig2/read_sw.pro

@@ -34 +34 @@
 ; :ref:`tropflux_profile.sh`
 ;
-: :func:`time_lec`
+; :func:`time_lec`
 ;
 ; :ref:`fig2_timeline_diagram.pro`
@@ -55 +55 @@
 ; make it work with a file
 ;
-;
 ; EVOLUTIONS
 ; ==========
 ;
 ; $Id$
+;
+; - pinsard 2011-04-20T15:15:12Z loholt1.ipsl.polytechnique.fr (Linux)
+;
+;   * typo
 ;
 ; - fplod 20110412T093325Z aedon.locean-ipsl.upmc.fr (Darwin)

trunk/src/paper01/fig3/q2m_validation_scatter_2000_2009_v50.pro

@@ -80 +80 @@
 ; complete description
 ;
-; externalize function
-;
 ; handle IO error
 ;
@@ -88 +86 @@
 ;
 ; $Id$
+;
+; - pinsard 2011-04-20T15:17:57Z loholt1.ipsl.polytechnique.fr (Linux)
+;
+;   * typo
+;   * externalize function
 ;
 ; - fplod 20110412T104125Z aedon.locean-ipsl.upmc.fr (Darwin)
@@ -128 +131 @@
 close,/all
 
-fi_q2m_erai='tropflux_id_env+'q2m_2000_2009_erai_v50.txt'
+fi_q2m_erai=tropflux_id_env+'q2m_2000_2009_erai_v50.txt'
 openw,1,fi_q2m_erai
-fi_q2m_trop='tropflux_id_env+'q2m_2000_2009_trop_v50.txt'
+fi_q2m_trop=tropflux_id_env+'q2m_2000_2009_trop_v50.txt'
 openw,2,fi_q2m_trop
-fi_q2m_oaflx='tropflux_id_env+'q2m_2000_2009_oaflx_v50.txt'
+fi_q2m_oaflx=tropflux_id_env+'q2m_2000_2009_oaflx_v50.txt'
 openw,3,fi_q2m_oaflx
-fi_q2m_ncep='tropflux_id_env+'q2m_2000_2009_ncep_v50.txt'
+fi_q2m_ncep=tropflux_id_env+'q2m_2000_2009_ncep_v50.txt'
 openw,4,fi_q2m_ncep
-fi_q2m_ncep1='tropflux_id_env+'q2m_2000_2009_ncep1_v50.txt'
+fi_q2m_ncep1=tropflux_id_env+'q2m_2000_2009_ncep1_v50.txt'
 openw,5,fi_q2m_ncep1
 
@@ -169 +172 @@
 help, nce
 
-file=tropflux_id_env+''q2m_ncep1_19890101_20091231.nc'
+file=tropflux_id_env+'q2m_ncep1_19890101_20091231.nc'
 initncdf, file
 nce1=read_ncdf("q2m", date1, date2, file=file,/nostr)
@@ -384 +387 @@
 spawn, 'gv '+fig
 end
-
-function x_site_location, site
-    n1=strpos(site, 's')
-if (n1 gt -1) then begin
-    ns=-1.
-    x=strmid(site, 0, n1)
-    x=float(x)*ns
-endif else begin
-    n1=strpos(site, 'n')
-    x=strmid(site, 0, n1)
-    ny=1.
-    x=float(x)*ny
-endelse
-return, float(x)
-end
-function y_site_location, site
-    n1=strpos(site, 'e')
-if (n1 gt -1) then begin
-    n=strpos(site, 's')
-    if (n gt -1) then begin
-        y=strmid(site, n+1, n1-n-1)
-    endif else begin
-        n=strpos(site, 'n')
-        y=strmid(site, n+1, n1-n-1)
-    endelse
-
-endif else begin
-    n1=strpos(site, 'w')
-    n=strpos(site, 's')
-    if (n gt -1) then begin
-        y=strmid(site, n+1, n1-n-1)
-        y=180+(180-float(y))
-    endif else begin
-        n=strpos(site, 'n')
-        y=strmid(site, n+1, n1-n-1)
-        y=180+(180-float(y))
-   endelse
-endelse
-return,float(y)
-end

trunk/src/paper01/fig3/sst_validation_scatter_2000_2009_v50.pro

@@ -66 +66 @@
 ; ====
 ;
-; ++ plus de licences sur cratos
+; make it work on cratos : missing data
 ;
 ; ++ mooring data in graphviz

trunk/src/paper01/fig3/ws_validation_scatter_2000_2009_v50.pro

@@ -65 +65 @@
 ; ====
 ;
-; ++ plus de licences sur cratos
+; make it work on cratos : missing data
 ;
 ; ++ mooring data in graphviz

trunk/src/paper01/fig4/fig4_met_var_correction_scatter.pro

@@ -50 +50 @@
 ; ====
 ;
+; check results
+;
+; improve plot
+;
 ; coding rules
 ;
@@ -62 +66 @@
 ;
 ; $Id$
+;
+; - pinsard 2011-04-20T15:27:24Z loholt1.ipsl.polytechnique.fr (Linux)
+;
+;   * work on loholt1
 ;
 ; - fplod 20110420T085113Z aedon.locean-ipsl.upmc.fr (Darwin)

trunk/src/paper01/fig5/fig5_gustiness_scatter.pro

@@ -46 +46 @@
 ; ====
 ;
+; check results
+;
+; improve plot
+;
 ; coding rules
 ;
@@ -58 +62 @@
 ;
 ; $Id$
+;
+; - pinsard 2011-04-20T15:29:37Z loholt1.ipsl.polytechnique.fr (Linux)
+;
+;   * work on loholt1
 ;
 ; - fplod 20110420T090057Z aedon.locean-ipsl.upmc.fr (Darwin)

trunk/src/paper01/fig6/icoads_q2m_stats_paper.pro

@@ -52 +52 @@
 ; ====
 ;
-; make it work (missing data)
+; make it work (missing data, box definition)
 ;
 ; coding rules

trunk/src/paper01/fig6/icoads_sst_stats_paper.pro

@@ -53 +53 @@
 ; ====
 ;
-; make it work (missing data)
+; make it work (missing data, box definition)
 ;
 ; coding rules

trunk/src/paper01/fig6/icoads_t2m_stats_paper.pro

@@ -53 +53 @@
 ; ====
 ;
-; make it work (missing data)
+; make it work (missing data, box definition)
 ;
 ; coding rules

trunk/src/paper01/fig6/icoads_ws_stats_paper.pro

@@ -54 +54 @@
 ; ====
 ;
-; make it work (missing data)
+; make it work (missing data, box definition)
 ;
 ; coding rules