User: diener Date: 2010/08/17 10:22 AM
Modified: /trunk/src/ smooth.F90
Log: Replace an 'else where' with 'elsewhere'. I wonder why more compilers have not complained about this.
File Changes:
Directory: /trunk/src/ ======================
File [modified]: smooth.F90 Delta lines: +1 -1 =================================================================== --- trunk/src/smooth.F90 2010-07-12 14:50:48 UTC (rev 26) +++ trunk/src/smooth.F90 2010-08-17 15:22:11 UTC (rev 27) @@ -42,7 +42,7 @@ & ((z - cz) / radz)**2) where (mask <= 0) mask = 0 ! outside - else where (mask >= smoothing_zone_width(n)) + elsewhere (mask >= smoothing_zone_width(n)) mask = 1 ! far inside elsewhere mask = mask / smoothing_zone_width(n) ! a bit inside