Changeset 512 for trunk

Timestamp:

04/10/12 16:44:48 (12 years ago)

Author:

pinsard

Message:

create directory when needed

Location:

trunk/src

Files:

• extract_amsua.pro (modified) (1 diff)
• extract_amsuab.pro (modified) (7 diffs)
• file_amsu_t2_to_mem.pro (modified) (1 diff)
• idl_amsu_netcdf.pro (modified) (4 diffs)
• mem_to_file_amsu_t2.pro (modified) (3 diffs)

trunk/src/extract_amsua.pro

@@ -67 +67 @@
 ; ========
 ;
-; Creating an articial list of AMSU-A files (You may need to create
-; :file:`${PROJECT_ID}/AMSU/2006/08/ directory)`::
-;
-;   $ mkdir -p ${PROJECT_ID}/AMSU/2006/08
+; Creating an articial list of AMSU-A files::
 ;
 ;   files_list = strarr(2)

trunk/src/extract_amsuab.pro

@@ -64 +64 @@
 ; :Examples:
 ;
-;  Creating an articial list of AMSU-B and AMSU-A files (You may need to create ${PROJECT_ID}/AMSU/2006/08/ directory) ::
-;
-;   $ mkdir -p ${PROJECT_ID}/AMSU/2006/08
+;  Creating an articial list of AMSU-B and AMSU-A files::
+;
 ;   $ echo "${PROJECT_ID}/AMSU/AMSUBN15/L1C/2006/2006_08_01/NSS.AMBX.NK.D06213.S0110.E0255.B4271112.GC.L1C" > ${PROJECT_ID}/list_fileb
 ;   $ echo "${PROJECT_ID}/AMSU/AMSUBN15/L1C/2006/2006_08_01/NSS.AMBX.NK.D06213.S0250.E0437.B4271213.GC.L1C" >> ${PROJECT_ID}/list_fileb
@@ -74 +73 @@
 ; Using AMSU-B only ::
 ;
-;   IDL> use_amsua=0
-;   IDL> yyyy=2006
-;   IDL> mm=8
-;   IDL> dd=1
-;   IDL> lon_min=-60.
-;   IDL> lon_max=50.
-;   IDL> lat_min=-30.
-;   IDL> lat_max=45.
-;   IDL> extract_amsuab, yyyy, mm, dd, use_amsua, lon_min, lon_max, lat_min, lat_max
+;    use_amsua=0
+;    yyyy=2006
+;    mm=8
+;    dd=1
+;    lon_min=-60.
+;    lon_max=50.
+;    lat_min=-30.
+;    lat_max=45.
+;    extract_amsuab, yyyy, mm, dd, use_amsua, lon_min, lon_max, lat_min, lat_max
 ;
 ;   ${PROJECT_ID}/AMSU/2006/08/amsub_20060801_060w30s_050e45n.dat must have been created.
@@ -88 +87 @@
 ; Using AMSU-A and AMSU-B ::
 ;
-;   IDL> use_amsua=1
-;   IDL> yyyy=2006
-;   IDL> mm=8
-;   IDL> dd=1
-;   IDL> lon_min=-60.
-;   IDL> lon_max=50.
-;   IDL> lat_min=-30.
-;   IDL> lat_max=45.
-;   IDL> extract_amsuab, use_amsua, yyyy, mm, dd, lon_min, lon_max, lat_min, lat_max
+;    use_amsua=1
+;    yyyy=2006
+;    mm=8
+;    dd=1
+;    lon_min=-60.
+;    lon_max=50.
+;    lat_min=-30.
+;    lat_max=45.
+;    extract_amsuab, use_amsua, yyyy, mm, dd, lon_min, lon_max, lat_min, lat_max
 ;
 ;   ${PROJECT_ID}/AMSU/2006/08/amsua_amsub_20060801_060w30s_050e45n.dat must have been created.
@@ -106 +105 @@
 ; $URL$
 ;
+; - fplod 20120410
+;
+;   * build output directory if needed
+;   * remove prompt from examples
+;
 ; - lelod 20111121
-;   introduction du parametre "descending" (orbite descendante 1,
+;
+;   * introduction du parametre "descending" (orbite descendante 1,
 ;   montante 0) dans le fichier de sortie : a tester!
+;
 ; - fplod 20110818T160435Z aedon.locean-ipsl.upmc.fr (Darwin)
 ;
@@ -147 +153 @@
 ;
 ;     It was ok when path as /bdd/AMSU-1C/AMSUAN15/L1C/2006/2006_07_28/::
-;     IDL> c='/bdd/AMSU-1C/AMSUAN15/L1C/2006/2006_07_28/NSS.AMAX.NK.D06209.S1323.E1455.B4266162.GC.L1C'
-;     IDL> b=strmid(c,51)
-;     IDL> print, b
-;     IDL> NK.D06209.S1323.E1455.B4266162.GC.L1C
+;      c='/bdd/AMSU-1C/AMSUAN15/L1C/2006/2006_07_28/NSS.AMAX.NK.D06209.S1323.E1455.B4266162.GC.L1C'
+;      b=strmid(c,51)
+;      print, b
+;      NK.D06209.S1323.E1455.B4266162.GC.L1C
 ;
 ;     but now path can be anything (PROJETC_ID environment variable)
@@ -205 +211 @@
 geomin = geolocation_to_string_idl(lon_min, lat_min, look, scale)
 geomax = geolocation_to_string_idl(lon_max, lat_max, look, scale)
-fileout=project_id_env+ 'AMSU/' $
+        + string(mm,format='(I2.2)')   + '/'
+;
+fileout = project_id_env+ 'AMSU/' $
+        + string(yyyy,format='(I4.4)') + '/' $
         + string(yyyy,format='(I4.4)') + '/' $
         + string(mm,format='(I2.2)')   + '/' $
@@ -214 +223 @@
         + geomax $
         + '.dat'
+;
+; buid the directory if needed
+dirout = file_dirname(fullfilename,/MARK_DIRECTORY)
+IF (FILE_TEST(dirout, /DIRECTORY, /EXECUTABLE, /WRITE) EQ 0) THEN BEGIN
+    msg = 'www : the directory' + dirout + ' is writable.'
+    FILE_MKDIR, dirout
+ENDIF
+;
 
 print, 'ouverture pour ecriture de ', fileout

trunk/src/file_amsu_t2_to_mem.pro

@@ -39 +39 @@
 ; impression de controle : structure et 1re ligne de données::
 ;
-;  IDL> help, result, /structure
-;  IDL> print, result.data[0]
+;   help, result, /structure
+;   print, result.data[0]
 ;
 ; SEE ALSO

trunk/src/idl_amsu_netcdf.pro

@@ -45 +45 @@
 ; To produce :file:`${PROJECT_OD}/AMSU/a5_20060801_20060812_01000w2000n_00100w3000n.nc`::
 ;
-;   IDL> numch = 'a5'
-;   IDL> lons = findgen(10) - 10
-;   IDL> lats = findgen(11) + 20
-;   IDL> timesin = indgen(12) + julday(8,1,2006L)
-;   IDL> datain = findgen(size(lons,/dim), size(lats,/dim), size(timesin,/dim))
-;   IDL> idl_amsu_netcdf, numch , datain, lats, lons, timesin
+;    numch = 'a5'
+;    lons = findgen(10) - 10
+;    lats = findgen(11) + 20
+;    timesin = indgen(12) + julday(8,1,2006L)
+;    datain = findgen(size(lons,/dim), size(lats,/dim), size(timesin,/dim))
+;    idl_amsu_netcdf, numch , datain, lats, lons, timesin
 ;
 ; SEE ALSO
@@ -85 +85 @@
 ;
 ; $URL$
+;
+; - fplod 20120410
+;
+;   * build output directory if needed
+;   * remove prompt from examples
 ;
 ; - lelod 20111218
@@ -146 +151 @@
 timemax = max(timesin)
 yyyymmdde = jul2date(timemax)
-cdfout = project_id_env+ 'AMSU/' $
+cdfout = project_id_env+ 'AMSU/'
         + prefix+string(yyyymmddb,format='(I8.8)') + '_' $
         + string(yyyymmdde,format='(I8.8)') + '_' $
@@ -175 +180 @@
 ; creation du fichier netcdf de sortie
 ; --------------------------------------
+;
+; buid the directory if needed
+dirout = file_dirname(cdfout,/MARK_DIRECTORY)
+IF (FILE_TEST(dirout, /DIRECTORY, /EXECUTABLE, /WRITE) EQ 0) THEN BEGIN
+    msg = 'www : the directory' + dirout + ' is writable.'
+    FILE_MKDIR, dirout
+ENDIF
 ;
 print, 'ouverture pour ecriture de ', cdfout

trunk/src/mem_to_file_amsu_t2.pro

@@ -31 +31 @@
 ;   dd=1
 ;   testfilename=''
-;   amsu_t2 = file_amsu_t2_to_mem(yyyy, mm, dd, numch, testfilename)
+;   lon_min=-25.
+;   lon_max=25.
+;   lat_min=-5.
+;   lat_max=20.
+;   amsu_t2 = file_amsu_t2_to_mem(yyyy, mm, dd, numch, lon_min, lon_max, lat_min, lat_max, testfilename)
 ;   testfilename='./a'
 ;   result = mem_to_file_amsu_t2(amsu_t2, testfilename)
@@ -67 +71 @@
 ;
 ; $URL$
+;
+; - fplod 20120410
+;
+;   * build output directory if needed
+;   * update example
 ;
 ; - fplod 20111213T143503Z aedon.locean-ipsl.upmc.fr (Darwin)
@@ -137 +146 @@
 endelse
 ;
+; buid the directory if needed
+dirout = file_dirname(fullfilename,/MARK_DIRECTORY) 
+IF (FILE_TEST(dirout, /DIRECTORY, /EXECUTABLE, /WRITE) EQ 0) THEN BEGIN
+    msg = 'www : the directory' + dirout + ' is writable.'
+    FILE_MKDIR, dirout
+ENDIF
+
 print, 'ouverture pour ecriture de ', fullfilename
 ;