<p><b>laura@ucar.edu</b> 2012-03-26 09:56:49 -0600 (Mon, 26 Mar 2012)</p><p>corrected the physics driver in accordance to the changes made to the driver for the parameterization of convection.<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics/src/core_atmos_physics/mpas_atmphys_driver.F
===================================================================
--- branches/atmos_physics/src/core_atmos_physics/mpas_atmphys_driver.F 2012-03-26 15:55:22 UTC (rev 1718)
+++ branches/atmos_physics/src/core_atmos_physics/mpas_atmphys_driver.F 2012-03-26 15:56:49 UTC (rev 1719)
@@ -12,7 +12,7 @@
use mpas_atmphys_driver_sfclayer
use mpas_atmphys_constants
use mpas_atmphys_update
- use mpas_atmphys_vars
+ use mpas_atmphys_vars, only: l_camlw,l_conv,l_radtlw,l_radtsw
#ifdef non_hydrostatic_core
use mpas_atmphys_interface_nhyd
#elif hydrostatic_core
@@ -119,15 +119,15 @@
endif
!call to convection scheme:
- if(config_conv_deep_scheme .ne. 'off') then
+ call update_convection_step1(block%mesh,block%diag_physics,block%tend_physics)
+ if(l_conv) then
call allocate_convection_deep
call driver_convection_deep(itimestep,block%mesh,block%sfc_input,block%diag_physics, &
block%tend_physics)
call deallocate_convection_deep
-
- !update diagnostics:
- call update_convection_deep(config_bucket_rainc,block%mesh,block%diag_physics)
endif
+ !update diagnostics:
+ call update_convection_step2(config_bucket_rainc,block%mesh,block%diag_physics)
!deallocate arrays shared by all physics parameterizations:
call deallocate_forall_physics
</font>
</pre>