Symbol Description Uses
tmpscal2 117


File Line number Procedure Code
./pkg/seaice/seaice_advdiff.F 477 SEAICE_ADVDIFF 
             tmpscal2=MAX(ZERO,SItracer(i,j,bi,bj,iTr)-tmpscal1)
./pkg/seaice/seaice_advdiff.F 478 SEAICE_ADVDIFF 
             SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)-tmpscal2
./pkg/seaice/seaice_advdiff.F 480 SEAICE_ADVDIFF 
     &           +tmpscal2*HEFF(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 515 SEAICE_ADVDIFF 
             SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)-tmpscal2
./pkg/seaice/seaice_advdiff.F 82 SEAICE_ADVDIFF 
      _RL tmpscal1, tmpscal2
./pkg/seaice/seaice_calc_ice_strength.F 106 SEAICE_CALC_ICE_STRENGTH 
          tmpscal2=SEAICEpresH0*(tmpscal1**SEAICEpresPow0)
./pkg/seaice/seaice_calc_ice_strength.F 110 SEAICE_CALC_ICE_STRENGTH 
          tmpscal2=SEAICEpresH0*(tmpscal1**SEAICEpresPow1)
./pkg/seaice/seaice_calc_ice_strength.F 112 SEAICE_CALC_ICE_STRENGTH 
          tmpscal2=HEFF(i,j,bi,bj)
./pkg/seaice/seaice_calc_ice_strength.F 114 SEAICE_CALC_ICE_STRENGTH 
         PRESS0(I,J,bi,bj)=SEAICE_strength*tmpscal2
./pkg/seaice/seaice_calc_ice_strength.F 59 SEAICE_CALC_ICE_STRENGTH 
      _RL tmpscal1, tmpscal2
./pkg/seaice/seaice_freedrift.F 112 SEAICE_FREEDRIFT 
           tmpscal2= tmpscal1*tmpscal1*mIceCor*mIceCor
./pkg/seaice/seaice_freedrift.F 115 SEAICE_FREEDRIFT 
           tmpscal4=tmpscal2*tmpscal2+4. _d 0*tmpscal3
./pkg/seaice/seaice_freedrift.F 117 SEAICE_FREEDRIFT 
             sol_n=SQRT(HALF*(SQRT(tmpscal4)-tmpscal2))
./pkg/seaice/seaice_freedrift.F 130 SEAICE_FREEDRIFT 
           tmpscal2= tmpscal1*sol_n*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 1041 SEAICE_GROWTH 
          tmpscal2= - (HeatCapacity_Cp*rhoConst * recip_QI)
./pkg/seaice/seaice_growth.F 1046 SEAICE_GROWTH 
     &         tmpscal1 * tmpscal2 * MixedLayerTurbulenceFactor
./pkg/seaice/seaice_growth.F 1062 SEAICE_GROWTH 
           tmpscal2=sqrt(0.87 + 0.067*UG(i,j)) * UG(i,j)
./pkg/seaice/seaice_growth.F 1134 SEAICE_GROWTH 
             tmpscal1=SQRT(tmpscal2)
./pkg/seaice/seaice_growth.F 1139 SEAICE_GROWTH 
           tmpscal2 =
./pkg/seaice/seaice_growth.F 1149 SEAICE_GROWTH 
           tmpscal4 = (tmpscal2*tmpscal2 + tmpscal3*tmpscal3)
./pkg/seaice/seaice_growth.F 1158 SEAICE_GROWTH 
     &         ( tmpscal1 * uWind(I,J,bi,bj) + tmpscal4 * tmpscal2 )**2
./pkg/seaice/seaice_growth.F 1210 SEAICE_GROWTH 
          tmpscal2 =
./pkg/seaice/seaice_growth.F 1214 SEAICE_GROWTH 
          d_HSNWbySublim_ITD(I,J,IT) = - tmpscal2 * ICE2SNOW
./pkg/seaice/seaice_growth.F 1216 SEAICE_GROWTH 
          d_HSNWbySublim(I,J)     = d_HSNWbySublim(I,J)      - tmpscal2
./pkg/seaice/seaice_growth.F 1218 SEAICE_GROWTH 
          r_FWbySublimMult(I,J,IT)= r_FWbySublimMult(I,J,IT) - tmpscal2
