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