_RL groundLevel_atm
groundLevel_atm = 1. _d 5
& Hatm(I,J,bi,bj) .NE. groundLevel_atm ) THEN
groundLevel_atm = Ro_SeaLevel
& Ro_surf(I,J,bi,bj) .NE. groundLevel_atm ) THEN