<p><b>laura@ucar.edu</b> 2011-11-21 16:55:00 -0700 (Mon, 21 Nov 2011)</p><p>fixed the model restartibility<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics/src/core_physics/module_physics_init.F
===================================================================
--- branches/atmos_physics/src/core_physics/module_physics_init.F        2011-11-21 22:56:15 UTC (rev 1205)
+++ branches/atmos_physics/src/core_physics/module_physics_init.F        2011-11-21 23:55:00 UTC (rev 1206)
@@ -73,8 +73,7 @@
 
 !initialization of global surface properties. set here for now, but may be moved when time
 !manager is implemented:
- if(.not. config_do_restart) &amp;
-    call landuse_init_forMPAS(dminfo,julday,mesh,diag_physics,sfc_input)
+ call landuse_init_forMPAS(dminfo,julday,mesh,diag_physics,sfc_input)
 
 !initialization of parameterized deep convective processes:
  if(config_conv_deep_scheme .ne. 'off') &amp;

Modified: branches/atmos_physics/src/core_physics/module_physics_landuse.F
===================================================================
--- branches/atmos_physics/src/core_physics/module_physics_landuse.F        2011-11-21 22:56:15 UTC (rev 1205)
+++ branches/atmos_physics/src/core_physics/module_physics_landuse.F        2011-11-21 23:55:00 UTC (rev 1206)
@@ -6,7 +6,8 @@
  module module_physics_landuse
  use configure,only: input_landuse_data, &amp;
                      config_sfc_albedo,  &amp;
-                     config_frac_seaice
+                     config_frac_seaice, &amp;
+                     config_do_restart
  use dmpar
  use grid_types
 
@@ -184,6 +185,11 @@
  DM_BCAST_MACRO(scfx)
  write(0,*) '--- isice   =',isice
  write(0,*) '--- iswater =',iswater
+ if(config_do_restart) then
+    write(0,*) '--- config_do_restart =', config_do_restart
+    write(0,*) '--- skip the end of landuse_init_forMPAS'
+    return
+ endif
 
 !defines the surface properties over the entire domain:
  do iCell = 1, nCells

</font>
</pre>