Symbol Description Uses
tmpscal1 148


File Line number Procedure Code
./pkg/seaice/seaice_advdiff.F 474 SEAICE_ADVDIFF 
             tmpscal1=max(SItrPrev(i,j,bi,bj),
./pkg/seaice/seaice_advdiff.F 477 SEAICE_ADVDIFF 
             tmpscal2=MAX(ZERO,SItracer(i,j,bi,bj,iTr)-tmpscal1)
./pkg/seaice/seaice_advdiff.F 484 SEAICE_ADVDIFF 
              tmpscal1=MIN(0. _d 0,SItracer(i,j,bi,bj,iTr))
./pkg/seaice/seaice_advdiff.F 485 SEAICE_ADVDIFF 
              SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)-tmpscal1
./pkg/seaice/seaice_advdiff.F 487 SEAICE_ADVDIFF 
     &                                 +HEFF(I,J,bi,bj)*tmpscal1
./pkg/seaice/seaice_advdiff.F 492 SEAICE_ADVDIFF 
      tmpscal1= ( HEFF(I,J,bi,bj)*SItracer(i,j,bi,bj,iTr)
./pkg/seaice/seaice_advdiff.F 494 SEAICE_ADVDIFF 
      diagArray(I,J,2+(iTr-1)*5)= tmpscal1-diagArray(I,J,2+(iTr-1)*5)
./pkg/seaice/seaice_advdiff.F 511 SEAICE_ADVDIFF 
             tmpscal1=max(SItrPrev(i,j,bi,bj),
./pkg/seaice/seaice_advdiff.F 514 SEAICE_ADVDIFF 
             tmpscal2=MAX(ZERO,SItracer(i,j,bi,bj,iTr)-tmpscal1)
./pkg/seaice/seaice_advdiff.F 519 SEAICE_ADVDIFF 
              tmpscal1=MIN(0. _d 0,SItracer(i,j,bi,bj,iTr))
./pkg/seaice/seaice_advdiff.F 520 SEAICE_ADVDIFF 
              SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)-tmpscal1
./pkg/seaice/seaice_advdiff.F 82 SEAICE_ADVDIFF 
      _RL tmpscal1, tmpscal2
./pkg/seaice/seaice_calc_ice_strength.F 105 SEAICE_CALC_ICE_STRENGTH 
          tmpscal1=MAX(HEFF(i,j,bi,bj)/SEAICEpresH0,ZERO)
./pkg/seaice/seaice_calc_ice_strength.F 106 SEAICE_CALC_ICE_STRENGTH 
          tmpscal2=SEAICEpresH0*(tmpscal1**SEAICEpresPow0)
./pkg/seaice/seaice_calc_ice_strength.F 109 SEAICE_CALC_ICE_STRENGTH 
          tmpscal1=MAX(HEFF(i,j,bi,bj)/SEAICEpresH0,ZERO)
./pkg/seaice/seaice_calc_ice_strength.F 110 SEAICE_CALC_ICE_STRENGTH 
          tmpscal2=SEAICEpresH0*(tmpscal1**SEAICEpresPow1)
./pkg/seaice/seaice_calc_ice_strength.F 134 SEAICE_CALC_ICE_STRENGTH 
        tmpscal1 = 1. _d 0 / 3. _d 0
./pkg/seaice/seaice_calc_ice_strength.F 145 SEAICE_CALC_ICE_STRENGTH 
     &          + hrMax(i,j,k)*hrMin(i,j,k) )*tmpscal1
./pkg/seaice/seaice_calc_ice_strength.F 165 SEAICE_CALC_ICE_STRENGTH 
       tmpscal1 = SEAICE_cf*0.5*gravity*(rhoConst-SEAICE_rhoIce)
./pkg/seaice/seaice_calc_ice_strength.F 170 SEAICE_CALC_ICE_STRENGTH 
     &        *tmpscal1
./pkg/seaice/seaice_calc_ice_strength.F 59 SEAICE_CALC_ICE_STRENGTH 
      _RL tmpscal1, tmpscal2
./pkg/seaice/seaice_freedrift.F 107 SEAICE_FREEDRIFT 
            tmpscal1 = 1. _d 0 /SEAICE_waterDrag_south
./pkg/seaice/seaice_freedrift.F 109 SEAICE_FREEDRIFT 
            tmpscal1 = 1. _d 0 /SEAICE_waterDrag