./pkg/seaice/seaice_growth.F 1221 SEAICE_GROWTH 
          d_HSNWbySublim(I,J) = - tmpscal2 * ICE2SNOW
./pkg/seaice/seaice_growth.F 1222 SEAICE_GROWTH 
          HSNOW(I,J,bi,bj)    = HSNOW(I,J,bi,bj)  - tmpscal2*ICE2SNOW
./pkg/seaice/seaice_growth.F 1223 SEAICE_GROWTH 
          r_FWbySublim(I,J)   = r_FWbySublim(I,J) - tmpscal2
./pkg/seaice/seaice_growth.F 1234 SEAICE_GROWTH 
          tmpscal2 =
./pkg/seaice/seaice_growth.F 1237 SEAICE_GROWTH 
          d_HEFFbySublim_ITD(I,J,IT) = - tmpscal2
./pkg/seaice/seaice_growth.F 1239 SEAICE_GROWTH 
          d_HEFFbySublim(I,J)      = d_HEFFbySublim(I,J)      - tmpscal2
./pkg/seaice/seaice_growth.F 1240 SEAICE_GROWTH 
          r_FWbySublimMult(I,J,IT) = r_FWbySublimMult(I,J,IT) - tmpscal2
./pkg/seaice/seaice_growth.F 1243 SEAICE_GROWTH 
          d_HEFFbySublim(I,J) = - tmpscal2
./pkg/seaice/seaice_growth.F 1244 SEAICE_GROWTH 
          HEFF(I,J,bi,bj)     = HEFF(I,J,bi,bj)   - tmpscal2
./pkg/seaice/seaice_growth.F 1245 SEAICE_GROWTH 
          r_FWbySublim(I,J)   = r_FWbySublim(I,J) - tmpscal2
./pkg/seaice/seaice_growth.F 1339 SEAICE_GROWTH 
           tmpscal2=MIN(tmpscal1,0. _d 0)
./pkg/seaice/seaice_growth.F 1342 SEAICE_GROWTH 
           IF ( SEAICEadjMODE.GE.2 ) tmpscal2 = 0. _d 0
./pkg/seaice/seaice_growth.F 1344 SEAICE_GROWTH 
           d_HSNWbyATMonSNW_ITD(I,J,IT) = tmpscal2*ICE2SNOW
./pkg/seaice/seaice_growth.F 1346 SEAICE_GROWTH 
     &                           + tmpscal2*ICE2SNOW
./pkg/seaice/seaice_growth.F 1348 SEAICE_GROWTH 
     &                           - tmpscal2
./pkg/seaice/seaice_growth.F 1358 SEAICE_GROWTH 
          tmpscal2=MIN(tmpscal1,0. _d 0)
./pkg/seaice/seaice_growth.F 1361 SEAICE_GROWTH 
          IF ( SEAICEadjMODE.GE.2 ) tmpscal2 = 0. _d 0
./pkg/seaice/seaice_growth.F 1363 SEAICE_GROWTH 
          d_HSNWbyATMonSNW(I,J)= tmpscal2*ICE2SNOW
./pkg/seaice/seaice_growth.F 1364 SEAICE_GROWTH 
          HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj) + tmpscal2*ICE2SNOW
./pkg/seaice/seaice_growth.F 1365 SEAICE_GROWTH 
          r_QbyATM_cover(I,J)=r_QbyATM_cover(I,J) - tmpscal2
