Symbol Description Uses
tmpx 142


File Line number Procedure Code
./pkg/shelfice/shelfice_cost_shifwflx.F 144 SHELFICE_COST_SHIFWFLX 
           tmpx = tmpfld2d(i,j,bi,bj)
./pkg/shelfice/shelfice_cost_shifwflx.F 145 SHELFICE_COST_SHIFWFLX 
           fctile = fctile + tmpx*tmpx
./pkg/shelfice/shelfice_cost_shifwflx.F 69 SHELFICE_COST_SHIFWFLX 
      _RL tmpx
./lsopt/dostore.F 20 DOSTORE 
          tmpx(i) = x(i)
./lsopt/dostore.F 22 DOSTORE 
        write( ntape, rec=j ) tmpx
./lsopt/dostore.F 24 DOSTORE 
        read(  ntape, rec=j ) tmpx
./lsopt/dostore.F 26 DOSTORE 
          x(i) = tmpx(i)
./lsopt/dostore.F 7 DOSTORE 
      real*4 tmpx(n)
./pkg/ecco/cost_bottomdrag.F 107 COST_BOTTOMDRAG 
                  tmpx = tmpfld2d(i,j,bi,bj)
./pkg/ecco/cost_bottomdrag.F 111 COST_BOTTOMDRAG 
     &                 *tmpx*tmpx
./pkg/ecco/cost_bottomdrag.F 113 COST_BOTTOMDRAG 
                  fctile = fctile + tmpx*tmpx
./pkg/ecco/cost_bottomdrag.F 52 COST_BOTTOMDRAG 
      _RL tmpx
./pkg/ecco/cost_diffkr.F 109 COST_DIFFKR 
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_diffkr.F 113 COST_DIFFKR 
     &                 *tmpx*tmpx
./pkg/ecco/cost_diffkr.F 115 COST_DIFFKR 
                  fctile = fctile + tmpx*tmpx
./pkg/ecco/cost_diffkr.F 52 COST_DIFFKR 
      _RL tmpx
./pkg/ecco/cost_etan0.F 119 COST_ETAN0 
                  tmpx = tmpfld2d(i,j,bi,bj)
./pkg/ecco/cost_etan0.F 123 COST_ETAN0 
     &                 *tmpx*tmpx
./pkg/ecco/cost_etan0.F 125 COST_ETAN0 
                  fctile = fctile + tmpx*tmpx
./pkg/ecco/cost_etan0.F 63 COST_ETAN0 
      _RL tmpx
./pkg/ecco/cost_forcing_gen.F 182 COST_FORCING_GEN 
            tmpx = xx_mean(i,j,bi,bj)/wmean_gen
./pkg/ecco/cost_forcing_gen.F 185 COST_FORCING_GEN 
     &              tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100.
./pkg/ecco/cost_forcing_gen.F 186 COST_FORCING_GEN 
              fctilem = fctilem + cosphi(i,j,bi,bj)*tmpx*tmpx
./pkg/ecco/cost_forcing_gen.F 216 COST_FORCING_GEN 
                  tmpx = tmpfld2d(i,j,bi,bj)-xx_mean(i,j,bi,bj)
./pkg/ecco/cost_forcing_gen.F 220 COST_FORCING_GEN 
     &              tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100.
./pkg/ecco/cost_forcing_gen.F 223 COST_FORCING_GEN 
     &                 *tmpx*tmpx
./pkg/ecco/cost_forcing_gen.F 225 COST_FORCING_GEN 
                  tmpx = tmpfld2d(i,j,bi,bj)
./pkg/ecco/cost_forcing_gen.F 226 COST_FORCING_GEN 
                  fctile = fctile + tmpx*tmpx
./pkg/ecco/cost_forcing_gen.F 265 COST_FORCING_GEN 
                  tmpx =
./pkg/ecco/cost_forcing_gen.F 275 COST_FORCING_GEN 
     &              tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100.
./pkg/ecco/cost_forcing_gen.F 279 COST_FORCING_GEN 
     &                 *tmpx*tmpx
./pkg/ecco/cost_forcing_gen.F 88 COST_FORCING_GEN 
      _RL tmpx
