Changeset 163
- Timestamp:
- 03/19/12 09:00:25 (12 years ago)
- Location:
- trunk/src
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/src/cm_project.pro
r97 r163 24 24 ; $URL$ 25 25 ; 26 ; - fplod 20120319 27 ; 28 ; * add project_overwrite 29 ; 26 30 ; - fplod 20110411T082258Z cratos.locean-ipsl.upmc.fr (Linux) 27 31 ; … … 29 33 ; 30 34 ;- 31 COMMON project, project_env, project_id_env, project_od_env 35 COMMON project, project_env, project_id_env, project_od_env, project_overwrite -
trunk/src/interp_erai_t2m.pro
r156 r163 138 138 ; see :func:`file_interp <saxo:file_interp>` 139 139 ; 140 ; use as input a file produced by compute_erai_daily_region_2d.sh or 140 ; use as input a file produced by compute_erai_daily_region_2d.sh or 141 141 ; get_erai.py + grib to netcdf conversion 142 142 ; … … 165 165 ; 166 166 ; $URL: svn+ssh://pinsard@forge.ipsl.jussieu.fr/ipsl/forge/projets/tropflux/svn/trunk/src/interp_erai_t2m.pro $ 167 ; 168 ; - fplod 20120319 169 ; 170 ; * taking project_overwite into account 167 171 ; 168 172 ; - fplod 20120306 … … 335 339 fullfilename_out = iodirout + filename_out 336 340 ; in order to avoid unexpected overwritten 337 IF ( FILE_TEST(fullfilename_out) EQ 1) THEN BEGIN341 IF ((FILE_TEST(fullfilename_out) EQ 1) AND (project_overwrite EQ 0)) THEN BEGIN 338 342 msg = 'eee : the file ' + fullfilename_out + ' already exists.' 339 343 ras = report(msg) -
trunk/src/oaflux_mask_30n30s.pro
r156 r163 36 36 ; } 37 37 ; 38 ; :returns: 0 if ok, 38 ; :returns: 0 if ok, -1 if error 39 39 ; :rtype: integer 40 40 ; … … 87 87 ; 88 88 ; global attributes corrections : 89 ; 89 90 ; - written now : OAFLUX mask over the Indian Ocean: 40E-120E, 30S-30N 90 91 ; - while data latitude=[-29.5,+29.5] longitude=[30.5,379.5] … … 104 105 ; 105 106 ; $URL$ 107 ; 108 ; - fplod 20120319 109 ; 110 ; * taking project_overwite into account 106 111 ; 107 112 ; - fplod 20120306 … … 173 178 fullfilename_out=project_od_env+'mask_oaflux_30N30S.nc' 174 179 ; in order to avoid unexpected overwritten 175 IF (FILE_TEST(fullfilename_out) EQ 1) THEN BEGIN 180 PRINT, 'project_overwrite : ',project_overwrite 181 IF ((FILE_TEST(fullfilename_out) EQ 1) AND (project_overwrite EQ 0)) THEN BEGIN 176 182 msg = 'eee : the file ' + fullfilename_out + ' already exists.' 177 183 ras = report(msg) -
trunk/src/project_init.pro
- Property svn:keywords set to Id URL
r99 r163 10 10 ; =========== 11 11 ; 12 ; This is the SAXO initialisation file. 12 ; This is the IDL/:ref:<saxo:saxo> initialisation file. 13 ; 14 ; .. note:: 15 ; 16 ; **project_overwrite** is here set to ``0`` : Existing files won't be 17 ; overwritten. It might be set 18 ; to ``1`` when you want to overwrite existing files in IDL process. 13 19 ; 14 20 ; It ++:: … … 17 23 ; 18 24 ; or:: 25 ; 19 26 ; $ idl -IDL_STARTUP project_init.pro 20 27 ; … … 42 49 ; 43 50 ; $URL$ 51 ; 52 ; - fplod 20120319 53 ; 54 ; * define a overwrite status 44 55 ; 45 56 ; - fplod 20110429T081938Z aedon.locean-ipsl.upmc.fr (Darwin) … … 85 96 project_od_env=project_od_env_temp 86 97 ; 87 ; compatibility with the old version 98 ; define overwrite status 99 project_overwrite = 0 100 ; 101 ; compatibility with the old version of SAXO 88 102 ; 89 103 keep_compatibility, 0 -
trunk/src/tropflux.sh
r155 r163 110 110 # 111 111 # $URL$ 112 # 113 # - pinsard 20120319 114 # 115 # * add project_overwrite usage 112 116 # 113 117 # - pinsard 20120306 … … 278 282 pro tropflux_${$} 279 283 compile_opt idl2, strictarrsubs, logical_predicate 284 @cm_project 285 ; 286 ; define overwrite status 287 ; set to 1 to overwrite existing files 288 project_overwrite = 0 289 ; 280 290 result = oaflux_mask_30n30s() 281 291 IF result < 0 THEN BEGIN … … 321 331 ${IDL_CMD} << EOF >> ${log} 2>&1 322 332 .compile file_interp 333 ; 323 334 tropflux_${$} 324 335 EOF
Note: See TracChangeset
for help on using the changeset viewer.