Symbol Description Uses
tmpscal2 117


File Line number Procedure Code
./pkg/seaice/seaice_advdiff.F 480 SEAICE_ADVDIFF 
             tmpscal2=MAX(ZERO,SItracer(i,j,bi,bj,iTr)-tmpscal1)
./pkg/seaice/seaice_advdiff.F 481 SEAICE_ADVDIFF 
             SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)-tmpscal2
./pkg/seaice/seaice_advdiff.F 483 SEAICE_ADVDIFF 
     &           +tmpscal2*HEFF(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 518 SEAICE_ADVDIFF 
             SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)-tmpscal2
./pkg/seaice/seaice_advdiff.F 85 SEAICE_ADVDIFF 
      _RL tmpscal1, tmpscal2
./pkg/seaice/seaice_calc_ice_strength.F 109 SEAICE_CALC_ICE_STRENGTH 
          tmpscal2=SEAICEpresH0*(tmpscal1**SEAICEpresPow0)
./pkg/seaice/seaice_calc_ice_strength.F 113 SEAICE_CALC_ICE_STRENGTH 
          tmpscal2=SEAICEpresH0*(tmpscal1**SEAICEpresPow1)
./pkg/seaice/seaice_calc_ice_strength.F 115 SEAICE_CALC_ICE_STRENGTH 
          tmpscal2=HEFF(i,j,bi,bj)
./pkg/seaice/seaice_calc_ice_strength.F 117 SEAICE_CALC_ICE_STRENGTH 
         PRESS0(I,J,bi,bj)=SEAICE_strength*tmpscal2
./pkg/seaice/seaice_calc_ice_strength.F 58 SEAICE_CALC_ICE_STRENGTH 
      _RL tmpscal1, tmpscal2
./pkg/seaice/seaice_freedrift.F 115 SEAICE_FREEDRIFT 
           tmpscal2= tmpscal1*tmpscal1*mIceCor*mIceCor
./pkg/seaice/seaice_freedrift.F 118 SEAICE_FREEDRIFT 
           tmpscal4=tmpscal2*tmpscal2+4. _d 0*tmpscal3
./pkg/seaice/seaice_freedrift.F 120 SEAICE_FREEDRIFT 
             sol_n=SQRT(HALF*(SQRT(tmpscal4)-tmpscal2))
./pkg/seaice/seaice_freedrift.F 133 SEAICE_FREEDRIFT 
           tmpscal2= tmpscal1*sol_n*sol_n
./pkg/seaice/seaice_freedrift.F 136 SEAICE_FREEDRIFT 
           tmpscal4=tmpscal2*tmpscal2 + tmpscal3*tmpscal3
./pkg/seaice/seaice_freedrift.F 138 SEAICE_FREEDRIFT 
             sol_a=rhs_a-ATAN2(tmpscal3,tmpscal2)
./pkg/seaice/seaice_freedrift.F 46 SEAICE_FREEDRIFT 
      _RL tmpscal1,tmpscal2,tmpscal3,tmpscal4
./pkg/seaice/seaice_growth.F 1059 SEAICE_GROWTH 
          tmpscal2= - (HeatCapacity_Cp*rhoConst * recip_QI)
./pkg/seaice/seaice_growth.F 1064 SEAICE_GROWTH 
     &         tmpscal1 * tmpscal2 * MixedLayerTurbulenceFactor
./pkg/seaice/seaice_growth.F 1080 SEAICE_GROWTH 
           tmpscal2=sqrt(0.87 + 0.067*UG(i,j)) * UG(i,j)
./pkg/seaice/seaice_growth.F 1156 SEAICE_GROWTH 
             tmpscal1=SQRT(tmpscal2)
./pkg/seaice/seaice_growth.F 1161 SEAICE_GROWTH 
           tmpscal2 =
./pkg/seaice/seaice_growth.F 1171 SEAICE_GROWTH 
           tmpscal4 = (tmpscal2*tmpscal2 + tmpscal3*tmpscal3)
./pkg/seaice/seaice_growth.F 1180 SEAICE_GROWTH 
     &         ( tmpscal1 * uWind(I,J,bi,bj) + tmpscal4 * tmpscal2 )**2
./pkg/seaice/seaice_growth.F 1232 SEAICE_GROWTH 
          tmpscal2 =
./pkg/seaice/seaice_growth.F 1236 SEAICE_GROWTH 
          d_HSNWbySublim_ITD(I,J,IT) = - tmpscal2 * ICE2SNOW
