<p><b>mhoffman@lanl.gov</b> 2012-07-02 13:22:41 -0600 (Mon, 02 Jul 2012)</p><p>BRANCH COMMIT -- land ice<br>
Fix to my last commit which was a "Fix for using option to prevent ice from advancing beyond initial extent."<br>
</p><hr noshade><pre><font color="gray">Modified: branches/land_ice_projects/implement_core/src/core_land_ice/mpas_land_ice_mask.F
===================================================================
--- branches/land_ice_projects/implement_core/src/core_land_ice/mpas_land_ice_mask.F 2012-07-02 18:08:26 UTC (rev 2007)
+++ branches/land_ice_projects/implement_core/src/core_land_ice/mpas_land_ice_mask.F 2012-07-02 19:22:41 UTC (rev 2008)
@@ -104,16 +104,14 @@
cellMask => state % cellMask % array
thickness => state % thickness % array
- cellMask = 0
-
- if (config_allow_additional_advance .eqv. .false.) then ! Need to save a mask of the initial ice extent
- if (config_do_restart .eqv. .false.) then ! We only want to set this bit of the mask when a new simulation starts, but not during a restart.
+ if (config_do_restart .eqv. .false.) then ! We only want to set this bit of the mask when a new simulation starts, but not during a restart.
+ cellMask = 0
+ if (config_allow_additional_advance .eqv. .false.) then ! Need to save a mask of the initial ice extent
! Bit 8: Identify points without ice initially
where (thickness == 0.0)
cellMask = MASK_VALUE_INITIALLY_NOT_ICE
end where
endif
-
endif
</font>
</pre>