<p><b>laura@ucar.edu</b> 2012-01-19 09:17:38 -0700 (Thu, 19 Jan 2012)</p><p>Added control to run the parameterization of convection using the Tiedtke scheme<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics/src/core_atmos_physics/mpas_atmphys_control.F
===================================================================
--- branches/atmos_physics/src/core_atmos_physics/mpas_atmphys_control.F        2012-01-19 16:16:32 UTC (rev 1391)
+++ branches/atmos_physics/src/core_atmos_physics/mpas_atmphys_control.F        2012-01-19 16:17:38 UTC (rev 1392)
@@ -68,8 +68,9 @@
  endif
 
 !deep convection scheme:
- if(.not. (config_conv_deep_scheme .eq. 'off' .or. &amp;
-           config_conv_deep_scheme .eq. 'kain_fritsch')) then
+ if(.not. (config_conv_deep_scheme .eq. 'off'          .or. &amp;
+           config_conv_deep_scheme .eq. 'kain_fritsch' .or. &amp;
+           config_conv_deep_scheme .eq. 'tiedtke'      )) then
 
     write(mpas_err_message,'(A,A10)') 'illegal value for config_deep_conv_scheme: ', &amp;
           trim(config_conv_deep_scheme)
@@ -77,6 +78,13 @@
 
  endif
 
+!ldf (2012-01-19): Tiedtke is still under testing. do not use right now.
+ if(config_conv_deep_scheme .eq. 'tiedtke') then
+    write(mpas_err_message,'(A,A10)') 'Tiedtke is being tested. Do not use right now. Thanks ')
+    call physics_error_fatal(mpas_err_message)
+ endif
+!ldf end.
+
 !pbl scheme:
  if(.not. (config_pbl_scheme .eq. 'off' .or. &amp;
            config_pbl_scheme .eq. 'ysu')) then

</font>
</pre>