CALL WRITE_0D_R8( diffKrBL79deep, INDEX_NONE,'diffKrBL79deep =',
& diffKrBL79surf, diffKrBL79deep, diffKrBL79scl, diffKrBL79Ho,
KbryanLewis79=diffKrBL79surf+(diffKrBL79deep-diffKrBL79surf)
_RL diffKrBL79deep
diffKrBL79deep = 0.D0