./pkg/seaice/seaice_growth.F 1238 SEAICE_GROWTH 
          d_HSNWbySublim(I,J)     = d_HSNWbySublim(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_HSNWbySublim(I,J) = - tmpscal2 * ICE2SNOW
./pkg/seaice/seaice_growth.F 1244 SEAICE_GROWTH 
          HSNOW(I,J,bi,bj)    = HSNOW(I,J,bi,bj)  - tmpscal2*ICE2SNOW
./pkg/seaice/seaice_growth.F 1245 SEAICE_GROWTH 
          r_FWbySublim(I,J)   = r_FWbySublim(I,J) - tmpscal2
./pkg/seaice/seaice_growth.F 1256 SEAICE_GROWTH 
          tmpscal2 =
./pkg/seaice/seaice_growth.F 1259 SEAICE_GROWTH 
          d_HEFFbySublim_ITD(I,J,IT) = - tmpscal2
./pkg/seaice/seaice_growth.F 1261 SEAICE_GROWTH 
          d_HEFFbySublim(I,J)      = d_HEFFbySublim(I,J)      - tmpscal2
./pkg/seaice/seaice_growth.F 1262 SEAICE_GROWTH 
          r_FWbySublimMult(I,J,IT) = r_FWbySublimMult(I,J,IT) - tmpscal2
./pkg/seaice/seaice_growth.F 1265 SEAICE_GROWTH 
          d_HEFFbySublim(I,J) = - tmpscal2
./pkg/seaice/seaice_growth.F 1266 SEAICE_GROWTH 
          HEFF(I,J,bi,bj)     = HEFF(I,J,bi,bj)   - tmpscal2
./pkg/seaice/seaice_growth.F 1267 SEAICE_GROWTH 
          r_FWbySublim(I,J)   = r_FWbySublim(I,J) - tmpscal2
./pkg/seaice/seaice_growth.F 1361 SEAICE_GROWTH 
           tmpscal2=MIN(tmpscal1,0. _d 0)
./pkg/seaice/seaice_growth.F 1364 SEAICE_GROWTH 
           IF ( SEAICEadjMODE.GE.2 ) tmpscal2 = 0. _d 0
./pkg/seaice/seaice_growth.F 1366 SEAICE_GROWTH 
           d_HSNWbyATMonSNW_ITD(I,J,IT) = tmpscal2*ICE2SNOW
./pkg/seaice/seaice_growth.F 1368 SEAICE_GROWTH 
     &                           + tmpscal2*ICE2SNOW
./pkg/seaice/seaice_growth.F 1370 SEAICE_GROWTH 
     &                           - tmpscal2
./pkg/seaice/seaice_growth.F 1380 SEAICE_GROWTH 
          tmpscal2=MIN(tmpscal1,0. _d 0)
./pkg/seaice/seaice_growth.F 1383 SEAICE_GROWTH 
          IF ( SEAICEadjMODE.GE.2 ) tmpscal2 = 0. _d 0
./pkg/seaice/seaice_growth.F 1385 SEAICE_GROWTH 
          d_HSNWbyATMonSNW(I,J)= tmpscal2*ICE2SNOW
./pkg/seaice/seaice_growth.F 1386 SEAICE_GROWTH 
          HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj) + tmpscal2*ICE2SNOW
./pkg/seaice/seaice_growth.F 1387 SEAICE_GROWTH 
          r_QbyATM_cover(I,J)=r_QbyATM_cover(I,J) - tmpscal2
