Removed cloud-fraction rounding. Was using for debugging purposes.

SamuelTrahanNOAA · Feb 12, 2020 · 54a38d9 · 54a38d9
1 parent b1e111f
commit 54a38d9
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 9 deletions.
diff --git a/physics/rrtmgp_lw_cloud_sampling.F90 b/physics/rrtmgp_lw_cloud_sampling.F90
@@ -104,15 +104,12 @@ subroutine rrtmgp_lw_cloud_sampling_run(doLWrad, nCol, nLev, ipsdlw0, icseed_lw,
        rng3D(:,:,iCol) = reshape(source = rng1D,shape=[lw_gas_props%get_ngpt(),nLev])
     enddo
 
-    ! Test: Remove McICA sampling error by setting cloud-fraction to one.
-    cld_frac_noSamp = ceiling(cld_frac)
-
     ! Call McICA
     select case ( iovrlw )
     case(0)
        ! Maximumn-random 
     case(1)
-       call check_error_msg('rrtmgp_lw_cloud_sampling_run',sampled_mask_max_ran(rng3D,cld_frac_noSamp,cldfracMCICA))       
+       call check_error_msg('rrtmgp_lw_cloud_sampling_run',sampled_mask_max_ran(rng3D,cld_frac,cldfracMCICA))       
     end select
 
     ! Map band optical depth to each g-point using McICA

diff --git a/physics/rrtmgp_sw_cloud_sampling.F90 b/physics/rrtmgp_sw_cloud_sampling.F90
@@ -109,15 +109,11 @@ subroutine rrtmgp_sw_cloud_sampling_run(doSWrad, nCol, nDay, nLev, ipsdsw0, idxd
           rng3D(:,:,iCol) = reshape(source = rng1D,shape=[sw_gas_props%get_ngpt(),nLev])
        enddo
 
-
-       ! Test: Remove McICA sampling error by setting cloud-fraction to one.
-       cld_frac_noSamp = ceiling(cld_frac)
-
        ! Call McICA
        select case ( iovrsw )
           ! Maximumn-random 
        case(1)
-          call check_error_msg('rrtmgp_sw_cloud_sampling_run',sampled_mask_max_ran(rng3D,cld_frac_noSamp,cldfracMCICA))       
+          call check_error_msg('rrtmgp_sw_cloud_sampling_run',sampled_mask_max_ran(rng3D,cld_frac,cldfracMCICA))       
        end select
 
        ! Map band optical depth to each g-point using McICA