Symbol Description Uses
UG thermal wind of atmosphere 50


File Line number Procedure Code
./pkg/seaice/seaice_budget_ice_if.F 245 SEAICE_BUDGET_ICE_IF 
           dFiDTs1 = 4.0 * D3*t3 + effConduct + D1*UG(I,J) +
./pkg/seaice/seaice_budget_ice_if.F 246 SEAICE_BUDGET_ICE_IF 
     &        D1I*UG(I,J)*dqhice_dTice
./pkg/seaice/seaice_budget_ice_if.F 249 SEAICE_BUDGET_ICE_IF 
           F_lh(I,J)    = D1I * UG(I,J) * (qhice_mm(I,J)-AQH(I,J,bi,bj))
./pkg/seaice/seaice_budget_ice_if.F 252 SEAICE_BUDGET_ICE_IF 
           F_sens(I,J)  = D1 * UG(I,J) * (t1 - atempLoc(I,J))
./pkg/seaice/seaice_budget_ice_if.F 294 SEAICE_BUDGET_ICE_IF 
          F_lh(I,J)    = D1I * UG(I,J) * (qhice_mm(I,J)-AQH(I,J,bi,bj))
./pkg/seaice/seaice_budget_ice_if.F 297 SEAICE_BUDGET_ICE_IF 
          F_sens(I,J)  = D1 * UG(I,J) * (t1 - atempLoc(I,J))
