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