jhan_JaC_Redux_JAC_5.7_Radmaster_init_radiation

cbl_init_radiation

! Null Initializations

ExtCoeff_beam(:) = 0.0

ExtCoeff_dif(:) = 0.0

EffExtCoeff_beam(:,:) = 0.0

EffExtCoeff_dif(:,:) = 0.0

RadFbeam(:,:) = 0.0

c1(:,:) = 0.0

rhoch(:,:) = 0.0

xk(:,:) = 0.0

! Compute common scaling co-efficients used throughout init_radiation

call Common_InitRad_Scalings(....)

! Limiting Initializations for stability

Ccoszen_tols_huge = Ccoszen_tols * 1e2

Ccoszen_tols_tiny = Ccoszen_tols * 1e-2

! Define Raw extinction co-efficients for direct beam/diffuse radiation
! Largely parametrized per PFT. Does depend on zenith angle and effective LAI 
! [Formerly rad%extkb, rad%extkd]  

call ExtinctionCoeff(....)

! Define effective Extinction co-efficient for direct beam/diffuse radiation
! Extincion Co-eff defined by parametrized leaf reflect(transmit)ance - used in
! canopy transmitance calculations (cbl_albeo)
! [Formerly rad%extkbm, rad%extkdm ]

call EffectiveExtinctCoeffs(....)

! Offline/standalone forcing gives us total downward Shortwave. We have
! previosuly, arbitratily split this into NIR/VIS (50/50). We use 
! Spitter function to split these bands into direct beam and diffuse components

IF( cbl_standalone .OR. jls_standalone .AND. .NOT. jls_radiation ) &

CALL BeamFraction(....)