- Timestamp:
- 04/10/12 16:50:06 (12 years ago)
- Location:
- trunk/src
- Files:
-
- 41 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/src/LectureLAIHDF.pro
r337 r513 45 45 ; To generate :file:`${PROJECT_OD}/laisen2001_float.txt`:: 46 46 ; 47 ; IDL>.compile LectureLAIHDF48 ; IDL>yyyy=2001L49 ; IDL>iodirin='/net/zeus/usr/zeus/incas/mousson/LAI/'50 ; IDL>lecturelaihdf, iodirin, yyyy47 ; .compile LectureLAIHDF 48 ; yyyy=2001L 49 ; iodirin='/net/zeus/usr/zeus/incas/mousson/LAI/' 50 ; lecturelaihdf, iodirin, yyyy 51 51 ; 52 52 ; TODO … … 358 358 ; :: 359 359 ; 360 ; IDL>.compile LectureLAIHDF361 ; IDL>file='/net/zeus/usr/zeus/incas/mousson/LAI/LAI_2000/MOD15A2.A2000057.h16v07.005.2006269043641.hdf'362 ; IDL>lai=lecturelai(file,plot=0)360 ; .compile LectureLAIHDF 361 ; file='/net/zeus/usr/zeus/incas/mousson/LAI/LAI_2000/MOD15A2.A2000057.h16v07.005.2006269043641.hdf' 362 ; lai=lecturelai(file,plot=0) 363 363 ; 364 364 ; :uses: -
trunk/src/anaclimecm.pro
r337 r513 29 29 ; :: 30 30 ; 31 ; IDL>anaclimecm31 ; anaclimecm 32 32 ; 33 33 ; :History: -
trunk/src/correct_nadir_amsu-v2.pro
r503 r513 95 95 ; 96 96 ; 97 ; IDL> canal='a5' 98 ; IDL> resol=1 99 ; IDL> lon_min=-60. 100 ; IDL> lon_max=50. 101 ; IDL> lat_min=-30. 102 ; IDL> lat_max=45. 103 ; IDL> correct_nadir_amsu, canal,resol, lon_min, lon_max, lat_min, lat_max 104 ; 105 97 ; canal='a5' 98 ; resol=1 99 ; lon_min=-60. 100 ; lon_max=50. 101 ; lat_min=-30. 102 ; lat_max=45. 103 ; correct_nadir_amsu, canal,resol, lon_min, lon_max, lat_min, lat_max 104 ; 106 105 ; :History: 107 106 ; -
trunk/src/correct_nadir_amsu.pro
r436 r513 94 94 ; Using AMSU-A and AMSU-B :: 95 95 ; 96 ; IDL>use_amsua=197 ; IDL>yyyy=200698 ; IDL>mm=899 ; IDL>dd=1100 ; IDL>lon_min=-60.101 ; IDL>lon_max=50.102 ; IDL>lat_min=-30.103 ; IDL>lat_max=45.104 ; IDL>correct_nadir_amsu, use_amsua, yyyy, mm, dd, lon_min, lon_max, lat_min, lat_max96 ; use_amsua=1 97 ; yyyy=2006 98 ; mm=8 99 ; dd=1 100 ; lon_min=-60. 101 ; lon_max=50. 102 ; lat_min=-30. 103 ; lat_max=45. 104 ; correct_nadir_amsu, use_amsua, yyyy, mm, dd, lon_min, lon_max, lat_min, lat_max 105 105 ; 106 106 ; Using AMSU-B only :: 107 107 ; 108 ; IDL>use_amsua=0109 ; IDL>yyyy=2006110 ; IDL>mm=8111 ; IDL>dd=1112 ; IDL>lon_min=-60.113 ; IDL>lon_max=50.114 ; IDL>lat_min=-30.115 ; IDL>lat_max=45.116 ; IDL>correct_nadir_amsu, use_amsua, yyyy, mm, dd, lon_min, lon_max, lat_min, lat_max108 ; use_amsua=0 109 ; yyyy=2006 110 ; mm=8 111 ; dd=1 112 ; lon_min=-60. 113 ; lon_max=50. 114 ; lat_min=-30. 115 ; lat_max=45. 116 ; correct_nadir_amsu, use_amsua, yyyy, mm, dd, lon_min, lon_max, lat_min, lat_max 117 117 ; 118 118 ; :History: -
trunk/src/create_amsu_netcdf.pro
r337 r513 24 24 ; :: 25 25 ; 26 ; IDL>file_ncdf='ginette.nc'27 ; IDL>yyyy=200628 ; IDL>mm=129 ; IDL>dd=2030 ; IDL>hh=1131 ; IDL>mn=3032 ; IDL>ss=3033 ; IDL>lons=findgen(10)-1034 ; IDL>lats=findgen(10)+2035 ; IDL>datatab=findgen(10,10)36 ; IDL>masktab=findgen(10,10)37 ; IDL>create_amsu_netcdf, file_ncdf, yyyy, mm, dd, hh, mn, ss, lons, lats, datatab, masktab26 ; file_ncdf='ginette.nc' 27 ; yyyy=2006 28 ; mm=1 29 ; dd=20 30 ; hh=11 31 ; mn=30 32 ; ss=30 33 ; lons=findgen(10)-10 34 ; lats=findgen(10)+20 35 ; datatab=findgen(10,10) 36 ; masktab=findgen(10,10) 37 ; create_amsu_netcdf, file_ncdf, yyyy, mm, dd, hh, mn, ss, lons, lats, datatab, masktab 38 38 ; 39 39 ; TODO -
trunk/src/define_amsua_header_struct.pro
r337 r513 26 26 ; :: 27 27 ; 28 ; IDL>define_amsua_header_struct28 ; define_amsua_header_struct 29 29 ; 30 30 ; :History: -
trunk/src/define_amsua_struct.pro
r337 r513 31 31 ; :: 32 32 ; 33 ; IDL>define_amsua_header_struct34 ; IDL>define_amsua_struct, one_scana, flag135 ; IDL>print, one_scana36 ; IDL>print, flag133 ; define_amsua_header_struct 34 ; define_amsua_struct, one_scana, flag1 35 ; print, one_scana 36 ; print, flag1 37 37 ; 38 38 ; :History: -
trunk/src/define_amsub_header_struct.pro
r337 r513 27 27 ; :: 28 28 ; 29 ; IDL>define_amsub_header_struct29 ; define_amsub_header_struct 30 30 ; 31 31 ; :History: -
trunk/src/define_amsub_struct.pro
r337 r513 22 22 ; :: 23 23 ; 24 ; IDL>define_amsub_header_struct25 ; IDL>define_amsub_struct, one_scanb, flag226 ; IDL>print, one_scanb27 ; IDL>print, flag224 ; define_amsub_header_struct 25 ; define_amsub_struct, one_scanb, flag2 26 ; print, one_scanb 27 ; print, flag2 28 28 ; 29 29 ; :History: -
trunk/src/extract_amsua.pro
r512 r513 259 259 ; 260 260 ; It was ok when path as /bdd/AMSU-1C/AMSUAN15/L1C/2006/2006_07_28/:: 261 ; IDL> c='/bdd/AMSU-1C/AMSUAN15/L1C/2006/2006_07_28/NSS.AMAX.NK.D06209.S1323.E1455.B4266162.GC.L1C' 262 ; IDL> b=strmid(c,51) 263 ; IDL> print, b 264 ; IDL> NK.D06209.S1323.E1455.B4266162.GC.L1C 261 ; 262 ; c='/bdd/AMSU-1C/AMSUAN15/L1C/2006/2006_07_28/NSS.AMAX.NK.D06209.S1323.E1455.B4266162.GC.L1C' 263 ; b=strmid(c,51) 264 ; print, b 265 ; NK.D06209.S1323.E1455.B4266162.GC.L1C 265 266 ; 266 267 ; but now path can be anything (PROJECT_ID environment variable) -
trunk/src/figure01.pro
r337 r513 33 33 ; :: 34 34 ; 35 ; IDL>figure0135 ; figure01 36 36 ; 37 37 ; :History: -
trunk/src/figure02.pro
r337 r513 35 35 ; :: 36 36 ; 37 ; IDL>figure0237 ; figure02 38 38 ; 39 39 ; :History: -
trunk/src/figure03.pro
r337 r513 35 35 ; :: 36 36 ; 37 ; IDL>figure0337 ; figure03 38 38 ; 39 39 ; :History: -
trunk/src/figure04.pro
r337 r513 35 35 ; :: 36 36 ; 37 ; IDL>figure0437 ; figure04 38 38 ; 39 39 ; :History: -
trunk/src/figure05.pro
r337 r513 35 35 ; :: 36 36 ; 37 ; IDL>figure0537 ; figure05 38 38 ; 39 39 ; :History: -
trunk/src/figure06.pro
r337 r513 35 35 ; :: 36 36 ; 37 ; IDL>figure0637 ; figure06 38 38 ; 39 39 ; :History: -
trunk/src/figure07.pro
r337 r513 32 32 ; :: 33 33 ; 34 ; IDL>figure0734 ; figure07 35 35 ; 36 36 ; :History: -
trunk/src/figure08.pro
r337 r513 40 40 ; :: 41 41 ; 42 ; IDL>figure0842 ; figure08 43 43 ; 44 44 ; :History: -
trunk/src/figure09.pro
r337 r513 39 39 ; :: 40 40 ; 41 ; IDL>figure0941 ; figure09 42 42 ; 43 43 ; :History: -
trunk/src/figure11.pro
r337 r513 39 39 ; 40 40 ; 41 ; IDL>figure1141 ; figure11 42 42 ; 43 43 ; :History: -
trunk/src/figure12.pro
r337 r513 35 35 ; :: 36 36 ; 37 ; IDL>figure1237 ; figure12 38 38 ; 39 39 ; :History: -
trunk/src/figure13.pro
r337 r513 37 37 ; :: 38 38 ; 39 ; IDL>figure1339 ; figure13 40 40 ; 41 41 ; :History: -
trunk/src/figure14.pro
r337 r513 37 37 ; :: 38 38 ; 39 ; IDL>figure1439 ; figure14 40 40 ; 41 41 ; :History: -
trunk/src/forout.pro
r337 r513 42 42 ; To prepare the production of :file:`${PROJECT_OD}/figure08.png`:: 43 43 ; 44 ; IDL>fullfilename_out=forout('figure08.png',/OVERWRITE)45 ; IDL>print, fullfilename_out44 ; fullfilename_out=forout('figure08.png',/OVERWRITE) 45 ; print, fullfilename_out 46 46 ; /usr/temp/fplod/varamma_d/figure08.png 47 47 ; 48 48 ; If asked an other time without /OVERWRITE, the file is not anymore writable:: 49 49 ; 50 ; IDL>fullfilename_out=forout('figure08.png')51 ; IDL>print, fullfilename_out50 ; fullfilename_out=forout('figure08.png') 51 ; print, fullfilename_out 52 52 ; -1 53 53 ; -
trunk/src/hovmuller.pro
r349 r513 110 110 ; To plot AMSU a4 hovmuller latitude plot according to :file:`${PROJECT_ID}/a4.an2006.nc` between 2006040101 and 20061031 and produce a PNG file:: 111 111 ; 112 ; IDL>hovmuller, 'AMSU', 'a4', timebox=[20060401L,20061031L], AXE='latitude', ubox=[-30.,+40.,-30.,45.]112 ; hovmuller, 'AMSU', 'a4', timebox=[20060401L,20061031L], AXE='latitude', ubox=[-30.,+40.,-30.,45.] 113 113 ; 114 114 ; To plot AMSU a4 and a5 hovmuller latitude plots according to :file:`${PROJECT_ID}/a[45].an2006.nc` between 2006040101 and 20061031 on the same figure:: 115 115 ; 116 ; IDL>hovmuller, 'AMSU', 'a4', timebox=[20060401L,20061031L], AXE='latitude', ubox=[-30.,+40.,-30.,45.], /nosave, small=[2,1,1]117 ; IDL>hovmuller, 'AMSU', 'a5', timebox=[20060401L,20061031L], AXE='latitude', ubox=[-30.,+40.,-30.,45.], /noerase, /nocolorbar,small=[2,1,2]116 ; hovmuller, 'AMSU', 'a4', timebox=[20060401L,20061031L], AXE='latitude', ubox=[-30.,+40.,-30.,45.], /nosave, small=[2,1,1] 117 ; hovmuller, 'AMSU', 'a5', timebox=[20060401L,20061031L], AXE='latitude', ubox=[-30.,+40.,-30.,45.], /noerase, /nocolorbar,small=[2,1,2] 118 118 ; 119 119 ; ++ les deux dessins n'occupent pas la même taille. … … 121 121 ; To plot OLR hovmuller latitude plot according to :file:`${PROJECT_ID}/olr.day.mean_2006_ng.nc` between 2006040101 and 20061031 and produce a PNG file name:: 122 122 ; 123 ; IDL>hovmuller, 'OLR', 'n.a.', timebox=[20060401L,20061031L], AXE='latitude', ubox=[-30.,+40.,-30.,45.]123 ; hovmuller, 'OLR', 'n.a.', timebox=[20060401L,20061031L], AXE='latitude', ubox=[-30.,+40.,-30.,45.] 124 124 ; 125 125 ; To plot OLR hovmuller longitude plot according to :file:`${PROJECT_ID}/olr.day.mean_2006_ng.nc` between 2006040101 and 20061031 and produce a PNG file:: 126 126 ; 127 ; IDL>hovmuller, 'OLR', 'n.a', timebox=[20060401L,20061031L], AXE='longitude', ubox=[-30.,+40.,-30.,45.]127 ; hovmuller, 'OLR', 'n.a', timebox=[20060401L,20061031L], AXE='longitude', ubox=[-30.,+40.,-30.,45.] 128 128 ; 129 129 ; To plot AMSU a4 hovmuller latitude plot climatology and produce a PNG file:: 130 130 ; 131 ; IDL>hovmuller, 'AMSU', 'a4', timebox=[00000401L,00001031L], DATASETTYPE='varamma_t3', AXE='latitude', ubox=[-30.,+40.,-30.,45.]132 ; IDL>hovmuller, 'AMSU', 'a5', timebox=[00000401L,00001031L], DATASETTYPE='varamma_t3', AXE='latitude', ubox=[-30.,+40.,-30.,45.]131 ; hovmuller, 'AMSU', 'a4', timebox=[00000401L,00001031L], DATASETTYPE='varamma_t3', AXE='latitude', ubox=[-30.,+40.,-30.,45.] 132 ; hovmuller, 'AMSU', 'a5', timebox=[00000401L,00001031L], DATASETTYPE='varamma_t3', AXE='latitude', ubox=[-30.,+40.,-30.,45.] 133 133 ; 134 134 ; :History: -
trunk/src/interpol_correc.pro
r510 r513 52 52 ; :: 53 53 ; 54 ; IDL>interpol_correc,cor_lb,cor_sb55 ; IDL>print, cor_lb56 ; IDL>print, cor_sb54 ; interpol_correc,cor_lb,cor_sb 55 ; print, cor_lb 56 ; print, cor_sb 57 57 ; 58 58 ; -
trunk/src/map_amab.pro
r337 r513 38 38 ; :: 39 39 ; 40 ; IDL>use_amsua=041 ; IDL>use_amsub=142 ; IDL>amafile=project_id_env+"/AMSUAN15/L1C/2006/2006_08_01/NSS.AMAX.NK.D06213.S0110.E0255.B4271112.GC.L1C"43 ; IDL>ambfile=project_id_env+"/AMSUBN15/L1C/2006/2006_08_01/NSS.AMBX.NK.D06213.S0110.E0255.B4271112.GC.L1C"44 ; IDL>lon_min=-60.45 ; IDL>lon_max=5046 ; IDL>lat_min=-3047 ; IDL>lat_max=4548 ; IDL>map_amab, use_amsua, use_amsub, amafile,ambfile,dam,jour_ama,flagg,lon_min,lon_max,lat_min,lat_max49 ; IDL>print, dam50 ; IDL>print, jour_ama51 ; IDL>print, flagg40 ; use_amsua=0 41 ; use_amsub=1 42 ; amafile=project_id_env+"/AMSUAN15/L1C/2006/2006_08_01/NSS.AMAX.NK.D06213.S0110.E0255.B4271112.GC.L1C" 43 ; ambfile=project_id_env+"/AMSUBN15/L1C/2006/2006_08_01/NSS.AMBX.NK.D06213.S0110.E0255.B4271112.GC.L1C" 44 ; lon_min=-60. 45 ; lon_max=50 46 ; lat_min=-30 47 ; lat_max=45 48 ; map_amab, use_amsua, use_amsub, amafile,ambfile,dam,jour_ama,flagg,lon_min,lon_max,lat_min,lat_max 49 ; print, dam 50 ; print, jour_ama 51 ; print, flagg 52 52 ; 53 53 ; :History: -
trunk/src/paper01.pro
r363 r513 74 74 ; :: 75 75 ; 76 ; IDL>paper0176 ; paper01 77 77 ; 78 78 ; :History: -
trunk/src/pixelsize.pro
r413 r513 32 32 ; :: 33 33 ; 34 ; IDL>pixelsize, swatha, swathb, tracka, trackb34 ; pixelsize, swatha, swathb, tracka, trackb 35 35 ; 36 36 ; TODO -
trunk/src/project_init.pro
r337 r513 14 14 ; It ++:: 15 15 ; 16 ; $ idl -startupfile project_init.pro 17 ; 18 ; or:: 19 ; $ idl -IDL_STARTUP project_init.pro 16 ; idl -startupfile project_init.pro 20 17 ; 21 18 ; or:: 22 19 ; 23 ; $ IDL 24 ; IDL> @project_init 20 ; idl -IDL_STARTUP project_init.pro 21 ; 22 ; or:: 23 ; 24 ; idl 25 ; @project_init 25 26 ; 26 27 ; -
trunk/src/read_amsua1c.pro
r337 r513 26 26 ; :: 27 27 ; 28 ; IDL>filename=++29 ; IDL>flag1=++30 ; IDL>read_amsua1c, filename, flag128 ; filename=++ 29 ; flag1=++ 30 ; read_amsua1c, filename, flag1 31 31 ; 32 32 ; :History: -
trunk/src/read_amsub1c.pro
r337 r513 30 30 ; :: 31 31 ; 32 ; IDL>32 ; 33 33 ; 34 34 ; :History: -
trunk/src/read_regular_grid.pro
r339 r513 21 21 ; :: 22 22 ; 23 ; IDL>file_ncdf=project_id_env + '/MSG/2006/08/01/200608010000_msg-tb108_map_15min.nc'24 ; IDL>reggrid=read_regular_grid(file_ncdf)25 ; IDL>help, reggrid,/structure23 ; file_ncdf=project_id_env + '/MSG/2006/08/01/200608010000_msg-tb108_map_15min.nc' 24 ; reggrid=read_regular_grid(file_ncdf) 25 ; help, reggrid,/structure 26 26 ; ** Structure <154a3bf8>, 2 tags, length=29696, data length=29696, refs=1: 27 27 ; LON DOUBLE Array[1856] … … 30 30 ; or:: 31 31 ; 32 ; IDL>file_ncdf=project_id_env + '/MSG/2006/06/01/msg_IR108_20060601.nc'33 ; IDL>reggrid=read_regular_grid(file_ncdf)34 ; IDL>help, reggrid,/structure32 ; file_ncdf=project_id_env + '/MSG/2006/06/01/msg_IR108_20060601.nc' 33 ; reggrid=read_regular_grid(file_ncdf) 34 ; help, reggrid,/structure 35 35 ; ** Structure <1548f7d8>, 2 tags, length=6008, data length=6008, refs=1: 36 36 ; LON FLOAT Array[834] -
trunk/src/read_rt_file.pro
r337 r513 21 21 ; To load ID memory with TRMM global data of 2010010100:: 22 22 ; 23 ; $wget --no-verbose -P ${PROJECT_ID} ftp://trmmopen.gsfc.nasa.gov/pub/merged/combinedMicro/3B40RT.2010010100.6.bin.gz24 ; $idl25 ; IDL>.run read_rt_file26 ; IDL>read_3B4XRT, project_id_env + '/3B40RT.2010010100.6.bin', data27 ; IDL>help, data, /struct23 ; wget --no-verbose -P ${PROJECT_ID} ftp://trmmopen.gsfc.nasa.gov/pub/merged/combinedMicro/3B40RT.2010010100.6.bin.gz 24 ; idl 25 ; .run read_rt_file 26 ; read_3B4XRT, project_id_env + '/3B40RT.2010010100.6.bin', data 27 ; help, data, /struct 28 28 ; 29 29 ; -
trunk/src/routineCanalHD.pro
r337 r513 27 27 ; :: 28 28 ; 29 ; IDL>29 ; 30 30 ; 31 31 ; :History: -
trunk/src/serieamsu.pro
r337 r513 25 25 ; :: 26 26 ; 27 ; IDL>serieamsu27 ; serieamsu 28 28 ; 29 29 ; :History: -
trunk/src/serietempecm.pro
r337 r513 29 29 ; :: 30 30 ; 31 ; IDL>serietempecm31 ; serietempecm 32 32 ; 33 33 ; :History: -
trunk/src/ssminuage.pro
r349 r513 19 19 ; :: 20 20 ; 21 ; IDL>ssminuage21 ; ssminuage 22 22 ; 23 23 ; SEE ALSO -
trunk/src/testts.pro
r337 r513 30 30 ; :: 31 31 ; 32 ; IDL>testts32 ; testts 33 33 ; 34 34 ; :History: -
trunk/src/timeserie.pro
r363 r513 91 91 ; :: 92 92 ; 93 ; IDL>timeserie, 'AMSU', 'a4', ubox=[-10.,+5.,-30.,45.]93 ; timeserie, 'AMSU', 'a4', ubox=[-10.,+5.,-30.,45.] 94 94 ; 95 95 ; To plot OLR climatology … … 97 97 ; :: 98 98 ; 99 ; IDL>timeserie, 'OLR', 'n.a.', ubox=[-10.,+5.,-30.,45.]99 ; timeserie, 'OLR', 'n.a.', ubox=[-10.,+5.,-30.,45.] 100 100 ; 101 101 ; :History: -
trunk/src/traite_amsuab.sh
r501 r513 52 52 # 53 53 # amsu_t1 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/AMSU/AMSU*/L1C/yyyy/yyyy_mm_dd/*.L1C"]; 54 # amsu_a_cor_land [shape=diamond,fontname=Courier,label="${PROJECT}/src/dataref_amsu/CORR_LAND_AMSUA_JUIL2006.DAT"]; 55 # amsu_a_cor_sea [shape=diamond,fontname=Courier,label="${PROJECT}/src/dataref_amsu/CORR_SEA_AMSUA_JUIL2006.DAT"]; 56 # amsu_b_cor_land [shape=diamond,fontname=Courier,label="${PROJECT}/src/dataref_amsu/CORR_LAND_AMSUB_JUIL2006.DAT"]; 57 # amsu_b_cor_sea [shape=diamond,fontname=Courier,label="${PROJECT}/src/dataref_amsu/CORR_SEA_AMSUB_JUIL2006.DAT"]; 54 # amsu_a_cor_land [shape=diamond,fontname=Courier,label="${PROJECT}/src/dataref_amsu/CORR_LAND_AMSUA5_DataFromJune2010_40deg.DAT"]; 55 # amsu_a_cor_sea [shape=diamond,fontname=Courier,label="${PROJECT}/src/dataref_amsu/CORR_SEA_AMSUA5_DataFromJune2010_40deg.DA"]; 58 56 # amsu_t2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/yyyy/mm/amsua_amsub_yyyymmdd_geomin_geomax.dat"]; 59 57 # amsu_t3 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/yyyy/mm/amsua_amsub_yyyymmdd_geomin_geomax_nadir.dat"]; … … 69 67 # label="${PROJECT}/src/traite_amsuab.sh"]; 70 68 # 71 # {amsu_t1 amsu_a_cor_land amsu_a_cor_sea amsu_b_cor_land amsu_b_cor_seamask} -> {traite_amsuab} -> {log amsu_t2 amsu_t3 amsu_t4}69 # {amsu_t1 amsu_a_cor_land amsu_a_cor_sea mask} -> {traite_amsuab} -> {log amsu_t2 amsu_t3 amsu_t4} 72 70 # 73 71 # }
Note: See TracChangeset
for help on using the changeset viewer.