<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) &
- 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') &
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, &
config_sfc_albedo, &
- config_frac_seaice
+ config_frac_seaice, &
+ 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>