Searched refs:rhosu (Results 1 – 1 of 1) sorted by relevance
167 REAL(KIND=r8) :: rhosu ! typical 850mn air density variable206 READ(UNIT=kgen_unit) rhosu644 rhof = (rhosu/rho)**0.54_r8648 ain = ai*(rhosu/rho)**0.35_r8