KuljeetMaan: kappa for band is now based on kappa_effective

Author: KuljeetMaan

Source/radi.f90

@@ -3294,7 +3294,7 @@ SUBROUTINE INIT_RADIATION
                   IF (NSB==1 .AND. PATH_LENGTH > 0.0_EB) THEN
                      RADCAL_SPECIES2KAPPA(NS,J,K,1) = MIN(AMEAN,AP0)
                   ELSE
-                     RADCAL_SPECIES2KAPPA(NS,J,K,IBND) = AP0/BBF
+                     RADCAL_SPECIES2KAPPA(NS,J,K,IBND) = AMEAN/BBF
                   ENDIF
                END DO RADCAL_SPECIES_LOOP
             ENDDO Y_LOOP_Z