reduce loop bounds on hi-frequency radiation history updates

[rgknox]

Description:

Changed loop bounds in history writing to use actual rather than maximum canopy layers and leaf layers.

fixes: #755

Collaborators:

Expectation of Answer Changes:

Should be B4B

Checklist:

• I have read the CONTRIBUTING document.
• FATES PASS/FAIL regression tests were run
• If answers were expected to change, evaluation was performed and provided

Test Results:

TBD

CTSM (or) E3SM (specify which) test hash-tag:

CTSM (or) E3SM (specify which) baseline hash-tag:

FATES baseline hash-tag:

Test Output:

[rgknox]

Note: I did check through the call sequence, particularly during restarts, to make sure that cpatch%ncl_p and
cpatch%ncan(ican,ipft) had been updated and set before this call.
Also, in earlier tests, this gave me b4b answers with the base.

[ckoven]

Looks good to me. Thanks @rgknox!

[rgknox]

Tests pass, b4b:
/glade/scratch/rgknox/tests_1010-151719ch