<p><b>laura@ucar.edu</b> 2011-10-17 13:49:06 -0600 (Mon, 17 Oct 2011)</p><p>added controls related to the parameterization of the cloud fraction<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics/src/core_physics/module_physics_control.F
===================================================================
--- branches/atmos_physics/src/core_physics/module_physics_control.F        2011-10-17 19:17:20 UTC (rev 1098)
+++ branches/atmos_physics/src/core_physics/module_physics_control.F        2011-10-17 19:49:06 UTC (rev 1099)
@@ -41,6 +41,7 @@
  write(0,*) '    config_eddy_scheme         = ', config_eddy_scheme
  write(0,*) '    config_lsm_scheme          = ', config_lsm_scheme
  write(0,*) '    config_pbl_scheme          = ', config_pbl_scheme
+ write(0,*) '    config_radt_cld_scheme     = ', config_radt_cld_scheme
  write(0,*) '    config_radt_lw_scheme      = ', config_radt_lw_scheme
  write(0,*) '    config_radt_sw_scheme      = ', config_radt_sw_scheme
  write(0,*) '    config_sfclayer_scheme     = ', config_sfclayer_scheme
@@ -96,7 +97,7 @@
  endif
 
 !lw radiation scheme:
- if(.not. (config_radt_lw_scheme .eq. 'off '   .or. &amp;
+ if(.not. (config_radt_lw_scheme .eq. 'off'    .or. &amp;
            config_radt_lw_scheme .eq. 'cam_lw' .or. &amp;
            config_radt_lw_scheme .eq. 'rrtmg_lw')) then
  
@@ -107,7 +108,7 @@
  endif
 
 !sw radiation scheme:
- if(.not. (config_radt_sw_scheme .eq. 'off '   .or. &amp;
+ if(.not. (config_radt_sw_scheme .eq. 'off'    .or. &amp;
            config_radt_sw_scheme .eq. 'cam_sw' .or. &amp;
            config_radt_sw_scheme .eq. 'rrtmg_sw')) then
  
@@ -117,8 +118,32 @@
 
  endif
 
+!cloud fraction for radiation schemes:
+ if(.not. (config_radt_cld_scheme .eq. 'off'           .or. &amp;
+           config_radt_cld_scheme .eq. 'cld_incidence' .or. &amp;
+           config_radt_cld_scheme .eq. 'cld_fraction')) then
+
+    write(mpas_err_message,'(A,A10)') 'illegal value for calculation of cloud fraction: ', &amp;
+          trim(config_radt_cld_scheme)
+    call physics_error_fatal(mpas_err_message)
+
+ endif
+ if((config_radt_lw_scheme.ne.'off' .and. config_radt_cld_scheme.eq.'off') .or. &amp;
+    (config_radt_sw_scheme.ne.'off' .and. config_radt_cld_scheme.eq.'off')) then
+
+    write(0,*)
+    write(mpas_err_message,'(A,A10)') &amp;
+       '    config_radt_cld_scheme is not set for radiation calculation'
+    call physics_message(mpas_err_message)
+    write(mpas_err_message,'(A,A10)') &amp;
+       '    switch calculation of cloud fraction to config_radt_cld_scheme = cld_incidence'
+    call physics_message(mpas_err_message)
+    config_radt_cld_scheme = &quot;cld_incidence&quot;
+
+ endif
+
 !surface-layer scheme:
- if(.not. (config_sfclayer_scheme .eq. 'off ' .or. &amp;
+ if(.not. (config_sfclayer_scheme .eq. 'off'  .or. &amp;
            config_sfclayer_scheme .eq. 'monin_obukhov')) then
  
     write(mpas_err_message,'(A,A10)') 'illegal value for surface layer scheme: ', &amp;
@@ -132,7 +157,7 @@
  if(config_lsm_scheme .ne. 'off' .and. config_sfclayer_scheme .eq. 'off') then
  
     call physics_error_fatal('land surface scheme: ' // &amp;
-                             'set config_sfclayer_scheme different than &quot;off&quot;')
+                             'set config_sfclayer_scheme different than off')
     
  elseif(.not. (config_lsm_scheme .eq. 'off ' .or. &amp;
                config_lsm_scheme .eq. 'noah')) then

</font>
</pre>