& diffKrBL79surf, diffKrBL79deep, diffKrBL79scl, diffKrBL79Ho,
_RL diffKrBL79surf
KbryanLewis79=diffKrBL79surf+(diffKrBL79deep-diffKrBL79surf)
CALL WRITE_0D_RL( diffKrBL79surf, INDEX_NONE,'diffKrBL79surf =',
IF (diffKrBLEQsurf .EQ. UNSET_RL) diffKrBLEQsurf = diffKrBL79surf
diffKrBL79surf = 0. _d 0