./pkg/seaice/seaice_growth.F 1412 SEAICE_GROWTH 
           tmpscal2 = MAX(-tmpscal1,
./pkg/seaice/seaice_growth.F 1416 SEAICE_GROWTH 
           d_HEFFbyATMonOCN_cover_ITD(I,J,IT) = tmpscal2
./pkg/seaice/seaice_growth.F 1418 SEAICE_GROWTH 
     &                                 + tmpscal2
./pkg/seaice/seaice_growth.F 1420 SEAICE_GROWTH 
     &                                 + tmpscal2
./pkg/seaice/seaice_growth.F 1422 SEAICE_GROWTH 
     &                                 + tmpscal2
./pkg/seaice/seaice_growth.F 1424 SEAICE_GROWTH 
     &                                 - tmpscal2
./pkg/seaice/seaice_growth.F 1440 SEAICE_GROWTH 
          tmpscal2 = MAX(-HEFF(I,J,bi,bj),r_QbyATM_cover(I,J)+
./pkg/seaice/seaice_growth.F 1444 SEAICE_GROWTH 
          d_HEFFbyATMonOCN_cover(I,J)=tmpscal2
./pkg/seaice/seaice_growth.F 1445 SEAICE_GROWTH 
          d_HEFFbyATMonOCN(I,J)=d_HEFFbyATMonOCN(I,J)+tmpscal2
./pkg/seaice/seaice_growth.F 1446 SEAICE_GROWTH 
          r_QbyATM_cover(I,J)=r_QbyATM_cover(I,J)-tmpscal2
./pkg/seaice/seaice_growth.F 1447 SEAICE_GROWTH 
          HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj) + tmpscal2
./pkg/seaice/seaice_growth.F 147 SEAICE_GROWTH 
      _RL tmpscal0, tmpscal1, tmpscal2, tmpscal3, tmpscal4
./pkg/seaice/seaice_growth.F 1541 SEAICE_GROWTH 
           tmpscal2=MIN(tmpscal1,0. _d 0)
./pkg/seaice/seaice_growth.F 1544 SEAICE_GROWTH 
           if ( SEAICEadjMODE.GE.2 ) tmpscal2 = 0. _d 0
./pkg/seaice/seaice_growth.F 1546 SEAICE_GROWTH 
           d_HSNWbyOCNonSNW_ITD(I,J,IT) = tmpscal2
./pkg/seaice/seaice_growth.F 1547 SEAICE_GROWTH 
           d_HSNWbyOCNonSNW(I,J) = d_HSNWbyOCNonSNW(I,J) + tmpscal2
./pkg/seaice/seaice_growth.F 1548 SEAICE_GROWTH 
           r_QbyOCN(I,J)=r_QbyOCN(I,J) - tmpscal2*SNOW2ICE
./pkg/seaice/seaice_growth.F 1556 SEAICE_GROWTH 
          tmpscal2=MIN(tmpscal1,0. _d 0)
./pkg/seaice/seaice_growth.F 1559 SEAICE_GROWTH 
          if ( SEAICEadjMODE.GE.2 ) tmpscal2 = 0. _d 0
./pkg/seaice/seaice_growth.F 1561 SEAICE_GROWTH 
          d_HSNWbyOCNonSNW(I,J) = tmpscal2
./pkg/seaice/seaice_growth.F 1603 SEAICE_GROWTH 
            tmpscal2=SWFracB * a_QSWbyATM_open(I,J)
./pkg/seaice/seaice_growth.F 1606 SEAICE_GROWTH 
            tmpscal3=facOpenGrow*MAX(tmpscal1-tmpscal2,
./pkg/seaice/seaice_growth.F 1840 SEAICE_GROWTH 
            tmpscal2 = MAX(-tmpscal0,tmpscal1)
./pkg/seaice/seaice_growth.F 1841 SEAICE_GROWTH 
            tmpscal3 = MIN(ZERO,tmpscal2)
./pkg/seaice/seaice_growth.F 1998 SEAICE_GROWTH 
          tmpscal2 = tmpscal1 * tmpscal3 * HEFFM(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 2000 SEAICE_GROWTH 
          saltFlux(I,J,bi,bj) = tmpscal2
./pkg/seaice/seaice_growth.F 2032 SEAICE_GROWTH 
          saltPlumeFlux(I,J,bi,bj) = MAX( tmpscal3-tmpscal2 , 0. _d 0)
./pkg/seaice/seaice_growth.F 2056 SEAICE_GROWTH 
         tmpscal2=HEFF(I,J,bi,bj)-tmpscal1-d_HEFFbyFLOODING(I,J)
./pkg/seaice/seaice_growth.F 2092 SEAICE_GROWTH 
     &         *tmpscal1/tmpscal2
./pkg/seaice/seaice_growth.F 2325 SEAICE_GROWTH 
           tmpscal2=rhoConstFresh*maskC(I,J,kSurface,bi,bj)*
./pkg/seaice/seaice_growth.F 2340 SEAICE_GROWTH 
             tmpscal2= - tmpscal2*
./pkg/seaice/seaice_growth.F 2344 SEAICE_GROWTH 
             tmpscal2= - tmpscal2*
./pkg/seaice/seaice_growth.F 2347 SEAICE_GROWTH 
             tmpscal2= - tmpscal2*HeatCapacity_Cp*
./pkg/seaice/seaice_growth.F 2350 SEAICE_GROWTH 
             tmpscal2= ZERO
./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 2460 SEAICE_GROWTH 
           tmpscal2 = MIN(tmpscal1,heffTooHeavy*rhoConst)
./pkg/seaice/seaice_growth.F 2462 SEAICE_GROWTH 
           tmpscal2 = HEFF(I,J,bi,bj)*SEAICE_rhoIce
./pkg/seaice/seaice_growth.F 2465 SEAICE_GROWTH 
           sIceLoad(i,j,bi,bj) = tmpscal2
./pkg/seaice/seaice_growth.F 2575 SEAICE_GROWTH 
           tmpscal2= ( a_FWbySublim(I,J)-r_FWbySublim(I,J) )
./pkg/seaice/seaice_growth.F 2579 SEAICE_GROWTH 
     &             * ( tmpscal1*SEAICE_lhEvap + tmpscal2*tmpscal3 )
./pkg/seaice/seaice_growth.F 2629 SEAICE_GROWTH 
      tmpscal2=HFsiGlob / globalArea
./pkg/seaice/seaice_growth.F 2631 SEAICE_GROWTH 
      IF ( balanceEmPmR ) tmpscal2=tmpscal2-tmpscal1
./pkg/seaice/seaice_growth.F 2676 SEAICE_GROWTH 
            SItflux(i,j,bi,bj) = SItflux(i,j,bi,bj) - tmpscal2
./pkg/seaice/seaice_growth.F 2677 SEAICE_GROWTH 
            qnet(i,j,bi,bj) = qnet(i,j,bi,bj) - tmpscal2
./pkg/seaice/seaice_growth.F 2678 SEAICE_GROWTH 
            SIatmQnt(i,j,bi,bj) = SIatmQnt(i,j,bi,bj) - tmpscal2
./pkg/seaice/seaice_growth.F 2686 SEAICE_GROWTH 
     &       'SItflux = ', tmpscal2
./pkg/seaice/seaice_growth.F 638 SEAICE_GROWTH 
            tmpscal2 = HEFFITDpreTH(I,J,IT) / tmpscal1
./pkg/seaice/seaice_growth.F 640 SEAICE_GROWTH 
            heffActualMult(I,J,IT) = SQRT(tmpscal2 * tmpscal2
./pkg/seaice/seaice_growth.F 664 SEAICE_GROWTH 
           tmpscal2 = HEFFpreTH(I,J) / tmpscal1
./pkg/seaice/seaice_growth.F 666 SEAICE_GROWTH 
           heffActual(I,J) = SQRT(tmpscal2 * tmpscal2 + hice_reg_sq)
./pkg/seaice/seaice_reg_ridge.F 162 SEAICE_REG_RIDGE 
           tmpscal2=0. _d 0
./pkg/seaice/seaice_reg_ridge.F 166 SEAICE_REG_RIDGE 
           tmpscal2=MAX(-HSNOWITD(I,J,IT,bi,bj),0. _d 0)
./pkg/seaice/seaice_reg_ridge.F 167 SEAICE_REG_RIDGE 
           HSNOWITD(I,J,IT,bi,bj)=HSNOWITD(I,J,IT,bi,bj)+tmpscal2
./pkg/seaice/seaice_reg_ridge.F 168 SEAICE_REG_RIDGE 
           d_HSNWbyNEG(I,J,bi,bj)=d_HSNWbyNEG(I,J,bi,bj)+tmpscal2
./pkg/seaice/seaice_reg_ridge.F 220 SEAICE_REG_RIDGE 
          tmpscal2=0. _d 0
./pkg/seaice/seaice_reg_ridge.F 223 SEAICE_REG_RIDGE 
           tmpscal2=-HSNOW(I,J,bi,bj)
./pkg/seaice/seaice_reg_ridge.F 229 SEAICE_REG_RIDGE 
          HSNOW(I,J,bi,bj)=HSNOW(I,J,bi,bj)+tmpscal2
./pkg/seaice/seaice_reg_ridge.F 231 SEAICE_REG_RIDGE 
          d_HSNWbyNEG(I,J,bi,bj)=d_HSNWbyNEG(I,J,bi,bj)+tmpscal2
./pkg/seaice/seaice_reg_ridge.F 68 SEAICE_REG_RIDGE 
      _RL tmpscal1, tmpscal2