Symbol Description Uses
tmpscal1 150


File Line number Procedure Code
./pkg/seaice/seaice_advdiff.F 477 SEAICE_ADVDIFF 
             tmpscal1=max(SItrPrev(i,j,bi,bj),
./pkg/seaice/seaice_advdiff.F 480 SEAICE_ADVDIFF 
             tmpscal2=MAX(ZERO,SItracer(i,j,bi,bj,iTr)-tmpscal1)
./pkg/seaice/seaice_advdiff.F 487 SEAICE_ADVDIFF 
              tmpscal1=MIN(0. _d 0,SItracer(i,j,bi,bj,iTr))
./pkg/seaice/seaice_advdiff.F 488 SEAICE_ADVDIFF 
              SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)-tmpscal1
./pkg/seaice/seaice_advdiff.F 490 SEAICE_ADVDIFF 
     &                                 +HEFF(I,J,bi,bj)*tmpscal1
./pkg/seaice/seaice_advdiff.F 495 SEAICE_ADVDIFF 
      tmpscal1= ( HEFF(I,J,bi,bj)*SItracer(i,j,bi,bj,iTr)
./pkg/seaice/seaice_advdiff.F 497 SEAICE_ADVDIFF 
      diagArray(I,J,2+(iTr-1)*5)= tmpscal1-diagArray(I,J,2+(iTr-1)*5)
./pkg/seaice/seaice_advdiff.F 514 SEAICE_ADVDIFF 
             tmpscal1=max(SItrPrev(i,j,bi,bj),
./pkg/seaice/seaice_advdiff.F 517 SEAICE_ADVDIFF 
             tmpscal2=MAX(ZERO,SItracer(i,j,bi,bj,iTr)-tmpscal1)
./pkg/seaice/seaice_advdiff.F 522 SEAICE_ADVDIFF 
              tmpscal1=MIN(0. _d 0,SItracer(i,j,bi,bj,iTr))
./pkg/seaice/seaice_advdiff.F 523 SEAICE_ADVDIFF 
              SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)-tmpscal1
./pkg/seaice/seaice_advdiff.F 85 SEAICE_ADVDIFF 
      _RL tmpscal1, tmpscal2
./pkg/seaice/seaice_calc_ice_strength.F 108 SEAICE_CALC_ICE_STRENGTH 
          tmpscal1=MAX(HEFF(i,j,bi,bj)/SEAICEpresH0,ZERO)
./pkg/seaice/seaice_calc_ice_strength.F 109 SEAICE_CALC_ICE_STRENGTH 
          tmpscal2=SEAICEpresH0*(tmpscal1**SEAICEpresPow0)
./pkg/seaice/seaice_calc_ice_strength.F 112 SEAICE_CALC_ICE_STRENGTH 
          tmpscal1=MAX(HEFF(i,j,bi,bj)/SEAICEpresH0,ZERO)
./pkg/seaice/seaice_calc_ice_strength.F 113 SEAICE_CALC_ICE_STRENGTH 
          tmpscal2=SEAICEpresH0*(tmpscal1**SEAICEpresPow1)
./pkg/seaice/seaice_calc_ice_strength.F 137 SEAICE_CALC_ICE_STRENGTH 
        tmpscal1 = 1. _d 0 / 3. _d 0
./pkg/seaice/seaice_calc_ice_strength.F 148 SEAICE_CALC_ICE_STRENGTH 
     &          + hrMax(i,j,k)*hrMin(i,j,k) )*tmpscal1
./pkg/seaice/seaice_calc_ice_strength.F 168 SEAICE_CALC_ICE_STRENGTH 
       tmpscal1 = SEAICE_cf*0.5*gravity*(rhoConst-SEAICE_rhoIce)
./pkg/seaice/seaice_calc_ice_strength.F 173 SEAICE_CALC_ICE_STRENGTH 
     &        *tmpscal1
./pkg/seaice/seaice_calc_ice_strength.F 58 SEAICE_CALC_ICE_STRENGTH 
      _RL tmpscal1, tmpscal2