./pkg/ecco/cost_kapgm.F 112 COST_KAPGM 
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_kapgm.F 116 COST_KAPGM 
     &                 *tmpx*tmpx
./pkg/ecco/cost_kapgm.F 118 COST_KAPGM 
                  fctile = fctile + tmpx*tmpx
./pkg/ecco/cost_kapgm.F 55 COST_KAPGM 
      _RL tmpx
./pkg/ecco/cost_kapredi.F 112 COST_KAPREDI 
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_kapredi.F 116 COST_KAPREDI 
     &                 *tmpx*tmpx
./pkg/ecco/cost_kapredi.F 118 COST_KAPREDI 
                  fctile = fctile + tmpx*tmpx
./pkg/ecco/cost_kapredi.F 55 COST_KAPREDI 
      _RL tmpx
./pkg/ecco/cost_mean_heatflux.F 116 COST_MEAN_HEATFLUX 
                tmpx=tmpfld2d(i,j,bi,bj)
./pkg/ecco/cost_mean_heatflux.F 119 COST_MEAN_HEATFLUX 
     &                + tmpx* _rA(i,j,bi,bj)
./pkg/ecco/cost_mean_heatflux.F 61 COST_MEAN_HEATFLUX 
      _RL tmpx
./pkg/ecco/cost_mean_saltflux.F 116 COST_MEAN_SALTFLUX 
                tmpx=tmpfld2d(i,j,bi,bj)
./pkg/ecco/cost_mean_saltflux.F 119 COST_MEAN_SALTFLUX 
     &                + tmpx* _rA(i,j,bi,bj)/rhoConstFresh
./pkg/ecco/cost_mean_saltflux.F 61 COST_MEAN_SALTFLUX 
      _RL tmpx
./pkg/ecco/cost_obcse.F 173 COST_OBCSE 
                  tmpx = tmpfield(j,k,bi,bj)
./pkg/ecco/cost_obcse.F 176 COST_OBCSE 
     &                        *tmpx*tmpx*maskyz(j,k,bi,bj)
./pkg/ecco/cost_obcse.F 86 COST_OBCSE 
      _RL tmpx
./pkg/ecco/cost_obcsn.F 171 COST_OBCSN 
                  tmpx = tmpfield(i,k,bi,bj)
./pkg/ecco/cost_obcsn.F 174 COST_OBCSN 
     &                          *tmpx*tmpx*maskxz(i,k,bi,bj)
./pkg/ecco/cost_obcsn.F 85 COST_OBCSN 
      _RL tmpx
./pkg/ecco/cost_obcss.F 173 COST_OBCSS 
                  tmpx = tmpfield(i,k,bi,bj)
./pkg/ecco/cost_obcss.F 176 COST_OBCSS 
     &                        *tmpx*tmpx*maskxz(i,k,bi,bj)
./pkg/ecco/cost_obcss.F 85 COST_OBCSS 
      _RL tmpx
./pkg/ecco/cost_obcsvol.F 209 COST_OBCSVOL 
                  tmpx = tmpfldxz(i,1,bi,bj)
./pkg/ecco/cost_obcsvol.F 212 COST_OBCSVOL 
                    fctile = fctile - tmpx* drF(k) *dxg(i,j,bi,bj)
./pkg/ecco/cost_obcsvol.F 251 COST_OBCSVOL 
                  tmpx = tmpfldxz(i,1,bi,bj)
./pkg/ecco/cost_obcsvol.F 254 COST_OBCSVOL 
                    fctile = fctile + tmpx* drF(k) *dxg(i,j+1,bi,bj)
./pkg/ecco/cost_obcsvol.F 68 COST_OBCSVOL 
      _RL tmpx
./pkg/ecco/cost_obcsw.F 171 COST_OBCSW 
                  tmpx = tmpfield(j,k,bi,bj)
./pkg/ecco/cost_obcsw.F 174 COST_OBCSW 
     &                        *tmpx*tmpx*maskyz(j,k,bi,bj)
./pkg/ecco/cost_obcsw.F 85 COST_OBCSW 
      _RL tmpx