./pkg/seaice/seaice_freedrift.F 112 SEAICE_FREEDRIFT 
           tmpscal2= tmpscal1*tmpscal1*mIceCor*mIceCor
./pkg/seaice/seaice_freedrift.F 113 SEAICE_FREEDRIFT 
           tmpscal3= tmpscal1*tmpscal1*rhs_n*rhs_n
./pkg/seaice/seaice_freedrift.F 125 SEAICE_FREEDRIFT 
            tmpscal1 = SEAICE_waterDrag_south
./pkg/seaice/seaice_freedrift.F 127 SEAICE_FREEDRIFT 
            tmpscal1 = SEAICE_waterDrag
./pkg/seaice/seaice_freedrift.F 130 SEAICE_FREEDRIFT 
           tmpscal2= tmpscal1*sol_n*sol_n
./pkg/seaice/seaice_freedrift.F 43 SEAICE_FREEDRIFT 
      _RL tmpscal1,tmpscal2,tmpscal3,tmpscal4
./pkg/seaice/seaice_freedrift.F 95 SEAICE_FREEDRIFT 
           tmpscal1=rhs_x*rhs_x + rhs_y*rhs_y
./pkg/seaice/seaice_freedrift.F 96 SEAICE_FREEDRIFT 
           IF ( tmpscal1.GT.ZERO ) THEN
./pkg/seaice/seaice_growth.F 1025 SEAICE_GROWTH 
           tmpscal1 = SEAICE_mcPheePiston
./pkg/seaice/seaice_growth.F 1027 SEAICE_GROWTH 
           tmpscal1 =SEAICE_frazilFrac*drF(kSurface)/SEAICE_deltaTtherm
./pkg/seaice/seaice_growth.F 1046 SEAICE_GROWTH 
     &         tmpscal1 * tmpscal2 * MixedLayerTurbulenceFactor
./pkg/seaice/seaice_growth.F 1061 SEAICE_GROWTH 
           tmpscal1=(theta(I,J,kSurface,bi,bj)-tempFrz)
./pkg/seaice/seaice_growth.F 1078 SEAICE_GROWTH 
            latMeltRate(i,j,it) = 1.6 _d -6 * tmpscal1**1.36