./pkg/seaice/seaice_freedrift.F 110 SEAICE_FREEDRIFT 
            tmpscal1 = 1. _d 0 /SEAICE_waterDrag_south
./pkg/seaice/seaice_freedrift.F 112 SEAICE_FREEDRIFT 
            tmpscal1 = 1. _d 0 /SEAICE_waterDrag
./pkg/seaice/seaice_freedrift.F 115 SEAICE_FREEDRIFT 
           tmpscal2= tmpscal1*tmpscal1*mIceCor*mIceCor
./pkg/seaice/seaice_freedrift.F 116 SEAICE_FREEDRIFT 
           tmpscal3= tmpscal1*tmpscal1*rhs_n*rhs_n
./pkg/seaice/seaice_freedrift.F 128 SEAICE_FREEDRIFT 
            tmpscal1 = SEAICE_waterDrag_south
./pkg/seaice/seaice_freedrift.F 130 SEAICE_FREEDRIFT 
            tmpscal1 = SEAICE_waterDrag
./pkg/seaice/seaice_freedrift.F 133 SEAICE_FREEDRIFT 
           tmpscal2= tmpscal1*sol_n*sol_n
./pkg/seaice/seaice_freedrift.F 46 SEAICE_FREEDRIFT 
      _RL tmpscal1,tmpscal2,tmpscal3,tmpscal4
./pkg/seaice/seaice_freedrift.F 98 SEAICE_FREEDRIFT 
           tmpscal1=rhs_x*rhs_x + rhs_y*rhs_y
./pkg/seaice/seaice_freedrift.F 99 SEAICE_FREEDRIFT 
           IF ( tmpscal1.GT.ZERO ) THEN
./pkg/seaice/seaice_growth.F 1043 SEAICE_GROWTH 
           tmpscal1 = SEAICE_mcPheePiston
./pkg/seaice/seaice_growth.F 1045 SEAICE_GROWTH 
           tmpscal1 =SEAICE_frazilFrac*drF(kSurface)/SEAICE_deltaTtherm
./pkg/seaice/seaice_growth.F 1064 SEAICE_GROWTH 
     &         tmpscal1 * tmpscal2 * MixedLayerTurbulenceFactor
./pkg/seaice/seaice_growth.F 1079 SEAICE_GROWTH 
           tmpscal1=(theta(I,J,kSurface,bi,bj)-tempFrz)
./pkg/seaice/seaice_growth.F 1099 SEAICE_GROWTH 
            IF (tmpscal1 .GT. ZERO)
./pkg/seaice/seaice_growth.F 1100 SEAICE_GROWTH 
     &         latMeltRate(i,j,it) = 1.6 _d -6 * exp(1.36*log(tmpscal1))