./pkg/ecco/cost_salt0.F 120 COST_SALT0 
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_salt0.F 123 COST_SALT0 
     &              tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100.
./pkg/ecco/cost_salt0.F 126 COST_SALT0 
     &                 *tmpx*tmpx
./pkg/ecco/cost_salt0.F 128 COST_SALT0 
                  fctile = fctile + tmpx*tmpx
./pkg/ecco/cost_salt0.F 160 COST_SALT0 
                  tmpx =
./pkg/ecco/cost_salt0.F 170 COST_SALT0 
     &              tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100.
./pkg/ecco/cost_salt0.F 174 COST_SALT0 
     &                 *tmpx*tmpx
./pkg/ecco/cost_salt0.F 63 COST_SALT0 
      _RL tmpx
./pkg/ecco/cost_salt_ini_fin.F 110 COST_SALT_INI_FIN 
                  tmpx = tmpfld3d(i,j,k,bi,bj) - salt(i,j,k,bi,bj)
./pkg/ecco/cost_salt_ini_fin.F 113 COST_SALT_INI_FIN 
     &                 *tmpx*tmpx
./pkg/ecco/cost_salt_ini_fin.F 56 COST_SALT_INI_FIN 
      _RL tmpx
./pkg/ecco/cost_tau_eddy.F 114 COST_TAU_EDDY 
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_tau_eddy.F 118 COST_TAU_EDDY 
     &                 *tmpx*tmpx
./pkg/ecco/cost_tau_eddy.F 120 COST_TAU_EDDY 
                  fctile = fctile + tmpx*tmpx
./pkg/ecco/cost_tau_eddy.F 149 COST_TAU_EDDY 
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_tau_eddy.F 153 COST_TAU_EDDY 
     &                 *tmpx*tmpx
./pkg/ecco/cost_tau_eddy.F 155 COST_TAU_EDDY 
                  fctile = fctile + tmpx*tmpx
./pkg/ecco/cost_tau_eddy.F 58 COST_TAU_EDDY 
      _RL tmpx
./pkg/ecco/cost_theta0.F 120 COST_THETA0 
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_theta0.F 123 COST_THETA0 
     &              tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100.
./pkg/ecco/cost_theta0.F 126 COST_THETA0 
     &                 *tmpx*tmpx
./pkg/ecco/cost_theta0.F 128 COST_THETA0 
                  fctile = fctile + tmpx*tmpx
./pkg/ecco/cost_theta0.F 160 COST_THETA0 
                  tmpx =
./pkg/ecco/cost_theta0.F 170 COST_THETA0 
     &              tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100.
./pkg/ecco/cost_theta0.F 174 COST_THETA0 
     &                 *tmpx*tmpx
./pkg/ecco/cost_theta0.F 63 COST_THETA0 
      _RL tmpx
./pkg/ecco/cost_theta_ini_fin.F 110 COST_THETA_INI_FIN 
                  tmpx = tmpfld3d(i,j,k,bi,bj) - theta(i,j,k,bi,bj)
./pkg/ecco/cost_theta_ini_fin.F 113 COST_THETA_INI_FIN 
     &                 *tmpx*tmpx
./pkg/ecco/cost_theta_ini_fin.F 56 COST_THETA_INI_FIN 
      _RL tmpx
./pkg/ecco/cost_uvel0.F 120 COST_UVEL0 
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_uvel0.F 124 COST_UVEL0 
     &                 *tmpx*tmpx
./pkg/ecco/cost_uvel0.F 126 COST_UVEL0 
                  fctile = fctile + tmpx*tmpx
./pkg/ecco/cost_uvel0.F 63 COST_UVEL0 
      _RL tmpx
./pkg/ecco/cost_vvel0.F 120 COST_VVEL0 
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_vvel0.F 124 COST_VVEL0 
     &                 *tmpx*tmpx
./pkg/ecco/cost_vvel0.F 126 COST_VVEL0 
                  fctile = fctile + tmpx*tmpx
./pkg/ecco/cost_vvel0.F 63 COST_VVEL0 
      _RL tmpx