= Extract surface temperature from Argo observations =

{{{#!python

import scipy.io as io
import glob
from pylab import *
from mpl_toolkits.basemap import Basemap

tmp_dir='/scratch/clisap/seaice/TMP/u242023/ARGO/'


file_liste=glob.glob(tmp_dir+'*.nc')
D={}# Empty dictionary to store selected profiles
for f in file_liste:# Loop over all data


    # Open netcdf data file
    fid=io.netcdf_file(f,'r')

    # Read content into variables
    lat=fid.variables['LATITUDE'][:].copy()
    lon=fid.variables['LONGITUDE'][:].copy()
    T=fid.variables['TEMP'][:].copy()
    P=fid.variables['PRES'][:].copy()
    
    T[T>=99999]=nan # Set 99999.0 to "Not a Number"
    P[P>=99999]=nan

    (nr_profs,Z)=T.shape # Get dimension

    for i in range(nr_profs):
        D[(lon[i],lat[i])]=(T[i,:],P[i,:])

    # Close data file
    fid.close()

fid=open('lat_lon_T.tab','w')
for k in D.keys():# write position (lat,lon), surface temperature to file
    fid.write(str(k[0])+'\t'+str(k[1])+'\t'+str(D[k][0][0])+'\n')
fid.close()
stop


# Draw map of positions
m = Basemap(projection='ortho',lon_0=-45,lat_0=0,resolution='l')
m.bluemarble()
for lon,lat in D.keys():
    x,y=m(lon,lat) # Coordinate transfer
    m.plot(x,y,'r.')
    
savefig('argo_position.png',dpi=150)

# Plot profiles
figure()
for k in D.keys():
#    print k
    plot(D[k][0][:],D[k][1][:])
axis([-2,30,2000,0])
xlabel('T')
ylabel('P')
show()
savefig('Argo_plot.png',dpi=75)
}}}