<p><b>laura@ucar.edu</b> 2011-01-14 09:37:13 -0700 (Fri, 14 Jan 2011)</p><p>updated sourcecode with physics<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics/src/core_nhyd_atmos/module_mpas_core.F
===================================================================
--- branches/atmos_physics/src/core_nhyd_atmos/module_mpas_core.F 2011-01-14 16:09:05 UTC (rev 696)
+++ branches/atmos_physics/src/core_nhyd_atmos/module_mpas_core.F 2011-01-14 16:37:13 UTC (rev 697)
@@ -85,13 +85,17 @@
!proceed with initialization of physics parameterization if moist_physics is set to true:
if(moist_physics) then
-!initialization of all physics variables in registry:
+ !initialization of all physics variables in registry:
call physics_registry_init(config_do_restart, mesh, block % diag_physics, block % tend_physics)
call physics_wrf_interface(mesh)
- call physics_init(dminfo, mesh, block % state % time_levs(1) % state, block % diag_physics)
-!initialization of some surface variables (temporary):
- call physics_aquaplanet_init(mesh, block % diag_physics)
+ !initialization of some surface variables (temporary):
+ call physics_aquaplanet_init(mesh, block % diag_physics, block % sfc_input)
+
+ !initialization of all physics:
+ call physics_init(dminfo, mesh, block % state % time_levs(1) % state, block % diag_physics, &
+ block % sfc_physics, block % sfc_input)
+
endif
#endif
</font>
</pre>