Symbol Description Uses
tmpscal2 53


File Line number Procedure Code
./pkg/seaice/seaice_freedrift.F 117 SEAICE_FREEDRIFT 
           tmpscal2= +tmpscal1*tmpscal1*mIceCor*mIceCor
./pkg/seaice/seaice_freedrift.F 120 SEAICE_FREEDRIFT 
           tmpscal4=tmpscal2*tmpscal2-4*tmpscal3
./pkg/seaice/seaice_freedrift.F 122 SEAICE_FREEDRIFT 
             sol_n=sqrt(HALF*(sqrt(tmpscal4)-tmpscal2))
./pkg/seaice/seaice_freedrift.F 135 SEAICE_FREEDRIFT 
           tmpscal2= tmpscal1*sol_n*sol_n
./pkg/seaice/seaice_freedrift.F 138 SEAICE_FREEDRIFT 
           tmpscal4=tmpscal2*tmpscal2 + tmpscal3*tmpscal3
./pkg/seaice/seaice_freedrift.F 140 SEAICE_FREEDRIFT 
             sol_a=rhs_a-atan2(tmpscal3,tmpscal2)
./pkg/seaice/seaice_freedrift.F 42 SEAICE_FREEDRIFT 
      _RL tmpscal1,tmpscal2,tmpscal3,tmpscal4
./pkg/seaice/seaice_growth.F 1021 SEAICE_GROWTH 
          tmpscal2 = MAX(-tmpscal0,tmpscal1)
./pkg/seaice/seaice_growth.F 1022 SEAICE_GROWTH 
          tmpscal3 = MIN(ZERO,tmpscal2)
./pkg/seaice/seaice_growth.F 1024 SEAICE_GROWTH 
          DIAGarray(I,J) = tmpscal2