./pkg/seaice/seaice_growth.F 1151 SEAICE_GROWTH 
           tmpscal1 = uWind(I,J,bi,bj)*uWind(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 1153 SEAICE_GROWTH 
           IF ( tmpscal1 .LE. SEAICE_EPS_SQ ) THEN
./pkg/seaice/seaice_growth.F 1154 SEAICE_GROWTH 
             tmpscal1=SEAICE_EPS
./pkg/seaice/seaice_growth.F 1156 SEAICE_GROWTH 
             tmpscal1=SQRT(tmpscal2)
./pkg/seaice/seaice_growth.F 1158 SEAICE_GROWTH 
           tmpscal1 = 1.4 _d 0 * 1.3 _d -3 * tmpscal1
./pkg/seaice/seaice_growth.F 1180 SEAICE_GROWTH 
     &         ( tmpscal1 * uWind(I,J,bi,bj) + tmpscal4 * tmpscal2 )**2
./pkg/seaice/seaice_growth.F 1181 SEAICE_GROWTH 
     &       + ( tmpscal1 * vWind(I,J,bi,bj) + tmpscal4 * tmpscal3 )**2
./pkg/seaice/seaice_growth.F 1309 SEAICE_GROWTH 
           tmpscal1=MAX(r_QbyOCN(i,j)*areaFracFactor(I,J,IT),
./pkg/seaice/seaice_growth.F 1311 SEAICE_GROWTH 
           d_HEFFbyOCNonICE_ITD(I,J,IT)=tmpscal1
./pkg/seaice/seaice_growth.F 1312 SEAICE_GROWTH 
           d_HEFFbyOCNonICE(I,J) = d_HEFFbyOCNonICE(I,J) + tmpscal1
./pkg/seaice/seaice_growth.F 1359 SEAICE_GROWTH 
           tmpscal1=MAX(r_QbyATMmult_cover(I,J,IT),
./pkg/seaice/seaice_growth.F 1361 SEAICE_GROWTH 
           tmpscal2=MIN(tmpscal1,0. _d 0)
./pkg/seaice/seaice_growth.F 1379 SEAICE_GROWTH 
          tmpscal1=MAX(r_QbyATM_cover(I,J),-HSNOW(I,J,bi,bj)*SNOW2ICE)
./pkg/seaice/seaice_growth.F 1380 SEAICE_GROWTH 
          tmpscal2=MIN(tmpscal1,0. _d 0)
./pkg/seaice/seaice_growth.F 1409 SEAICE_GROWTH 
           tmpscal1 = HEFFITDpreTH(I,J,IT)
./pkg/seaice/seaice_growth.F 1412 SEAICE_GROWTH 
           tmpscal2 = MAX(-tmpscal1,
./pkg/seaice/seaice_growth.F 147 SEAICE_GROWTH 
      _RL tmpscal0, tmpscal1, tmpscal2, tmpscal3, tmpscal4
./pkg/seaice/seaice_growth.F 1539 SEAICE_GROWTH 
           tmpscal1=MAX(r_QbyOCN(i,j)*ICE2SNOW*areaFracFactor(I,J,IT),
./pkg/seaice/seaice_growth.F 1541 SEAICE_GROWTH 
           tmpscal2=MIN(tmpscal1,0. _d 0)
./pkg/seaice/seaice_growth.F 1555 SEAICE_GROWTH 
          tmpscal1=MAX(r_QbyOCN(i,j)*ICE2SNOW, -HSNOW(I,J,bi,bj))
./pkg/seaice/seaice_growth.F 1556 SEAICE_GROWTH 
          tmpscal2=MIN(tmpscal1,0. _d 0)
./pkg/seaice/seaice_growth.F 1599 SEAICE_GROWTH 
            tmpscal1=r_QbyATM_open(I,J)+r_QbyOCN(i,j) *
./pkg/seaice/seaice_growth.F 1606 SEAICE_GROWTH 
            tmpscal3=facOpenGrow*MAX(tmpscal1-tmpscal2,
./pkg/seaice/seaice_growth.F 1633 SEAICE_GROWTH 
           tmpscal1=exp(-SEAICE_deltaTtherm/greaseDecayTime)
./pkg/seaice/seaice_growth.F 1637 SEAICE_GROWTH 
     &           * (1.0 _d 0 - tmpscal1)
./pkg/seaice/seaice_growth.F 1640 SEAICE_GROWTH 
     &             SItracer(I,J,bi,bj,iTrGrease) * tmpscal1
./pkg/seaice/seaice_growth.F 1707 SEAICE_GROWTH 
            tmpscal1 = MAX( 0. _d 0, tmpscal0 - tmpscal3)
./pkg/seaice/seaice_growth.F 1708 SEAICE_GROWTH 
            d_HEFFbyFLOODING_ITD(I,J,IT) = tmpscal1
./pkg/seaice/seaice_growth.F 1709 SEAICE_GROWTH 
            d_HEFFbyFLOODING(I,J) = d_HEFFbyFLOODING(I,J)  + tmpscal1
./pkg/seaice/seaice_growth.F 1718 SEAICE_GROWTH 
           tmpscal1 = MAX( 0. _d 0, tmpscal0 - HEFF(I,J,bi,bj))
./pkg/seaice/seaice_growth.F 1719 SEAICE_GROWTH 
           d_HEFFbyFLOODING(I,J)=tmpscal1
./pkg/seaice/seaice_growth.F 1837 SEAICE_GROWTH 
            tmpscal1= a_QbyATM_open(I,J)+a_QbyATM_cover(I,J)
./pkg/seaice/seaice_growth.F 1840 SEAICE_GROWTH 
            tmpscal2 = MAX(-tmpscal0,tmpscal1)
./pkg/seaice/seaice_growth.F 1895 SEAICE_GROWTH 
              tmpscal1=0. _d 0
./pkg/seaice/seaice_growth.F 1897 SEAICE_GROWTH 
              tmpscal1=AREAITDpreTH(I,J,IT)*
./pkg/seaice/seaice_growth.F 1908 SEAICE_GROWTH 
     &                                   tmpscal1)
./pkg/seaice/seaice_growth.F 1989 SEAICE_GROWTH 
          tmpscal1 = d_HEFFbyNEG(I,J,bi,bj) + d_HEFFbyOCNonICE(I,J) +
./pkg/seaice/seaice_growth.F 1998 SEAICE_GROWTH 
          tmpscal2 = tmpscal1 * tmpscal3 * HEFFM(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 2024 SEAICE_GROWTH 
          tmpscal1 = IceGrowthRateInLeads(I,J)
./pkg/seaice/seaice_growth.F 2030 SEAICE_GROWTH 
          tmpscal3 = tmpscal1*salt(I,J,kSurface,bi,bj)*HEFFM(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 2053 SEAICE_GROWTH 
         tmpscal1=d_HEFFbyOCNonICE(I,J)+d_HEFFbyATMonOCN(I,J)
./pkg/seaice/seaice_growth.F 2056 SEAICE_GROWTH 
         tmpscal2=HEFF(I,J,bi,bj)-tmpscal1-d_HEFFbyFLOODING(I,J)
./pkg/seaice/seaice_growth.F 2058 SEAICE_GROWTH 
          IF ( tmpscal1 .GE. 0.0 ) THEN
./pkg/seaice/seaice_growth.F 2062 SEAICE_GROWTH 
     &            *tmpscal1*SEAICE_rhoIce
./pkg/seaice/seaice_growth.F 2082 SEAICE_GROWTH 
     &            *tmpscal1*SEAICE_rhoIce
./pkg/seaice/seaice_growth.F 2092 SEAICE_GROWTH 
     &         *tmpscal1/tmpscal2
./pkg/seaice/seaice_growth.F 2110 SEAICE_GROWTH 
          tmpscal1 = IceGrowthRateInLeads(I,J)
./pkg/seaice/seaice_growth.F 2115 SEAICE_GROWTH 
          IF ( tmpscal1 .GE. 0.0) THEN
./pkg/seaice/seaice_growth.F 2120 SEAICE_GROWTH 
     &            *tmpscal1*SEAICE_rhoIce
./pkg/seaice/seaice_growth.F 2260 SEAICE_GROWTH 
           tmpscal1 = ZERO
./pkg/seaice/seaice_growth.F 2272 SEAICE_GROWTH 
             tmpscal1 = - tmpscal3*
./pkg/seaice/seaice_growth.F 2276 SEAICE_GROWTH 
             tmpscal1 = - tmpscal3*
./pkg/seaice/seaice_growth.F 2279 SEAICE_GROWTH 
             tmpscal1 = - tmpscal3*HeatCapacity_Cp*
./pkg/seaice/seaice_growth.F 2282 SEAICE_GROWTH 
             tmpscal1 = ZERO
./pkg/seaice/seaice_growth.F 2286 SEAICE_GROWTH 
           DIAGarrayA(I,J)=tmpscal1
./pkg/seaice/seaice_growth.F 2291 SEAICE_GROWTH 
     &       QNET(I,J,bi,bj)=QNET(I,J,bi,bj)+tmpscal1
./pkg/seaice/seaice_growth.F 2321 SEAICE_GROWTH 
           tmpscal1 = rhoConstFresh*maskC(I,J,kSurface,bi,bj)
./pkg/seaice/seaice_growth.F 2336 SEAICE_GROWTH 
           tmpscal1= - tmpscal1*
./pkg/seaice/seaice_growth.F 2352 SEAICE_GROWTH 
           SItflux(I,J,bi,bj)= SIatmQnt(I,J,bi,bj)-tmpscal1-tmpscal2
./pkg/seaice/seaice_growth.F 2362 SEAICE_GROWTH 
          tmpscal1= d_HSNWbyATMonSNW(I,J)*SNOW2ICE
./pkg/seaice/seaice_growth.F 2380 SEAICE_GROWTH 
     &         + tmpscal1*convertHI2PRECIP
./pkg/seaice/seaice_growth.F 2458 SEAICE_GROWTH 
           tmpscal1 = HEFF(I,J,bi,bj)*SEAICE_rhoIce
./pkg/seaice/seaice_growth.F 2460 SEAICE_GROWTH 
           tmpscal2 = MIN(tmpscal1,heffTooHeavy*rhoConst)
./pkg/seaice/seaice_growth.F 2512 SEAICE_GROWTH 
         tmpscal1=1. _d 0 * recip_deltaTtherm
./pkg/seaice/seaice_growth.F 2514 SEAICE_GROWTH 
     &      tmpscal1,1,'SIaQbATC',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 2516 SEAICE_GROWTH 
     &      tmpscal1,1,'SIaQbATO',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 2518 SEAICE_GROWTH 
     &      tmpscal1,1,'SIaQbOCN',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 2520 SEAICE_GROWTH 
     &      tmpscal1,1,'SIdHbOCN',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 2522 SEAICE_GROWTH 
     &      tmpscal1,1,'SIdHbATC',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 2524 SEAICE_GROWTH 
     &      tmpscal1,1,'SIdHbATO',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 2526 SEAICE_GROWTH 
     &      tmpscal1,1,'SIdHbFLO',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 2528 SEAICE_GROWTH 
     &      tmpscal1,1,'SIdSbOCN',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 2530 SEAICE_GROWTH 
     &      tmpscal1,1,'SIdSbATC',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 2532 SEAICE_GROWTH 
     &      tmpscal1,1,'SIdAbATO',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 2534 SEAICE_GROWTH 
     &      tmpscal1,1,'SIdAbATC',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 2536 SEAICE_GROWTH 
     &      tmpscal1,1,'SIdAbOCN',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 2552 SEAICE_GROWTH 
     &      tmpscal1,1,'SIdA    ',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 2573 SEAICE_GROWTH 
           tmpscal1= EVAP(I,J,bi,bj)*( ONE - AREApreTH(I,J) )
./pkg/seaice/seaice_growth.F 2579 SEAICE_GROWTH 
     &             * ( tmpscal1*SEAICE_lhEvap + tmpscal2*tmpscal3 )
./pkg/seaice/seaice_growth.F 2627 SEAICE_GROWTH 
      tmpscal1=FWFsiGlob / globalArea * FWF2HFsiGlob / globalArea
./pkg/seaice/seaice_growth.F 2631 SEAICE_GROWTH 
      IF ( balanceEmPmR ) tmpscal2=tmpscal2-tmpscal1
./pkg/seaice/seaice_growth.F 2644 SEAICE_GROWTH 
            tmpscal1=
./pkg/seaice/seaice_growth.F 2648 SEAICE_GROWTH 
            tmpscal1=
./pkg/seaice/seaice_growth.F 2651 SEAICE_GROWTH 
            tmpscal1=
./pkg/seaice/seaice_growth.F 2654 SEAICE_GROWTH 
            tmpscal1=ZERO
./pkg/seaice/seaice_growth.F 2656 SEAICE_GROWTH 
            SItflux(i,j,bi,bj) = SItflux(i,j,bi,bj) - tmpscal0*tmpscal1
./pkg/seaice/seaice_growth.F 2703 SEAICE_GROWTH 
        tmpscal1= - 1. _d 0
./pkg/seaice/seaice_growth.F 2705 SEAICE_GROWTH 
     &        tmpscal1,1,'SIatmFW ',0,1,0,1,1,myThid)
./pkg/seaice/seaice_growth.F 635 SEAICE_GROWTH 
            tmpscal1 = SQRT(AREAITDpreTH(I,J,IT) * AREAITDpreTH(I,J,IT)
./pkg/seaice/seaice_growth.F 638 SEAICE_GROWTH 
            tmpscal2 = HEFFITDpreTH(I,J,IT) / tmpscal1
./pkg/seaice/seaice_growth.F 643 SEAICE_GROWTH 
            hsnowActualMult(I,J,IT) = HSNWITDpreTH(I,J,IT) / tmpscal1
./pkg/seaice/seaice_growth.F 662 SEAICE_GROWTH 
           tmpscal1 = SQRT(AREApreTH(I,J)* AREApreTH(I,J) + area_reg_sq)
./pkg/seaice/seaice_growth.F 664 SEAICE_GROWTH 
           tmpscal2 = HEFFpreTH(I,J) / tmpscal1
./pkg/seaice/seaice_growth.F 668 SEAICE_GROWTH 
           hsnowActual(I,J) = HSNWpreTH(I,J) / tmpscal1
./pkg/seaice/seaice_reg_ridge.F 161 SEAICE_REG_RIDGE 
           tmpscal1=0. _d 0
./pkg/seaice/seaice_reg_ridge.F 163 SEAICE_REG_RIDGE 
           tmpscal1=MAX(-HEFFITD(I,J,IT,bi,bj),0. _d 0)
./pkg/seaice/seaice_reg_ridge.F 164 SEAICE_REG_RIDGE 
           HEFFITD(I,J,IT,bi,bj)=HEFFITD(I,J,IT,bi,bj)+tmpscal1
./pkg/seaice/seaice_reg_ridge.F 165 SEAICE_REG_RIDGE 
           d_HEFFbyNEG(I,J,bi,bj)=d_HEFFbyNEG(I,J,bi,bj)+tmpscal1
./pkg/seaice/seaice_reg_ridge.F 219 SEAICE_REG_RIDGE 
          tmpscal1=0. _d 0
./pkg/seaice/seaice_reg_ridge.F 222 SEAICE_REG_RIDGE 
           tmpscal1=-HEFF(I,J,bi,bj)
./pkg/seaice/seaice_reg_ridge.F 228 SEAICE_REG_RIDGE 
          HEFF(I,J,bi,bj)=HEFF(I,J,bi,bj)+tmpscal1
./pkg/seaice/seaice_reg_ridge.F 230 SEAICE_REG_RIDGE 
          d_HEFFbyNEG(I,J,bi,bj)=d_HEFFbyNEG(I,J,bi,bj)+tmpscal1
./pkg/seaice/seaice_reg_ridge.F 68 SEAICE_REG_RIDGE 
      _RL tmpscal1, tmpscal2
./pkg/seaice/seaice_tracer_phys.F 185 SEAICE_TRACER_PHYS 
          tmpscal1=1. _d 0
./pkg/seaice/seaice_tracer_phys.F 186 SEAICE_TRACER_PHYS 
          if (HEFFprev.GT.HEFFpost) tmpscal1=HEFFpost/HEFFprev
./pkg/seaice/seaice_tracer_phys.F 187 SEAICE_TRACER_PHYS 
          SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)*tmpscal1
./pkg/seaice/seaice_tracer_phys.F 196 SEAICE_TRACER_PHYS 
        tmpscal1=-ONE/SEAICE_deltaTtherm*SEAICE_rhoIce
./pkg/seaice/seaice_tracer_phys.F 198 SEAICE_TRACER_PHYS 
     &   tmpscal1, 1, diagName,0,1,2,bi,bj,myThid)
./pkg/seaice/seaice_tracer_phys.F 45 SEAICE_TRACER_PHYS 
      _RL HEFFprev, HEFFpost, growFact, meltPart, tmpscal1