Symbol Description Uses
tmpx 83


File Line number Procedure Code
./pkg/ecco/cost_mean_heatflux.F 112 COST_MEAN_HEATFLUX 
                tmpx=tmpfld2d(i,j,bi,bj)
./pkg/ecco/cost_mean_heatflux.F 114 COST_MEAN_HEATFLUX 
                   fctilemm = fctilemm + tmpx
./pkg/ecco/cost_mean_heatflux.F 59 COST_MEAN_HEATFLUX 
      _RL tmpx
./pkg/ecco/cost_obcsvol.F 206 COST_OBCSVOL 
                  tmpx = tmpfldxz(i,1,bi,bj)
./pkg/ecco/cost_obcsvol.F 209 COST_OBCSVOL 
                    fctile = fctile - tmpx* delZ(k) *dxg(i,j+jp1,bi,bj)
./pkg/ecco/cost_obcsvol.F 248 COST_OBCSVOL 
                  tmpx = tmpfldxz(i,1,bi,bj)
./pkg/ecco/cost_obcsvol.F 251 COST_OBCSVOL 
                    fctile = fctile + tmpx* delZ(k) *dxg(i,j+jp1,bi,bj)
./pkg/ecco/cost_obcsvol.F 73 COST_OBCSVOL 
      _RL tmpx
./pkg/ecco/cost_forcing_gen.F 181 COST_FORCING_GEN 
            tmpx = xx_mean(i,j,bi,bj)/wmean_gen
./pkg/ecco/cost_forcing_gen.F 184 COST_FORCING_GEN 
     &              tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100.
./pkg/ecco/cost_forcing_gen.F 185 COST_FORCING_GEN 
              fctilem = fctilem + cosphi(i,j,bi,bj)*tmpx*tmpx
./pkg/ecco/cost_forcing_gen.F 214 COST_FORCING_GEN 
                  tmpx = tmpfld2d(i,j,bi,bj)-xx_mean(i,j,bi,bj)
./pkg/ecco/cost_forcing_gen.F 218 COST_FORCING_GEN 
     &              tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100.
./pkg/ecco/cost_forcing_gen.F 221 COST_FORCING_GEN 
     &                 *tmpx*tmpx
./pkg/ecco/cost_forcing_gen.F 258 COST_FORCING_GEN 
                  tmpx =
./pkg/ecco/cost_forcing_gen.F 268 COST_FORCING_GEN 
     &              tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100.
./pkg/ecco/cost_forcing_gen.F 272 COST_FORCING_GEN 
     &                 *tmpx*tmpx
./pkg/ecco/cost_forcing_gen.F 88 COST_FORCING_GEN 
      _RL tmpx
./pkg/ecco/cost_mean_saltflux.F 115 COST_MEAN_SALTFLUX 
                tmpx=tmpfld2d(i,j,bi,bj)
./pkg/ecco/cost_mean_saltflux.F 117 COST_MEAN_SALTFLUX 
                   fctilemm(bi,bj) = fctilemm(bi,bj) + tmpx
./pkg/ecco/cost_mean_saltflux.F 58 COST_MEAN_SALTFLUX 
      _RL tmpx, tmpx2
./pkg/ecco/cost_salt0.F 118 COST_SALT0 
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_salt0.F 120 COST_SALT0 
     &              tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100.
./pkg/ecco/cost_salt0.F 123 COST_SALT0 
     &                 *tmpx*tmpx
./pkg/ecco/cost_salt0.F 153 COST_SALT0 
                  tmpx =
./pkg/ecco/cost_salt0.F 163 COST_SALT0 
     &              tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100.
./pkg/ecco/cost_salt0.F 167 COST_SALT0 
     &                 *tmpx*tmpx
./pkg/ecco/cost_salt0.F 61 COST_SALT0 
      _RL tmpx
./pkg/ecco/cost_kapgm.F 122 COST_KAPGM 
                  tmpx = (tmpfld3d(i,j,k,bi,bj)-GM_background_K)