./pkg/seaice/seaice_growth.F 1120 SEAICE_GROWTH 
          tmpscal2 = tmpscal1 * SIsal0 * HEFFM(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 1122 SEAICE_GROWTH 
          saltFlux(I,J,bi,bj) = tmpscal2
./pkg/seaice/seaice_growth.F 1126 SEAICE_GROWTH 
          saltPlumeFlux(I,J,bi,bj) = MAX( tmpscal3-tmpscal2 , 0. _d 0)
./pkg/seaice/seaice_growth.F 1160 SEAICE_GROWTH 
         tmpscal2=HEFF(I,J,bi,bj)-tmpscal1-d_HEFFbyFLOODING(I,J)
./pkg/seaice/seaice_growth.F 1185 SEAICE_GROWTH 
     &         *tmpscal1/tmpscal2
./pkg/seaice/seaice_growth.F 1359 SEAICE_GROWTH 
           tmpscal2=tmpscal1*HEFFpreTH(i,j)/
./pkg/seaice/seaice_growth.F 1362 SEAICE_GROWTH 
           tmpscal2=0. _d 0
./pkg/seaice/seaice_growth.F 1364 SEAICE_GROWTH 
           tmpscal2=tmpscal1+SEAICE_deltaTtherm
./pkg/seaice/seaice_growth.F 1367 SEAICE_GROWTH 
          IceAge(i,j,bi,bj) = tmpscal2*AREA(i,j,bi,bj)
./pkg/seaice/seaice_growth.F 1487 SEAICE_GROWTH 
           tmpscal2 = min(tmpscal1,heffTooHeavy*rhoConst)
./pkg/seaice/seaice_growth.F 1489 SEAICE_GROWTH 
           tmpscal2 = HEFF(I,J,bi,bj)*SEAICE_rhoIce
./pkg/seaice/seaice_growth.F 1492 SEAICE_GROWTH 
           sIceLoad(i,j,bi,bj) = tmpscal2
./pkg/seaice/seaice_growth.F 169 SEAICE_GROWTH 
      _RL tmpscal1, tmpscal2, tmpscal3, tmpscal4
./pkg/seaice/seaice_growth.F 358 SEAICE_GROWTH 
            tmpscal2=-HEFF(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 362 SEAICE_GROWTH 
            tmpscal2=0. _d 0
./pkg/seaice/seaice_growth.F 365 SEAICE_GROWTH 
          HEFF(I,J,bi,bj)=HEFF(I,J,bi,bj)+tmpscal2
./pkg/seaice/seaice_growth.F 366 SEAICE_GROWTH 
          d_HEFFbyNEG(I,J)=d_HEFFbyNEG(I,J)+tmpscal2
./pkg/seaice/seaice_growth.F 472 SEAICE_GROWTH 
          tmpscal2         = HEFFpreTH(I,J)/tmpscal1
./pkg/seaice/seaice_growth.F 473 SEAICE_GROWTH 
          heffActual(I,J)  = MAX(tmpscal2,hiceMin)
./pkg/seaice/seaice_growth.F 787 SEAICE_GROWTH 
          tmpscal2 = MAX(tmpscal1,0. _d 0)
./pkg/seaice/seaice_growth.F 788 SEAICE_GROWTH 
          d_HSNWbySublim(I,J) = - tmpscal2
./pkg/seaice/seaice_growth.F 789 SEAICE_GROWTH 
          HSNOW(I,J,bi,bj)    = HSNOW(I,J,bi,bj)  - tmpscal2
./pkg/seaice/seaice_growth.F 790 SEAICE_GROWTH 
          a_FWbySublim(I,J)   = a_FWbySublim(I,J) - tmpscal2*rrodt
./pkg/seaice/seaice_growth.F 803 SEAICE_GROWTH 
          tmpscal2=MIN(tmpscal1,0. _d 0)
./pkg/seaice/seaice_growth.F 806 SEAICE_GROWTH 
          if ( SEAICEadjMODE.GE.2 ) tmpscal2 = 0. _d 0
./pkg/seaice/seaice_growth.F 808 SEAICE_GROWTH 
          d_HSNWbyATMonSNW(I,J)= tmpscal2
./pkg/seaice/seaice_growth.F 809 SEAICE_GROWTH 
          HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj) + tmpscal2
./pkg/seaice/seaice_growth.F 810 SEAICE_GROWTH 
          r_QbyATM_cover(I,J)=r_QbyATM_cover(I,J) - tmpscal2/ICE2SNOW
./pkg/seaice/seaice_growth.F 829 SEAICE_GROWTH 
          tmpscal2 = MAX(tmpscal1,0. _d 0)
./pkg/seaice/seaice_growth.F 830 SEAICE_GROWTH 
          d_HEFFbySublim(I,J) = - tmpscal2
./pkg/seaice/seaice_growth.F 831 SEAICE_GROWTH 
          HEFF(I,J,bi,bj)     = HEFF(I,J,bi,bj)   - tmpscal2
./pkg/seaice/seaice_growth.F 832 SEAICE_GROWTH 
          a_FWbySublim(I,J)   = a_FWbySublim(I,J) - tmpscal2*rrodt
./pkg/seaice/seaice_growth.F 849 SEAICE_GROWTH 
          tmpscal2 = MAX(-HEFF(I,J,bi,bj),r_QbyATM_cover(I,J))
./pkg/seaice/seaice_growth.F 850 SEAICE_GROWTH 
          d_HEFFbyATMonOCN(I,J)=d_HEFFbyATMonOCN(I,J)+tmpscal2
./pkg/seaice/seaice_growth.F 851 SEAICE_GROWTH 
          r_QbyATM_cover(I,J)=r_QbyATM_cover(I,J)-tmpscal2
./pkg/seaice/seaice_growth.F 852 SEAICE_GROWTH 
          HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj) + tmpscal2
./pkg/seaice/seaice_growth.F 915 SEAICE_GROWTH 
          tmpscal2=MIN(tmpscal1,0. _d 0)
./pkg/seaice/seaice_growth.F 918 SEAICE_GROWTH 
          if ( SEAICEadjMODE.GE.2 ) tmpscal2 = 0. _d 0
./pkg/seaice/seaice_growth.F 920 SEAICE_GROWTH 
          d_HSNWbyOCNonSNW(I,J) = tmpscal2
./pkg/seaice/seaice_growth.F 947 SEAICE_GROWTH 
            tmpscal2=SWFRACB*(a_QSWbyATM_cover(I,J)
./pkg/seaice/seaice_growth.F 951 SEAICE_GROWTH 
            tmpscal3=MAX(0. _d 0, tmpscal1-tmpscal2)