Symbol Description Uses
tcor 5


File Line number Procedure Code
./pkg/layers/layers_wsurf_tr.F 55 LAYERS_WSURF_TR 
      _RL tcor, scor
./pkg/layers/layers_wsurf_tr.F 67 LAYERS_WSURF_TR 
               tcor = -wVelFld(i,j,ks,bi,bj) * thetaFld(i,j,ks,bi,bj)
./pkg/layers/layers_wsurf_tr.F 70 LAYERS_WSURF_TR 
                 tcor = tcor + TsurfCor
./pkg/layers/layers_wsurf_tr.F 76 LAYERS_WSURF_TR 
     &           tcor * HeatCapacity_Cp * rUnit2mass