Changeset 47 for trunk/src/paper01/fig3

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/fig3

Files:

• q2m_validation_scatter_2000_2009_v50.pro (modified) (5 diffs)
• sst_validation_scatter_2000_2009_v50.pro (modified) (1 diff)
• ws_validation_scatter_2000_2009_v50.pro (modified) (1 diff)

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