Changeset 280
- Timestamp:
- 09/12/07 17:40:51 (17 years ago)
- Location:
- trunk/SRC
- Files:
-
- 3 edited
-
Commons/cm_general.pro (modified) (1 diff)
-
ToBeReviewed/GRILLE/domdef.pro (modified) (12 diffs)
-
Utilities/find.pro (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/Commons/cm_general.pro
r238 r280 7 7 ; 8 8 COMMON directories, homedir, iodir, animdir, psdir, imagedir, myuniquetmpdir 9 COMMON key_general, key_performance, key_forgetold, key_vm 9 COMMON key_general, key_performance, key_forgetold, key_vm, key_gdl 10 10 ; -
trunk/SRC/ToBeReviewed/GRILLE/domdef.pro
r268 r280 252 252 IF (dom[0] EQ -1) THEN BEGIN 253 253 IF keyword_set(findalways) THEN BEGIN 254 ras = report('WARNING, empty T points box... we get the neigh nors to define a new box...')254 ras = report('WARNING, empty T points box... we get the neighbors to define a new box...') 255 255 neig1 = neighbor(lon1, lat1, glamt, gphit, sphere = keyword_set(key_onearth) * keyword_set(key_irregular)) 256 256 neig2 = neighbor(lon2, lat2, glamt, gphit, sphere = keyword_set(key_onearth) * keyword_set(key_irregular)) … … 293 293 END 294 294 ELSE:BEGIN 295 ras = report('WARNING, empty U points box... we get the neigh nors to define a new box...')295 ras = report('WARNING, empty U points box... we get the neighbors to define a new box...') 296 296 neig1 = neighbor(lon1, lat1, glamu, gphiu, sphere = keyword_set(key_onearth) * keyword_set(key_irregular)) 297 297 neig2 = neighbor(lon2, lat2, glamu, gphiu, sphere = keyword_set(key_onearth) * keyword_set(key_irregular)) … … 341 341 END 342 342 ELSE:BEGIN 343 ras = report('WARNING, empty V points box... we get the neigh nors to define a new box...')343 ras = report('WARNING, empty V points box... we get the neighbors to define a new box...') 344 344 neig1 = neighbor(lon1, lat1, glamv, gphiv, sphere = keyword_set(key_onearth) * keyword_set(key_irregular)) 345 345 neig2 = neighbor(lon2, lat2, glamv, gphiv, sphere = keyword_set(key_onearth) * keyword_set(key_irregular)) … … 394 394 END 395 395 ELSE:BEGIN 396 ras = report('WARNING, empty F points box... we get the neigh nors to define a new box...')396 ras = report('WARNING, empty F points box... we get the neighbors to define a new box...') 397 397 neig1 = neighbor(lon1, lat1, glamf, gphif, sphere = keyword_set(key_onearth) * keyword_set(key_irregular)) 398 398 neig2 = neighbor(lon2, lat2, glamf, gphif, sphere = keyword_set(key_onearth) * keyword_set(key_irregular)) … … 501 501 IF (dom[0] EQ -1) THEN BEGIN 502 502 IF keyword_set(findalways) THEN BEGIN 503 ras = report('WARNING, empty T points box... we get the neigh nors to define a new box...')503 ras = report('WARNING, empty T points box... we get the neighbors to define a new box...') 504 504 neig1 = neighbor(lon1, lat1, glamt[fstx:lstx, *], gphit[fstx:lstx, *], sphere = keyword_set(key_onearth) * keyword_set(key_irregular)) 505 505 neig2 = neighbor(lon2, lat2, glamt[fstx:lstx, *], gphit[fstx:lstx, *], sphere = keyword_set(key_onearth) * keyword_set(key_irregular)) … … 536 536 END 537 537 ELSE:BEGIN 538 ras = report('WARNING, empty U points box... we get the neigh nors to define a new box...')538 ras = report('WARNING, empty U points box... we get the neighbors to define a new box...') 539 539 neig1 = neighbor(lon1, lat1, glamu[fstx:lstx, *], gphiu[fstx:lstx, *], sphere = keyword_set(key_onearth) * keyword_set(key_irregular)) 540 540 neig2 = neighbor(lon2, lat2, glamu[fstx:lstx, *], gphiu[fstx:lstx, *], sphere = keyword_set(key_onearth) * keyword_set(key_irregular)) … … 578 578 END 579 579 ELSE:BEGIN 580 ras = report('WARNING, empty V points box... we get the neigh nors to define a new box...')580 ras = report('WARNING, empty V points box... we get the neighbors to define a new box...') 581 581 neig1 = neighbor(lon1, lat1, glamv[fstx:lstx, *], gphiv[fstx:lstx, *], sphere = keyword_set(key_onearth) * keyword_set(key_irregular)) 582 582 neig2 = neighbor(lon2, lat2, glamv[fstx:lstx, *], gphiv[fstx:lstx, *], sphere = keyword_set(key_onearth) * keyword_set(key_irregular)) … … 624 624 END 625 625 ELSE:BEGIN 626 ras = report('WARNING, empty F points box... we get the neigh nors to define a new box...')626 ras = report('WARNING, empty F points box... we get the neighbors to define a new box...') 627 627 neig1 = neighbor(lon1, lat1, glamf[fstx:lstx, *], gphif[fstx:lstx, *], sphere = keyword_set(key_onearth) * keyword_set(key_irregular)) 628 628 neig2 = neighbor(lon2, lat2, glamf[fstx:lstx, *], gphif[fstx:lstx, *], sphere = keyword_set(key_onearth) * keyword_set(key_irregular)) … … 669 669 IF (dom[0] EQ -1) THEN BEGIN 670 670 IF keyword_set(findalways) THEN BEGIN 671 ras = report('WARNING, empty T points box... we get the neigh nors to define a new box...')671 ras = report('WARNING, empty T points box... we get the neighbors to define a new box...') 672 672 neig1 = neighbor(lon1, lat1, glamt[*, fsty:lsty], gphit[*, fsty:lsty], sphere = keyword_set(key_onearth) * keyword_set(key_irregular)) 673 673 neig2 = neighbor(lon2, lat2, glamt[*, fsty:lsty], gphit[*, fsty:lsty], sphere = keyword_set(key_onearth) * keyword_set(key_irregular)) … … 704 704 END 705 705 ELSE:BEGIN 706 ras = report('WARNING, empty U points box... we get the neigh nors to define a new box...')706 ras = report('WARNING, empty U points box... we get the neighbors to define a new box...') 707 707 neig1 = neighbor(lon1, lat1, glamu[*, fsty:lsty], gphiu[*, fsty:lsty], sphere = keyword_set(key_onearth) * keyword_set(key_irregular)) 708 708 neig2 = neighbor(lon2, lat2, glamu[*, fsty:lsty], gphiu[*, fsty:lsty], sphere = keyword_set(key_onearth) * keyword_set(key_irregular)) … … 746 746 END 747 747 ELSE:BEGIN 748 ras = report('WARNING, empty V points box... we get the neigh nors to define a new box...')748 ras = report('WARNING, empty V points box... we get the neighbors to define a new box...') 749 749 neig1 = neighbor(lon1, lat1, glamv[*, fsty:lsty], gphiv[*, fsty:lsty], sphere = keyword_set(key_onearth) * keyword_set(key_irregular)) 750 750 neig2 = neighbor(lon2, lat2, glamv[*, fsty:lsty], gphiv[*, fsty:lsty], sphere = keyword_set(key_onearth) * keyword_set(key_irregular)) … … 792 792 END 793 793 ELSE:BEGIN 794 ras = report('WARNING, empty F points box... we get the neigh nors to define a new box...')794 ras = report('WARNING, empty F points box... we get the neighbors to define a new box...') 795 795 neig1 = neighbor(lon1, lat1, glamf[*, fsty:lsty], gphif[*, fsty:lsty], sphere = keyword_set(key_onearth) * keyword_set(key_irregular)) 796 796 neig2 = neighbor(lon2, lat2, glamf[*, fsty:lsty], gphif[*, fsty:lsty], sphere = keyword_set(key_onearth) * keyword_set(key_irregular)) -
trunk/SRC/Utilities/find.pro
r260 r280 116 116 ; define where we look for the file 117 117 cd, current = current 118 current = (file_search(current, /test_directory, /mark_directory))[0]118 current = current + path_sep() 119 119 CASE 1 OF 120 120 keyword_set(lookalldir):BEGIN
Note: See TracChangeset
for help on using the changeset viewer.
