Symbol Description Uses
tmpscal1 53


File Line number Procedure Code
./pkg/seaice/seaice_freedrift.F 100 SEAICE_FREEDRIFT 
           tmpscal1=rhs_x*rhs_x + rhs_y*rhs_y
./pkg/seaice/seaice_freedrift.F 101 SEAICE_FREEDRIFT 
           if (tmpscal1.GT.0.) then
./pkg/seaice/seaice_freedrift.F 112 SEAICE_FREEDRIFT 
            tmpscal1 = 1. _d 0 /SEAICE_waterDrag_south
./pkg/seaice/seaice_freedrift.F 114 SEAICE_FREEDRIFT 
            tmpscal1 = 1. _d 0 /SEAICE_waterDrag
./pkg/seaice/seaice_freedrift.F 117 SEAICE_FREEDRIFT 
           tmpscal2= +tmpscal1*tmpscal1*mIceCor*mIceCor
./pkg/seaice/seaice_freedrift.F 118 SEAICE_FREEDRIFT 
           tmpscal3= -tmpscal1*tmpscal1*rhs_n*rhs_n
./pkg/seaice/seaice_freedrift.F 130 SEAICE_FREEDRIFT 
            tmpscal1 = SEAICE_waterDrag_south
./pkg/seaice/seaice_freedrift.F 132 SEAICE_FREEDRIFT 
            tmpscal1 = SEAICE_waterDrag
./pkg/seaice/seaice_freedrift.F 135 SEAICE_FREEDRIFT 
           tmpscal2= tmpscal1*sol_n*sol_n
./pkg/seaice/seaice_freedrift.F 42 SEAICE_FREEDRIFT 
      _RL tmpscal1,tmpscal2,tmpscal3,tmpscal4
./pkg/seaice/seaice_freedrift.F 81 SEAICE_FREEDRIFT 
            tmpscal1 = SEAICE_drag_south/OCEAN_drag
./pkg/seaice/seaice_freedrift.F 83 SEAICE_FREEDRIFT 
            tmpscal1 = SEAICE_drag      /OCEAN_drag
./pkg/seaice/seaice_freedrift.F 87 SEAICE_FREEDRIFT 
     &       tmpscal1*HALF*(TAUX(i,j,bi,bj)+TAUX(i+1,j,bi,bj))
./pkg/seaice/seaice_freedrift.F 89 SEAICE_FREEDRIFT 
     &       tmpscal1*HALF*(TAUY(i,j,bi,bj)+TAUY(i,j+1,bi,bj))
./pkg/seaice/seaice_growth.F 1018 SEAICE_GROWTH 
          tmpscal1= a_QbyATM_open(I,J)+a_QbyATM_cover(I,J)
./pkg/seaice/seaice_growth.F 1021 SEAICE_GROWTH 
          tmpscal2 = MAX(-tmpscal0,tmpscal1)
./pkg/seaice/seaice_growth.F 1118 SEAICE_GROWTH 
          tmpscal1 = d_HEFFbyNEG(I,J) + d_HEFFbyOCNonICE(I,J) +
