Symbol Description Uses
tmpscal3 45


File Line number Procedure Code
./pkg/seaice/seaice_freedrift.F 113 SEAICE_FREEDRIFT 
           tmpscal3= tmpscal1*tmpscal1*rhs_n*rhs_n
./pkg/seaice/seaice_freedrift.F 115 SEAICE_FREEDRIFT 
           tmpscal4=tmpscal2*tmpscal2+4. _d 0*tmpscal3
./pkg/seaice/seaice_freedrift.F 116 SEAICE_FREEDRIFT 
           IF ( tmpscal3.GT.ZERO ) THEN
./pkg/seaice/seaice_freedrift.F 131 SEAICE_FREEDRIFT 
           tmpscal3= mIceCor*sol_n
./pkg/seaice/seaice_freedrift.F 133 SEAICE_FREEDRIFT 
           tmpscal4=tmpscal2*tmpscal2 + tmpscal3*tmpscal3
./pkg/seaice/seaice_freedrift.F 135 SEAICE_FREEDRIFT 
             sol_a=rhs_a-ATAN2(tmpscal3,tmpscal2)
./pkg/seaice/seaice_freedrift.F 43 SEAICE_FREEDRIFT 
      _RL tmpscal1,tmpscal2,tmpscal3,tmpscal4
./pkg/seaice/seaice_growth.F 1144 SEAICE_GROWTH 
           tmpscal3 =
./pkg/seaice/seaice_growth.F 1149 SEAICE_GROWTH 
           tmpscal4 = (tmpscal2*tmpscal2 + tmpscal3*tmpscal3)
./pkg/seaice/seaice_growth.F 1159 SEAICE_GROWTH 
     &       + ( tmpscal1 * vWind(I,J,bi,bj) + tmpscal4 * tmpscal3 )**2
./pkg/seaice/seaice_growth.F 1167 SEAICE_GROWTH 
           tmpscal3 = 0.5 _d 0 * (dxC(I,J,bi,bj)+dyC(I,J,bi,bj))
./pkg/seaice/seaice_growth.F 1174 SEAICE_GROWTH 
           tmpscal4 = 4. _d 0 * SItracer(I,J,bi,bj,iTrGrease) * tmpscal3
./pkg/seaice/seaice_growth.F 142 SEAICE_GROWTH 
      _RL tmpscal0, tmpscal1, tmpscal2, tmpscal3, tmpscal4
./pkg/seaice/seaice_growth.F 1584 SEAICE_GROWTH 
            tmpscal3=facOpenGrow*MAX(tmpscal1-tmpscal2,
./pkg/seaice/seaice_growth.F 1594 SEAICE_GROWTH 
          greaseNewFrazil = max(0.0 _d 0, tmpscal3)
./pkg/seaice/seaice_growth.F 1599 SEAICE_GROWTH 
           tmpscal3 = tmpscal3 + SItracer(I,J,bi,bj,iTrGrease)
./pkg/seaice/seaice_growth.F 1604 SEAICE_GROWTH 
           tmpscal3=0. _d 0
./pkg/seaice/seaice_growth.F 1630 SEAICE_GROWTH 
          tmpscal3=tmpscal3+SItrBucket(I,J,bi,bj,iTrGrease)
./pkg/seaice/seaice_growth.F 1636 SEAICE_GROWTH 
          d_HEFFbyATMonOCN_open_ITD(I,J,1)=tmpscal3
./pkg/seaice/seaice_growth.F 1638 SEAICE_GROWTH 
     &                                    +tmpscal3
./pkg/seaice/seaice_growth.F 1640 SEAICE_GROWTH 
          d_HEFFbyATMonOCN_open(I,J)=tmpscal3
./pkg/seaice/seaice_growth.F 1641 SEAICE_GROWTH 
          d_HEFFbyATMonOCN(I,J)=d_HEFFbyATMonOCN(I,J)+tmpscal3
./pkg/seaice/seaice_growth.F 1642 SEAICE_GROWTH 
          r_QbyATM_open(I,J)=r_QbyATM_open(I,J)-tmpscal3
./pkg/seaice/seaice_growth.F 1643 SEAICE_GROWTH 
          HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj) + tmpscal3
./pkg/seaice/seaice_growth.F 1674 SEAICE_GROWTH 
            tmpscal3 = HEFFITDpreTH(I,J,IT)
./pkg/seaice/seaice_growth.F 1683 SEAICE_GROWTH 
     &               +  tmpscal3*SEAICE_rhoIce)
./pkg/seaice/seaice_growth.F 1685 SEAICE_GROWTH 
            tmpscal1 = MAX( 0. _d 0, tmpscal0 - tmpscal3)
./pkg/seaice/seaice_growth.F 1805 SEAICE_GROWTH 
            tmpscal3 = MIN( 0. _d 0 , d_HEFFbyATMonOCN_cover(I,J) )
./pkg/seaice/seaice_growth.F 1809 SEAICE_GROWTH 
            tmpscal3 = MIN( 0. _d 0 , d_HEFFbyATMonOCN_cover(I,J)
./pkg/seaice/seaice_growth.F 1819 SEAICE_GROWTH 
            tmpscal3 = MIN(ZERO,tmpscal2)
./pkg/seaice/seaice_growth.F 1827 SEAICE_GROWTH 
     &       + recip_HO*tmpscal4+HALF*recip_HH*tmpscal3 ))
./pkg/seaice/seaice_growth.F 1958 SEAICE_GROWTH 
          tmpscal3 = max( 0. _d 0,
./pkg/seaice/seaice_growth.F 1960 SEAICE_GROWTH 
          tmpscal2 = tmpscal1 * tmpscal3 * HEFFM(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 1992 SEAICE_GROWTH 
          tmpscal3 = tmpscal1*salt(I,J,kSurface,bi,bj)*HEFFM(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 1994 SEAICE_GROWTH 
          saltPlumeFlux(I,J,bi,bj) = MAX( tmpscal3-tmpscal2 , 0. _d 0)
./pkg/seaice/seaice_growth.F 2224 SEAICE_GROWTH 
           tmpscal3=rhoConstFresh*maskC(I,J,kSurface,bi,bj)*(
./pkg/seaice/seaice_growth.F 2234 SEAICE_GROWTH 
             tmpscal1 = - tmpscal3*
./pkg/seaice/seaice_growth.F 2238 SEAICE_GROWTH 
             tmpscal1 = - tmpscal3*
./pkg/seaice/seaice_growth.F 2241 SEAICE_GROWTH 
             tmpscal1 = - tmpscal3*HeatCapacity_Cp*
./pkg/seaice/seaice_growth.F 2537 SEAICE_GROWTH 
           tmpscal3= SEAICE_lhEvap+SEAICE_lhFusion
./pkg/seaice/seaice_growth.F 2539 SEAICE_GROWTH 
     &             * ( tmpscal1*SEAICE_lhEvap + tmpscal2*tmpscal3 )