[Dart-dev] [4543] DART/trunk/models/POP/model_mod.f90: Make sure the function get_val( ) always sets a return value, even though

[nancy at ucar.edu]

Revision: 4543
Author:   nancy
Date:     2010-10-26 13:48:50 -0600 (Tue, 26 Oct 2010)
Log Message:
-----------
Make sure the function get_val() always sets a return value, even though 
it will be ignored for points outside the wet part of the grid.  
This actually caused a run-time error for one fortran compiler.

Modified Paths:
--------------
    DART/trunk/models/POP/model_mod.f90

-------------- next part --------------
Modified: DART/trunk/models/POP/model_mod.f90
===================================================================
--- DART/trunk/models/POP/model_mod.f90	2010-10-25 21:13:28 UTC (rev 4542)
+++ DART/trunk/models/POP/model_mod.f90	2010-10-26 19:48:50 UTC (rev 4543)
@@ -1092,6 +1092,7 @@
 ! check the land/ocean bottom map and return if not valid water cell.
 if(is_dry_land(var_type, lon_index, lat_index, height)) then
    masked = .true.
+   get_val = MISSING_R8
    return
 endif