./pkg/ecco/cost_kapgm.F 125 COST_KAPGM 
     &                 *tmpx*tmpx
./pkg/ecco/cost_kapgm.F 66 COST_KAPGM 
      _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_theta0.F 118 COST_THETA0 
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_theta0.F 120 COST_THETA0 
     &              tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100.
./pkg/ecco/cost_theta0.F 123 COST_THETA0 
     &                 *tmpx*tmpx
./pkg/ecco/cost_theta0.F 153 COST_THETA0 
                  tmpx =
./pkg/ecco/cost_theta0.F 163 COST_THETA0 
     &              tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100.
./pkg/ecco/cost_theta0.F 167 COST_THETA0 
     &                 *tmpx*tmpx
./pkg/ecco/cost_theta0.F 61 COST_THETA0 
      _RL tmpx
./pkg/ecco/cost_theta_ini_fin.F 108 COST_THETA_INI_FIN 
                  tmpx = tmpfld3d(i,j,k,bi,bj) - theta(i,j,k,bi,bj)
./pkg/ecco/cost_theta_ini_fin.F 111 COST_THETA_INI_FIN 
     &                 *tmpx*tmpx
./pkg/ecco/cost_theta_ini_fin.F 54 COST_THETA_INI_FIN 
      _RL tmpx
./pkg/ecco/cost_salt_ini_fin.F 108 COST_SALT_INI_FIN 
                  tmpx = tmpfld3d(i,j,k,bi,bj) - salt(i,j,k,bi,bj)
./pkg/ecco/cost_salt_ini_fin.F 111 COST_SALT_INI_FIN 
     &                 *tmpx*tmpx
./pkg/ecco/cost_salt_ini_fin.F 54 COST_SALT_INI_FIN 
      _RL tmpx
./pkg/ctrl/ctrl_obcsvol.F 186 CTRL_OBCSVOL 
                    tmpx = tmpfldxz(i,k,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 188 CTRL_OBCSVOL 
                    tmpflux = tmpflux - tmpx* delR(k)*dxg(i,j+jp1,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 222 CTRL_OBCSVOL 
                    tmpx = tmpfldxz(i,k,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 224 CTRL_OBCSVOL 
                    tmpflux = tmpflux + tmpx* delR(k)*dxg(i,j+jp1,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 344 CTRL_OBCSVOL 
                    tmpx = tmpfldxz(i,k,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 346 CTRL_OBCSVOL 
                    tmpflux = tmpflux - tmpx* delR(k)*dxg(i,j+jp1,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 380 CTRL_OBCSVOL 
                    tmpx = tmpfldxz(i,k,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 382 CTRL_OBCSVOL 
                    tmpflux = tmpflux + tmpx* delR(k)*dxg(i,j+jp1,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 72 CTRL_OBCSVOL 
      _RL tmpx
./pkg/ctrl/ctrl_obcsbal.F 75 CTRL_OBCSBAL 
      _RL tmpx
./pkg/ctrl/ctrl_volflux.F 189 CTRL_VOLFLUX 
                      tmpx = tmpfldxz(i,1,bi,bj)
./pkg/ctrl/ctrl_volflux.F 195 CTRL_VOLFLUX 
                        tmpx = 0.
./pkg/ctrl/ctrl_volflux.F 200 CTRL_VOLFLUX 
                    tmpflux = tmpflux -tmpx*delR(k)*dxg(i,j+jp1,bi,bj)
./pkg/ctrl/ctrl_volflux.F 236 CTRL_VOLFLUX 
                      tmpx = tmpfldxz(i,1,bi,bj)
./pkg/ctrl/ctrl_volflux.F 244 CTRL_VOLFLUX 
                        tmpx = 0.
./pkg/ctrl/ctrl_volflux.F 250 CTRL_VOLFLUX 
                      tmpflux = tmpflux +tmpx*delR(k)*dxg(i,j+jp1,bi,bj)
./pkg/ctrl/ctrl_volflux.F 76 CTRL_VOLFLUX 
      _RL tmpx