./pkg/seaice/seaice_growth.F 1390 SEAICE_GROWTH 
           tmpscal2 = MAX(-tmpscal1,
./pkg/seaice/seaice_growth.F 1394 SEAICE_GROWTH 
           d_HEFFbyATMonOCN_cover_ITD(I,J,IT) = tmpscal2
./pkg/seaice/seaice_growth.F 1396 SEAICE_GROWTH 
     &                                 + tmpscal2
./pkg/seaice/seaice_growth.F 1398 SEAICE_GROWTH 
     &                                 + tmpscal2
./pkg/seaice/seaice_growth.F 1400 SEAICE_GROWTH 
     &                                 + tmpscal2
./pkg/seaice/seaice_growth.F 1402 SEAICE_GROWTH 
     &                                 - tmpscal2
./pkg/seaice/seaice_growth.F 1418 SEAICE_GROWTH 
          tmpscal2 = MAX(-HEFF(I,J,bi,bj),r_QbyATM_cover(I,J)+
./pkg/seaice/seaice_growth.F 1422 SEAICE_GROWTH 
          d_HEFFbyATMonOCN_cover(I,J)=tmpscal2
./pkg/seaice/seaice_growth.F 1423 SEAICE_GROWTH 
          d_HEFFbyATMonOCN(I,J)=d_HEFFbyATMonOCN(I,J)+tmpscal2
./pkg/seaice/seaice_growth.F 1424 SEAICE_GROWTH 
          r_QbyATM_cover(I,J)=r_QbyATM_cover(I,J)-tmpscal2
./pkg/seaice/seaice_growth.F 1425 SEAICE_GROWTH 
          HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj) + tmpscal2
./pkg/seaice/seaice_growth.F 142 SEAICE_GROWTH 
      _RL tmpscal0, tmpscal1, tmpscal2, tmpscal3, tmpscal4
./pkg/seaice/seaice_growth.F 1519 SEAICE_GROWTH 
           tmpscal2=MIN(tmpscal1,0. _d 0)
./pkg/seaice/seaice_growth.F 1522 SEAICE_GROWTH 
           if ( SEAICEadjMODE.GE.2 ) tmpscal2 = 0. _d 0
./pkg/seaice/seaice_growth.F 1524 SEAICE_GROWTH 
           d_HSNWbyOCNonSNW_ITD(I,J,IT) = tmpscal2
./pkg/seaice/seaice_growth.F 1525 SEAICE_GROWTH 
           d_HSNWbyOCNonSNW(I,J) = d_HSNWbyOCNonSNW(I,J) + tmpscal2
./pkg/seaice/seaice_growth.F 1526 SEAICE_GROWTH 
           r_QbyOCN(I,J)=r_QbyOCN(I,J) - tmpscal2*SNOW2ICE
./pkg/seaice/seaice_growth.F 1534 SEAICE_GROWTH 
          tmpscal2=MIN(tmpscal1,0. _d 0)
./pkg/seaice/seaice_growth.F 1537 SEAICE_GROWTH 
          if ( SEAICEadjMODE.GE.2 ) tmpscal2 = 0. _d 0
./pkg/seaice/seaice_growth.F 1539 SEAICE_GROWTH 
          d_HSNWbyOCNonSNW(I,J) = tmpscal2
./pkg/seaice/seaice_growth.F 1581 SEAICE_GROWTH 
            tmpscal2=SWFracB * a_QSWbyATM_open(I,J)
./pkg/seaice/seaice_growth.F 1584 SEAICE_GROWTH 
            tmpscal3=facOpenGrow*MAX(tmpscal1-tmpscal2,
./pkg/seaice/seaice_growth.F 1818 SEAICE_GROWTH 
            tmpscal2 = MAX(-tmpscal0,tmpscal1)
./pkg/seaice/seaice_growth.F 1819 SEAICE_GROWTH 
            tmpscal3 = MIN(ZERO,tmpscal2)
./pkg/seaice/seaice_growth.F 1960 SEAICE_GROWTH 
          tmpscal2 = tmpscal1 * tmpscal3 * HEFFM(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 1962 SEAICE_GROWTH 
          saltFlux(I,J,bi,bj) = tmpscal2
./pkg/seaice/seaice_growth.F 1994 SEAICE_GROWTH 
          saltPlumeFlux(I,J,bi,bj) = MAX( tmpscal3-tmpscal2 , 0. _d 0)
./pkg/seaice/seaice_growth.F 2018 SEAICE_GROWTH 
         tmpscal2=HEFF(I,J,bi,bj)-tmpscal1-d_HEFFbyFLOODING(I,J)
./pkg/seaice/seaice_growth.F 2054 SEAICE_GROWTH 
     &         *tmpscal1/tmpscal2
./pkg/seaice/seaice_growth.F 2287 SEAICE_GROWTH 
           tmpscal2=rhoConstFresh*maskC(I,J,kSurface,bi,bj)*
./pkg/seaice/seaice_growth.F 2302 SEAICE_GROWTH 
             tmpscal2= - tmpscal2*
./pkg/seaice/seaice_growth.F 2306 SEAICE_GROWTH 
             tmpscal2= - tmpscal2*
./pkg/seaice/seaice_growth.F 2309 SEAICE_GROWTH 
             tmpscal2= - tmpscal2*HeatCapacity_Cp*
./pkg/seaice/seaice_growth.F 2312 SEAICE_GROWTH 
             tmpscal2= ZERO
./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 2420 SEAICE_GROWTH 
           tmpscal2 = MIN(tmpscal1,heffTooHeavy*rhoConst)
./pkg/seaice/seaice_growth.F 2422 SEAICE_GROWTH 
           tmpscal2 = HEFF(I,J,bi,bj)*SEAICE_rhoIce
./pkg/seaice/seaice_growth.F 2425 SEAICE_GROWTH 
           sIceLoad(i,j,bi,bj) = tmpscal2
./pkg/seaice/seaice_growth.F 2535 SEAICE_GROWTH 
           tmpscal2= ( a_FWbySublim(I,J)-r_FWbySublim(I,J) )
./pkg/seaice/seaice_growth.F 2539 SEAICE_GROWTH 
     &             * ( tmpscal1*SEAICE_lhEvap + tmpscal2*tmpscal3 )
./pkg/seaice/seaice_growth.F 2589 SEAICE_GROWTH 
      tmpscal2=HFsiGlob / globalArea
./pkg/seaice/seaice_growth.F 2591 SEAICE_GROWTH 
      IF ( balanceEmPmR ) tmpscal2=tmpscal2-tmpscal1
./pkg/seaice/seaice_growth.F 2636 SEAICE_GROWTH 
            SItflux(i,j,bi,bj) = SItflux(i,j,bi,bj) - tmpscal2
./pkg/seaice/seaice_growth.F 2637 SEAICE_GROWTH 
            qnet(i,j,bi,bj) = qnet(i,j,bi,bj) - tmpscal2
./pkg/seaice/seaice_growth.F 2638 SEAICE_GROWTH 
            SIatmQnt(i,j,bi,bj) = SIatmQnt(i,j,bi,bj) - tmpscal2
./pkg/seaice/seaice_growth.F 2646 SEAICE_GROWTH 
     &       'SItflux = ', tmpscal2
./pkg/seaice/seaice_growth.F 620 SEAICE_GROWTH 
            tmpscal2 = HEFFITDpreTH(I,J,IT) / tmpscal1
./pkg/seaice/seaice_growth.F 622 SEAICE_GROWTH 
            heffActualMult(I,J,IT) = SQRT(tmpscal2 * tmpscal2
./pkg/seaice/seaice_growth.F 646 SEAICE_GROWTH 
           tmpscal2 = HEFFpreTH(I,J) / tmpscal1
./pkg/seaice/seaice_growth.F 648 SEAICE_GROWTH 
           heffActual(I,J) = SQRT(tmpscal2 * tmpscal2 + hice_reg_sq)
./pkg/seaice/seaice_reg_ridge.F 159 SEAICE_REG_RIDGE 
           tmpscal2=0. _d 0
./pkg/seaice/seaice_reg_ridge.F 163 SEAICE_REG_RIDGE 
           tmpscal2=MAX(-HSNOWITD(I,J,IT,bi,bj),0. _d 0)
./pkg/seaice/seaice_reg_ridge.F 164 SEAICE_REG_RIDGE 
           HSNOWITD(I,J,IT,bi,bj)=HSNOWITD(I,J,IT,bi,bj)+tmpscal2
./pkg/seaice/seaice_reg_ridge.F 165 SEAICE_REG_RIDGE 
           d_HSNWbyNEG(I,J,bi,bj)=d_HSNWbyNEG(I,J,bi,bj)+tmpscal2
./pkg/seaice/seaice_reg_ridge.F 217 SEAICE_REG_RIDGE 
          tmpscal2=0. _d 0
./pkg/seaice/seaice_reg_ridge.F 220 SEAICE_REG_RIDGE 
           tmpscal2=-HSNOW(I,J,bi,bj)
./pkg/seaice/seaice_reg_ridge.F 226 SEAICE_REG_RIDGE 
          HSNOW(I,J,bi,bj)=HSNOW(I,J,bi,bj)+tmpscal2
./pkg/seaice/seaice_reg_ridge.F 228 SEAICE_REG_RIDGE 
          d_HSNWbyNEG(I,J,bi,bj)=d_HSNWbyNEG(I,J,bi,bj)+tmpscal2
./pkg/seaice/seaice_reg_ridge.F 65 SEAICE_REG_RIDGE 
      _RL tmpscal1, tmpscal2