Bug fix.

climbfuji · Jan 21, 2020 · 320907f · 320907f
1 parent 64691a6
commit 320907f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/physics/rrtmgp_lw_cloud_sampling.F90 b/physics/rrtmgp_lw_cloud_sampling.F90
@@ -1,7 +1,7 @@
 module rrtmgp_lw_cloud_sampling
   use machine,                  only: kind_phys
   use mo_gas_optics_rrtmgp,     only: ty_gas_optics_rrtmgp
-  use physparam,                only: isubcsw, iovrsw
+  use physparam,                only: isubclw, iovrlw
   use mo_optical_props,         only: ty_optical_props_1scl
   use mo_cloud_sampling,        only: sampled_mask_max_ran, sampled_mask_exp_ran, draw_samples
   use mersenne_twister,         only: random_setseed, random_number, random_stat