./pkg/seaice/seaice_growth.F 1129 SEAICE_GROWTH 
           tmpscal1 = uWind(I,J,bi,bj)*uWind(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 1131 SEAICE_GROWTH 
           IF ( tmpscal1 .LE. SEAICE_EPS_SQ ) THEN
./pkg/seaice/seaice_growth.F 1132 SEAICE_GROWTH 
             tmpscal1=SEAICE_EPS
./pkg/seaice/seaice_growth.F 1134 SEAICE_GROWTH 
             tmpscal1=SQRT(tmpscal2)
./pkg/seaice/seaice_growth.F 1136 SEAICE_GROWTH 
           tmpscal1 = 1.4 _d 0 * 1.3 _d -3 * tmpscal1
./pkg/seaice/seaice_growth.F 1158 SEAICE_GROWTH 
     &         ( tmpscal1 * uWind(I,J,bi,bj) + tmpscal4 * tmpscal2 )**2
./pkg/seaice/seaice_growth.F 1159 SEAICE_GROWTH 
     &       + ( tmpscal1 * vWind(I,J,bi,bj) + tmpscal4 * tmpscal3 )**2
./pkg/seaice/seaice_growth.F 1287 SEAICE_GROWTH 
           tmpscal1=MAX(r_QbyOCN(i,j)*areaFracFactor(I,J,IT),
./pkg/seaice/seaice_growth.F 1289 SEAICE_GROWTH 
           d_HEFFbyOCNonICE_ITD(I,J,IT)=tmpscal1
./pkg/seaice/seaice_growth.F 1290 SEAICE_GROWTH 
           d_HEFFbyOCNonICE(I,J) = d_HEFFbyOCNonICE(I,J) + tmpscal1
./pkg/seaice/seaice_growth.F 1337 SEAICE_GROWTH 
           tmpscal1=MAX(r_QbyATMmult_cover(I,J,IT),
./pkg/seaice/seaice_growth.F 1339 SEAICE_GROWTH 
           tmpscal2=MIN(tmpscal1,0. _d 0)
./pkg/seaice/seaice_growth.F 1357 SEAICE_GROWTH 
          tmpscal1=MAX(r_QbyATM_cover(I,J),-HSNOW(I,J,bi,bj)*SNOW2ICE)
./pkg/seaice/seaice_growth.F 1358 SEAICE_GROWTH 
          tmpscal2=MIN(tmpscal1,0. _d 0)
./pkg/seaice/seaice_growth.F 1387 SEAICE_GROWTH 
           tmpscal1 = HEFFITDpreTH(I,J,IT)
./pkg/seaice/seaice_growth.F 1390 SEAICE_GROWTH 
           tmpscal2 = MAX(-tmpscal1,
./pkg/seaice/seaice_growth.F 142 SEAICE_GROWTH 
      _RL tmpscal0, tmpscal1, tmpscal2, tmpscal3, tmpscal4
./pkg/seaice/seaice_growth.F 1517 SEAICE_GROWTH 
           tmpscal1=MAX(r_QbyOCN(i,j)*ICE2SNOW*areaFracFactor(I,J,IT),
./pkg/seaice/seaice_growth.F 1519 SEAICE_GROWTH 
           tmpscal2=MIN(tmpscal1,0. _d 0)
./pkg/seaice/seaice_growth.F 1533 SEAICE_GROWTH 
          tmpscal1=MAX(r_QbyOCN(i,j)*ICE2SNOW, -HSNOW(I,J,bi,bj))
./pkg/seaice/seaice_growth.F 1534 SEAICE_GROWTH 
          tmpscal2=MIN(tmpscal1,0. _d 0)
./pkg/seaice/seaice_growth.F 1577 SEAICE_GROWTH 
            tmpscal1=r_QbyATM_open(I,J)+r_QbyOCN(i,j) *
./pkg/seaice/seaice_growth.F 1584 SEAICE_GROWTH 
            tmpscal3=facOpenGrow*MAX(tmpscal1-tmpscal2,
./pkg/seaice/seaice_growth.F 1611 SEAICE_GROWTH 
           tmpscal1=exp(-SEAICE_deltaTtherm/greaseDecayTime)
./pkg/seaice/seaice_growth.F 1615 SEAICE_GROWTH 
     &           * (1.0 _d 0 - tmpscal1)
./pkg/seaice/seaice_growth.F 1618 SEAICE_GROWTH 
     &             SItracer(I,J,bi,bj,iTrGrease) * tmpscal1
./pkg/seaice/seaice_growth.F 1685 SEAICE_GROWTH 
            tmpscal1 = MAX( 0. _d 0, tmpscal0 - tmpscal3)
./pkg/seaice/seaice_growth.F 1686 SEAICE_GROWTH 
            d_HEFFbyFLOODING_ITD(I,J,IT) = tmpscal1
./pkg/seaice/seaice_growth.F 1687 SEAICE_GROWTH 
            d_HEFFbyFLOODING(I,J) = d_HEFFbyFLOODING(I,J)  + tmpscal1
./pkg/seaice/seaice_growth.F 1696 SEAICE_GROWTH 
           tmpscal1 = MAX( 0. _d 0, tmpscal0 - HEFF(I,J,bi,bj))
./pkg/seaice/seaice_growth.F 1697 SEAICE_GROWTH 
           d_HEFFbyFLOODING(I,J)=tmpscal1
./pkg/seaice/seaice_growth.F 1815 SEAICE_GROWTH 
            tmpscal1= a_QbyATM_open(I,J)+a_QbyATM_cover(I,J)
./pkg/seaice/seaice_growth.F 1818 SEAICE_GROWTH 
            tmpscal2 = MAX(-tmpscal0,tmpscal1)
./pkg/seaice/seaice_growth.F 1865 SEAICE_GROWTH 
             tmpscal1=HEFFITDpreTH(I,J,IT)/AREAITDpreTH(I,J,IT)
./pkg/seaice/seaice_growth.F 1873 SEAICE_GROWTH 
     &                                   HEFFITD(I,J,IT,bi,bj)/tmpscal1)
./pkg/seaice/seaice_growth.F 1951 SEAICE_GROWTH 
          tmpscal1 = d_HEFFbyNEG(I,J,bi,bj) + d_HEFFbyOCNonICE(I,J) +
./pkg/seaice/seaice_growth.F 1960 SEAICE_GROWTH 
          tmpscal2 = tmpscal1 * tmpscal3 * HEFFM(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 1986 SEAICE_GROWTH 
          tmpscal1 = IceGrowthRateInLeads(I,J)
./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 2015 SEAICE_GROWTH 
         tmpscal1=d_HEFFbyOCNonICE(I,J)+d_HEFFbyATMonOCN(I,J)
./pkg/seaice/seaice_growth.F 2018 SEAICE_GROWTH 
         tmpscal2=HEFF(I,J,bi,bj)-tmpscal1-d_HEFFbyFLOODING(I,J)
./pkg/seaice/seaice_growth.F 2020 SEAICE_GROWTH 
          IF ( tmpscal1 .GE. 0.0 ) THEN
./pkg/seaice/seaice_growth.F 2024 SEAICE_GROWTH 
     &            *tmpscal1*SEAICE_rhoIce
./pkg/seaice/seaice_growth.F 2044 SEAICE_GROWTH 
     &            *tmpscal1*SEAICE_rhoIce
./pkg/seaice/seaice_growth.F 2054 SEAICE_GROWTH 
     &         *tmpscal1/tmpscal2
./pkg/seaice/seaice_growth.F 2072 SEAICE_GROWTH 
          tmpscal1 = IceGrowthRateInLeads(I,J)
./pkg/seaice/seaice_growth.F 2077 SEAICE_GROWTH 
          IF ( tmpscal1 .GE. 0.0) THEN
./pkg/seaice/seaice_growth.F 2082 SEAICE_GROWTH 
     &            *tmpscal1*SEAICE_rhoIce
./pkg/seaice/seaice_growth.F 2222 SEAICE_GROWTH 
           tmpscal1 = ZERO
./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 2244 SEAICE_GROWTH 
             tmpscal1 = ZERO
./pkg/seaice/seaice_growth.F 2248 SEAICE_GROWTH 
           DIAGarrayA(I,J)=tmpscal1
./pkg/seaice/seaice_growth.F 2253 SEAICE_GROWTH 
     &       QNET(I,J,bi,bj)=QNET(I,J,bi,bj)+tmpscal1
./pkg/seaice/seaice_growth.F 2283 SEAICE_GROWTH 
           tmpscal1 = rhoConstFresh*maskC(I,J,kSurface,bi,bj)
./pkg/seaice/seaice_growth.F 2298 SEAICE_GROWTH 
           tmpscal1= - tmpscal1*
./pkg/seaice/seaice_growth.F 2314 SEAICE_GROWTH 
           SItflux(I,J,bi,bj)= SIatmQnt(I,J,bi,bj)-tmpscal1-tmpscal2
./pkg/seaice/seaice_growth.F 2324 SEAICE_GROWTH 
          tmpscal1= d_HSNWbyATMonSNW(I,J)*SNOW2ICE
./pkg/seaice/seaice_growth.F 2342 SEAICE_GROWTH 
     &         + tmpscal1*convertHI2PRECIP
./pkg/seaice/seaice_growth.F 2418 SEAICE_GROWTH 
           tmpscal1 = HEFF(I,J,bi,bj)*SEAICE_rhoIce
./pkg/seaice/seaice_growth.F 2420 SEAICE_GROWTH 
           tmpscal2 = MIN(tmpscal1,heffTooHeavy*rhoConst)
./pkg/seaice/seaice_growth.F 2472 SEAICE_GROWTH 
         tmpscal1=1. _d 0 * recip_deltaTtherm
./pkg/seaice/seaice_growth.F 2474 SEAICE_GROWTH 
     &      tmpscal1,1,'SIaQbATC',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 2476 SEAICE_GROWTH 
     &      tmpscal1,1,'SIaQbATO',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 2478 SEAICE_GROWTH 
     &      tmpscal1,1,'SIaQbOCN',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 2480 SEAICE_GROWTH 
     &      tmpscal1,1,'SIdHbOCN',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 2482 SEAICE_GROWTH 
     &      tmpscal1,1,'SIdHbATC',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 2484 SEAICE_GROWTH 
     &      tmpscal1,1,'SIdHbATO',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 2486 SEAICE_GROWTH 
     &      tmpscal1,1,'SIdHbFLO',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 2488 SEAICE_GROWTH 
     &      tmpscal1,1,'SIdSbOCN',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 2490 SEAICE_GROWTH 
     &      tmpscal1,1,'SIdSbATC',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 2492 SEAICE_GROWTH 
     &      tmpscal1,1,'SIdAbATO',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 2494 SEAICE_GROWTH 
     &      tmpscal1,1,'SIdAbATC',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 2496 SEAICE_GROWTH 
     &      tmpscal1,1,'SIdAbOCN',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 2512 SEAICE_GROWTH 
     &      tmpscal1,1,'SIdA    ',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 2533 SEAICE_GROWTH 
           tmpscal1= EVAP(I,J,bi,bj)*( ONE - AREApreTH(I,J) )
./pkg/seaice/seaice_growth.F 2539 SEAICE_GROWTH 
     &             * ( tmpscal1*SEAICE_lhEvap + tmpscal2*tmpscal3 )
./pkg/seaice/seaice_growth.F 2587 SEAICE_GROWTH 
      tmpscal1=FWFsiGlob / globalArea * FWF2HFsiGlob / globalArea
./pkg/seaice/seaice_growth.F 2591 SEAICE_GROWTH 
      IF ( balanceEmPmR ) tmpscal2=tmpscal2-tmpscal1
./pkg/seaice/seaice_growth.F 2604 SEAICE_GROWTH 
            tmpscal1=
./pkg/seaice/seaice_growth.F 2608 SEAICE_GROWTH 
            tmpscal1=
./pkg/seaice/seaice_growth.F 2611 SEAICE_GROWTH 
            tmpscal1=
./pkg/seaice/seaice_growth.F 2614 SEAICE_GROWTH 
            tmpscal1=ZERO
./pkg/seaice/seaice_growth.F 2616 SEAICE_GROWTH 
            SItflux(i,j,bi,bj) = SItflux(i,j,bi,bj) - tmpscal0*tmpscal1
./pkg/seaice/seaice_growth.F 2663 SEAICE_GROWTH 
        tmpscal1= - 1. _d 0
./pkg/seaice/seaice_growth.F 2665 SEAICE_GROWTH 
     &        tmpscal1,1,'SIatmFW ',0,1,0,1,1,myThid)
./pkg/seaice/seaice_growth.F 617 SEAICE_GROWTH 
            tmpscal1 = SQRT(AREAITDpreTH(I,J,IT) * AREAITDpreTH(I,J,IT)
./pkg/seaice/seaice_growth.F 620 SEAICE_GROWTH 
            tmpscal2 = HEFFITDpreTH(I,J,IT) / tmpscal1
./pkg/seaice/seaice_growth.F 625 SEAICE_GROWTH 
            hsnowActualMult(I,J,IT) = HSNWITDpreTH(I,J,IT) / tmpscal1
./pkg/seaice/seaice_growth.F 644 SEAICE_GROWTH 
           tmpscal1 = SQRT(AREApreTH(I,J)* AREApreTH(I,J) + area_reg_sq)
./pkg/seaice/seaice_growth.F 646 SEAICE_GROWTH 
           tmpscal2 = HEFFpreTH(I,J) / tmpscal1
./pkg/seaice/seaice_growth.F 650 SEAICE_GROWTH 
           hsnowActual(I,J) = HSNWpreTH(I,J) / tmpscal1
./pkg/seaice/seaice_reg_ridge.F 158 SEAICE_REG_RIDGE 
           tmpscal1=0. _d 0
./pkg/seaice/seaice_reg_ridge.F 160 SEAICE_REG_RIDGE 
           tmpscal1=MAX(-HEFFITD(I,J,IT,bi,bj),0. _d 0)
./pkg/seaice/seaice_reg_ridge.F 161 SEAICE_REG_RIDGE 
           HEFFITD(I,J,IT,bi,bj)=HEFFITD(I,J,IT,bi,bj)+tmpscal1
./pkg/seaice/seaice_reg_ridge.F 162 SEAICE_REG_RIDGE 
           d_HEFFbyNEG(I,J,bi,bj)=d_HEFFbyNEG(I,J,bi,bj)+tmpscal1
./pkg/seaice/seaice_reg_ridge.F 216 SEAICE_REG_RIDGE 
          tmpscal1=0. _d 0
./pkg/seaice/seaice_reg_ridge.F 219 SEAICE_REG_RIDGE 
           tmpscal1=-HEFF(I,J,bi,bj)
./pkg/seaice/seaice_reg_ridge.F 225 SEAICE_REG_RIDGE 
          HEFF(I,J,bi,bj)=HEFF(I,J,bi,bj)+tmpscal1
./pkg/seaice/seaice_reg_ridge.F 227 SEAICE_REG_RIDGE 
          d_HEFFbyNEG(I,J,bi,bj)=d_HEFFbyNEG(I,J,bi,bj)+tmpscal1
./pkg/seaice/seaice_reg_ridge.F 65 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