[Dart-dev] [4160] DART/trunk/models/bgrid_solo/fms_src/shared/topography/topography. f90: The xlf compiler complains unless 'elsewhere' is a single

[nancy at ucar.edu]

Revision: 4160
Author:   nancy
Date:     2009-11-25 10:10:39 -0700 (Wed, 25 Nov 2009)
Log Message:
-----------
The xlf compiler complains unless 'elsewhere' is a single
word instead of 'else where'.  go figure.

Modified Paths:
--------------
    DART/trunk/models/bgrid_solo/fms_src/shared/topography/topography.f90

-------------- next part --------------
Modified: DART/trunk/models/bgrid_solo/fms_src/shared/topography/topography.f90
===================================================================
--- DART/trunk/models/bgrid_solo/fms_src/shared/topography/topography.f90	2009-11-24 22:22:32 UTC (rev 4159)
+++ DART/trunk/models/bgrid_solo/fms_src/shared/topography/topography.f90	2009-11-25 17:10:39 UTC (rev 4160)
@@ -358,7 +358,7 @@
  if ( get_ocean_frac(blon, blat, ocean_frac) ) then
    where (ocean_frac > 0.50)
      ocean_mask = .true.
-   else where
+   elsewhere
      ocean_mask = .false.
    end where
    get_ocean_mask = .true.
@@ -470,7 +470,7 @@
  if ( get_water_frac(blon, blat, water_frac) ) then
    where (water_frac > 0.50)
      water_mask = .true.
-   else where
+   elsewhere
      water_mask = .false.
    end where
    get_water_mask = .true.