./pkg/seaice/seaice_budget_ice_if.F 46 SEAICE_BUDGET_ICE_IF 
      _RL UG         (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/seaice/seaice_budget_ice_if.F 8 SEAICE_BUDGET_ICE_IF 
     I     UG, HICE_ACTUAL, HSNOW_ACTUAL,
./pkg/seaice/seaice_budget_ocean.F 109 SEAICE_BUDGET_OCEAN 
     &       +D1*UG(I,J)*atempLoc(I,J)+D1W*UG(I,J)*AQH(I,J,bi,bj)
./pkg/seaice/seaice_budget_ocean.F 113 SEAICE_BUDGET_OCEAN 
        A2(I,J)=-D1*UG(I,J)*tsurfLoc(I,J)-D1W*UG(I,J)*B(I,J)
./pkg/seaice/seaice_budget_ocean.F 43 SEAICE_BUDGET_OCEAN 
      _RL UG         (1:sNx,1:sNy)
./pkg/seaice/seaice_budget_ocean.F 8 SEAICE_BUDGET_OCEAN 
     I     UG,
./pkg/seaice/seaice_budget_ocean_if.F 133 SEAICE_BUDGET_OCEAN_IF 
     &       +D1*UG(I,J)*atempLoc(I,J)+D1W*UG(I,J)*AQH(I,J,bi,bj)
./pkg/seaice/seaice_budget_ocean_if.F 137 SEAICE_BUDGET_OCEAN_IF 
        A2(I,J)=-D1*UG(I,J)*tsurfLoc(I,J)-D1W*UG(I,J)*B(I,J)
./pkg/seaice/seaice_budget_ocean_if.F 45 SEAICE_BUDGET_OCEAN_IF 
      _RL UG         (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/seaice/seaice_budget_ocean_if.F 8 SEAICE_BUDGET_OCEAN_IF 
     I     UG,
./pkg/seaice/seaice_growth.F 157 SEAICE_GROWTH 
      _RL UG                  (1:sNx,1:sNy)
./pkg/seaice/seaice_growth.F 509 SEAICE_GROWTH 
          UG(I,J) = MAX(SEAICE_EPS,wspeed(I,J,bi,bj))
./pkg/seaice/seaice_growth.F 521 SEAICE_GROWTH 
     I       UG,
./pkg/seaice/seaice_growth.F 544 SEAICE_GROWTH 
             UG(I,J)=SEAICE_EPS
./pkg/seaice/seaice_growth.F 546 SEAICE_GROWTH 
             UG(I,J)=SQRT(SPEED_SQ)
./pkg/seaice/seaice_growth.F 582 SEAICE_GROWTH 
     I        UG, heffActualP, hsnowActual,
./pkg/seaice/seaice_growth.F 602 SEAICE_GROWTH 
     I       UG, heffActual, hsnowActual,
./pkg/seaice/seaice_growth_if.F 416 SEAICE_GROWTH_IF 
          UG(I,J) = MAX(SEAICE_EPS,wspeed(I,J,bi,bj))
./pkg/seaice/seaice_growth_if.F 446 SEAICE_GROWTH_IF 
     I           UG, HICE_ACTUAL, HSNOW_ACTUAL,
./pkg/seaice/seaice_growth_if.F 558 SEAICE_GROWTH_IF 
     I           UG,
./pkg/seaice/seaice_growth_if.F 82 SEAICE_GROWTH_IF 
      _RL UG     (1-OLx:sNx+OLx, 1-OLy:sNy+OLy)
./pkg/seaice/seaice_solve4temp.F 10 SEAICE_SOLVE4TEMP 
     I   UG, HICE_ACTUAL, HSNOW_ACTUAL,
./pkg/seaice/seaice_solve4temp.F 314 SEAICE_SOLVE4TEMP 
     &         +D1*UG(I,J)*atempLoc(I,J)+D1I*UG(I,J)*AQH(I,J,bi,bj)
./pkg/seaice/seaice_solve4temp.F 320 SEAICE_SOLVE4TEMP 
     &         +D1*UG(I,J)*atempLoc(I,J)+D1I*UG(I,J)*AQH(I,J,bi,bj)
./pkg/seaice/seaice_solve4temp.F 442 SEAICE_SOLVE4TEMP 
          F_lh(I,J)   = D1I*UG(I,J)*(qhice(I,J)-AQH(I,J,bi,bj))
./pkg/seaice/seaice_solve4temp.F 444 SEAICE_SOLVE4TEMP 
          A2(I,J)=-D1*UG(I,J)*t1-D1I*UG(I,J)*qhice(I,J)-D3*t4
./pkg/seaice/seaice_solve4temp.F 445 SEAICE_SOLVE4TEMP 
          A3(I,J) = 4.0 _d 0 * D3 * t3 + effConduct(I,J) + D1*UG(I,J)
./pkg/seaice/seaice_solve4temp.F 456 SEAICE_SOLVE4TEMP 
          dFiDTs1 = 4.0 _d 0 * D3*t3 + effConduct(I,J) + D1*UG(I,J)
./pkg/seaice/seaice_solve4temp.F 457 SEAICE_SOLVE4TEMP 
     &         + D1I*UG(I,J)*dqhice_dTice
./pkg/seaice/seaice_solve4temp.F 461 SEAICE_SOLVE4TEMP 
          F_sens(I,J)= D1 * UG(I,J) * (t1 - atempLoc(I,J))
./pkg/seaice/seaice_solve4temp.F 572 SEAICE_SOLVE4TEMP 
         F_lh(I,J) = D1I * UG(I,J)*(qhice(I,J)-AQH(I,J,bi,bj))
./pkg/seaice/seaice_solve4temp.F 575 SEAICE_SOLVE4TEMP 
         F_sens(I,J)  = D1 * UG(I,J) * (t1 - atempLoc(I,J))
./pkg/seaice/seaice_solve4temp.F 594 SEAICE_SOLVE4TEMP 
     &         +D1*UG(I,J)*atempLoc(I,J)+D1I*UG(I,J)*AQH(I,J,bi,bj)
./pkg/seaice/seaice_solve4temp.F 595 SEAICE_SOLVE4TEMP 
         A2(I,J)=-D1*UG(I,J)*t1-D1I*UG(I,J)*qhice(I,J)-D3*t4
./pkg/seaice/seaice_solve4temp.F 66 SEAICE_SOLVE4TEMP 
      _RL UG             (1:sNx,1:sNy)