1 !---------------------------------------------------------------------- 2 SUBROUTINE LUMP(UA,TA,F) 3 !---------------------------------------------------------------------- 4 ! 5 ! --- PRIME Version: 1.0 Level: 970812 LUMP 6 ! X.(J.) Zhang, J. Scire, EARTH TECH 7 ! 8 ! --- PURPOSE: Calculate the lumped variables 9 ! 10 ! --- INPUTS: 11 ! UA - real - Current ambient wind speed (m/s) 12 ! TA - real - Current ambient air temperature (K) 13 ! 14 ! --- OUTPUT: 15 ! F(7) - real - lumped variables 16 ! 17 ! --- LUMP called by: NUMRISE 18 ! --- LUMP calls: none 19 !---------------------------------------------------------------------- 20 COMMON /PLU / S , X , Y , Z , R , U , V , W , USC , PHI , DEN , & 21 & TP 22 DIMENSION F(7) 23 F(1) = DEN*USC*R*R ! 6088 24 F(2) = F(1)*(U-UA) 25 F(3) = F(1)*W 26 F(4) = F(1)*(TP-TA) 27 F(5) = Z 28 F(6) = X 29 F(7) = Y 30 CONTINUE 31 END
HyperKWIC - Version 1.00DD executed at 20:00 on 1 Mar 2018 | Personal or Academic or Evaluation User | Free for Non-Commercial, Non-Government Use