2 calls to
FIND_PBL_TOP

ATM_DIFFUS
ATM_DIFFUS