Fix mix in precisions.

earth-system-radiation · Dec 14, 2024 · e55d549 · e55d549
1 parent 5954bc8
commit e55d549
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/rrtmgp-kernels/mo_gas_optics_rrtmgp_kernels.F90 b/rrtmgp-kernels/mo_gas_optics_rrtmgp_kernels.F90
@@ -149,7 +149,7 @@ subroutine interpolation( &
             else
               eta = 0.5_wp
             endif
-            loceta = eta * float(neta-1)
+            loceta = eta * real(neta-1, wp)
             jeta(itemp,icol,ilay,iflav) = min(int(loceta)+1, neta-1)
             feta = loceta - aint(loceta)
             ! compute interpolation fractions needed for minor species