./pkg/seaice/seaice_growth.F 1120 SEAICE_GROWTH 
          tmpscal2 = tmpscal1 * SIsal0 * HEFFM(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 1124 SEAICE_GROWTH 
          tmpscal3 = tmpscal1*salt(I,j,kSurface,bi,bj)*HEFFM(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 1158 SEAICE_GROWTH 
         tmpscal1=d_HEFFbyOCNonICE(I,J)+d_HEFFbyATMonOCN(I,J)
./pkg/seaice/seaice_growth.F 1160 SEAICE_GROWTH 
         tmpscal2=HEFF(I,J,bi,bj)-tmpscal1-d_HEFFbyFLOODING(I,J)
./pkg/seaice/seaice_growth.F 1162 SEAICE_GROWTH 
          IF ( tmpscal1 .GE. 0.0 ) THEN
./pkg/seaice/seaice_growth.F 1166 SEAICE_GROWTH 
     &            *tmpscal1*ICE2WATR*rhoConstFresh
./pkg/seaice/seaice_growth.F 1172 SEAICE_GROWTH 
     &            *tmpscal1*ICE2WATR*rhoConstFresh
./pkg/seaice/seaice_growth.F 1185 SEAICE_GROWTH 
     &         *tmpscal1/tmpscal2
./pkg/seaice/seaice_growth.F 1295 SEAICE_GROWTH 
           tmpscal1 = MAX( 0. _d 0, hDraft - HEFF(I,J,bi,bj))
./pkg/seaice/seaice_growth.F 1296 SEAICE_GROWTH 
           d_HEFFbyFLOODING(I,J)=tmpscal1
./pkg/seaice/seaice_growth.F 1353 SEAICE_GROWTH 
           tmpscal1=IceAge(i,j,bi,bj)/AREApreTH(i,j)
./pkg/seaice/seaice_growth.F 1355 SEAICE_GROWTH 
           tmpscal1=0. _d 0
./pkg/seaice/seaice_growth.F 1359 SEAICE_GROWTH 
           tmpscal2=tmpscal1*HEFFpreTH(i,j)/
./pkg/seaice/seaice_growth.F 1364 SEAICE_GROWTH 
           tmpscal2=tmpscal1+SEAICE_deltaTtherm
./pkg/seaice/seaice_growth.F 1432 SEAICE_GROWTH 
          tmpscal1= d_HSNWbyATMonSNW(I,J)/ICE2SNOW
./pkg/seaice/seaice_growth.F 1448 SEAICE_GROWTH 
     &         + tmpscal1*convertHI2PRECIP
./pkg/seaice/seaice_growth.F 1485 SEAICE_GROWTH 
           tmpscal1 = HEFF(I,J,bi,bj)*SEAICE_rhoIce
./pkg/seaice/seaice_growth.F 1487 SEAICE_GROWTH 
           tmpscal2 = min(tmpscal1,heffTooHeavy*rhoConst)
./pkg/seaice/seaice_growth.F 169 SEAICE_GROWTH 
      _RL tmpscal1, tmpscal2, tmpscal3, tmpscal4
./pkg/seaice/seaice_growth.F 470 SEAICE_GROWTH 
          tmpscal1         = MAX(areaMin,AREApreTH(I,J))
./pkg/seaice/seaice_growth.F 471 SEAICE_GROWTH 
          hsnowActual(I,J) = HSNWpreTH(I,J)/tmpscal1
./pkg/seaice/seaice_growth.F 472 SEAICE_GROWTH 
          tmpscal2         = HEFFpreTH(I,J)/tmpscal1
./pkg/seaice/seaice_growth.F 786 SEAICE_GROWTH 
          tmpscal1 = MIN(a_FWbySublim(I,J)*rodt,HSNOW(I,J,bi,bj))
./pkg/seaice/seaice_growth.F 787 SEAICE_GROWTH 
          tmpscal2 = MAX(tmpscal1,0. _d 0)
./pkg/seaice/seaice_growth.F 802 SEAICE_GROWTH 
          tmpscal1=MAX(r_QbyATM_cover(I,J)*ICE2SNOW,-HSNOW(I,J,bi,bj))
./pkg/seaice/seaice_growth.F 803 SEAICE_GROWTH 
          tmpscal2=MIN(tmpscal1,0. _d 0)
./pkg/seaice/seaice_growth.F 828 SEAICE_GROWTH 
          tmpscal1 = MIN(a_FWbySublim(I,J)*rodt,HEFF(I,J,bi,bj))
./pkg/seaice/seaice_growth.F 829 SEAICE_GROWTH 
          tmpscal2 = MAX(tmpscal1,0. _d 0)
./pkg/seaice/seaice_growth.F 914 SEAICE_GROWTH 
          tmpscal1=MAX(r_QbyOCN(i,j)*ICE2SNOW, -HSNOW(I,J,bi,bj))
./pkg/seaice/seaice_growth.F 915 SEAICE_GROWTH 
          tmpscal2=MIN(tmpscal1,0. _d 0)
./pkg/seaice/seaice_growth.F 944 SEAICE_GROWTH 
            tmpscal1=r_QbyATM_open(I,J)+r_QbyOCN(i,j)
./pkg/seaice/seaice_growth.F 951 SEAICE_GROWTH 
            tmpscal3=MAX(0. _d 0, tmpscal1-tmpscal2)
./pkg/seaice/seaice_growth.F 981 SEAICE_GROWTH 
           tmpscal1 = MAX( 0. _d 0, hDraft - HEFF(I,J,bi,bj))
./pkg/seaice/seaice_growth.F 982 SEAICE_GROWTH 
           d_HEFFbyFLOODING(I,J)=tmpscal1