Symbol Description Uses
tmpfld3d 123


File Line number Procedure Code
./pkg/ecco/cost_salt0.F 103 COST_SALT0 
      call ACTIVE_READ_XYZ_LOC( fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_salt0.F 118 COST_SALT0 
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_kapgm.F 107 COST_KAPGM 
      call ACTIVE_READ_XYZ_LOC( fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_kapgm.F 122 COST_KAPGM 
                  tmpx = (tmpfld3d(i,j,k,bi,bj)-GM_background_K)
./pkg/ecco/ecco_cost_init_barfiles.F 166 ECCO_COST_INIT_BARFILES 
        call ACTIVE_WRITE_XYZ( adfnametbar, tmpfld3d, irec,
./pkg/ecco/ecco_cost_init_barfiles.F 205 ECCO_COST_INIT_BARFILES 
        call ACTIVE_WRITE_XYZ( adfnamesbar, tmpfld3d, irec,
./pkg/ecco/ecco_cost_init_barfiles.F 253 ECCO_COST_INIT_BARFILES 
        call ACTIVE_WRITE_XYZ( adfnameubar, tmpfld3d, irec,
./pkg/ecco/ecco_cost_init_barfiles.F 255 ECCO_COST_INIT_BARFILES 
        call ACTIVE_WRITE_XYZ( adfnamevbar, tmpfld3d, irec,
./pkg/ecco/ecco_cost_init_barfiles.F 273 ECCO_COST_INIT_BARFILES 
        call ACTIVE_WRITE_XYZ( adfnamewbar, tmpfld3d, irec,
./pkg/ecco/ecco_cost_init_barfiles.F 99 ECCO_COST_INIT_BARFILES 
                tmpfld3d(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_theta0.F 103 COST_THETA0 
      call ACTIVE_READ_XYZ_LOC( fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_theta0.F 118 COST_THETA0 
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./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 93 COST_THETA_INI_FIN 
      call ACTIVE_READ_XYZ( fnamefld, tmpfld3d, irec, doglobalread,
./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 93 COST_SALT_INI_FIN 
      call ACTIVE_READ_XYZ( fnamefld, tmpfld3d, irec, doglobalread,
./pkg/grdchk/grdchk_setxx.F 100 GRDCHK_SETXX 
         call ACTIVE_WRITE_XYZ_LOC( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_setxx.F 117 GRDCHK_SETXX 
         call ACTIVE_READ_XYZ_LOC( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_setxx.F 121 GRDCHK_SETXX 
         tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_ref
./pkg/grdchk/grdchk_setxx.F 123 GRDCHK_SETXX 
         call ACTIVE_WRITE_XYZ_LOC( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_setxx.F 416 GRDCHK_SETXX 
         call ACTIVE_READ_XYZ_LOC( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_setxx.F 420 GRDCHK_SETXX 
         tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_ref
./pkg/grdchk/grdchk_setxx.F 422 GRDCHK_SETXX 
         call ACTIVE_WRITE_XYZ_LOC( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_setxx.F 487 GRDCHK_SETXX 
         call ACTIVE_READ_XYZ_LOC( fname, tmpfld3d, icvrec,
./pkg/grdchk/grdchk_setxx.F 491 GRDCHK_SETXX 
         tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_ref
./pkg/grdchk/grdchk_setxx.F 493 GRDCHK_SETXX 
         call ACTIVE_WRITE_XYZ_LOC( fname, tmpfld3d, icvrec,
./pkg/grdchk/grdchk_setxx.F 524 GRDCHK_SETXX 
         call ACTIVE_READ_XYZ_LOC( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_setxx.F 528 GRDCHK_SETXX 
         tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_ref
./pkg/grdchk/grdchk_setxx.F 530 GRDCHK_SETXX 
         call ACTIVE_WRITE_XYZ_LOC( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_setxx.F 548 GRDCHK_SETXX 
         call ACTIVE_READ_XYZ_LOC( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_setxx.F 552 GRDCHK_SETXX 
         tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_ref
./pkg/grdchk/grdchk_setxx.F 554 GRDCHK_SETXX 
         call ACTIVE_WRITE_XYZ_LOC( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_setxx.F 94 GRDCHK_SETXX 
         call ACTIVE_READ_XYZ_LOC( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_setxx.F 98 GRDCHK_SETXX 
         tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_ref
./pkg/grdchk/grdchk_getadxx.F 103 GRDCHK_GETADXX 
         call ACTIVE_READ_XYZ_LOC( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getadxx.F 107 GRDCHK_GETADXX 
         xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
./pkg/grdchk/grdchk_getadxx.F 298 GRDCHK_GETADXX 
         call ACTIVE_READ_XYZ_LOC( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getadxx.F 302 GRDCHK_GETADXX 
         xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
./pkg/grdchk/grdchk_getadxx.F 345 GRDCHK_GETADXX 
         call ACTIVE_READ_XYZ_LOC( fname, tmpfld3d, icvrec,
./pkg/grdchk/grdchk_getadxx.F 349 GRDCHK_GETADXX 
         xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
./pkg/grdchk/grdchk_getadxx.F 369 GRDCHK_GETADXX 
         call ACTIVE_READ_XYZ_LOC( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getadxx.F 373 GRDCHK_GETADXX 
         xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
./pkg/grdchk/grdchk_getadxx.F 384 GRDCHK_GETADXX 
         call ACTIVE_READ_XYZ_LOC( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getadxx.F 388 GRDCHK_GETADXX 
         xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
./pkg/grdchk/grdchk_getadxx.F 88 GRDCHK_GETADXX 
         call ACTIVE_READ_XYZ_LOC( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getadxx.F 92 GRDCHK_GETADXX 
         xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
./pkg/grdchk/grdchk_getxx.F 101 GRDCHK_GETXX 
         xx_comp_ref = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
./pkg/grdchk/grdchk_getxx.F 103 GRDCHK_GETXX 
         tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_pert
./pkg/grdchk/grdchk_getxx.F 105 GRDCHK_GETXX 
         call ACTIVE_WRITE_XYZ_LOC( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getxx.F 122 GRDCHK_GETXX 
         call ACTIVE_READ_XYZ_LOC( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getxx.F 126 GRDCHK_GETXX 
         xx_comp_ref = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
./pkg/grdchk/grdchk_getxx.F 128 GRDCHK_GETXX 
         tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_pert
./pkg/grdchk/grdchk_getxx.F 130 GRDCHK_GETXX 
         call ACTIVE_WRITE_XYZ_LOC( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getxx.F 447 GRDCHK_GETXX 
         call ACTIVE_READ_XYZ_LOC( fname, tmpfld3d, icvrec,
./pkg/grdchk/grdchk_getxx.F 451 GRDCHK_GETXX 
         xx_comp_ref = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
./pkg/grdchk/grdchk_getxx.F 453 GRDCHK_GETXX 
         tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_pert
./pkg/grdchk/grdchk_getxx.F 455 GRDCHK_GETXX 
         call ACTIVE_WRITE_XYZ_LOC( fname, tmpfld3d, icvrec,
./pkg/grdchk/grdchk_getxx.F 524 GRDCHK_GETXX 
         call ACTIVE_READ_XYZ_LOC( fname, tmpfld3d, icvrec,
./pkg/grdchk/grdchk_getxx.F 528 GRDCHK_GETXX 
         xx_comp_ref = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
./pkg/grdchk/grdchk_getxx.F 530 GRDCHK_GETXX 
         tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_pert
./pkg/grdchk/grdchk_getxx.F 532 GRDCHK_GETXX 
         call ACTIVE_WRITE_XYZ_LOC( fname, tmpfld3d, icvrec,
./pkg/grdchk/grdchk_getxx.F 565 GRDCHK_GETXX 
         call ACTIVE_READ_XYZ_LOC( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getxx.F 569 GRDCHK_GETXX 
         xx_comp_ref = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
./pkg/grdchk/grdchk_getxx.F 571 GRDCHK_GETXX 
         tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_pert
./pkg/grdchk/grdchk_getxx.F 573 GRDCHK_GETXX 
         call ACTIVE_WRITE_XYZ_LOC( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getxx.F 591 GRDCHK_GETXX 
         call ACTIVE_READ_XYZ_LOC( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getxx.F 595 GRDCHK_GETXX 
         xx_comp_ref = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
./pkg/grdchk/grdchk_getxx.F 597 GRDCHK_GETXX 
         tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_pert
./pkg/grdchk/grdchk_getxx.F 599 GRDCHK_GETXX 
         call ACTIVE_WRITE_XYZ_LOC( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getxx.F 97 GRDCHK_GETXX 
         call ACTIVE_READ_XYZ_LOC( fname, tmpfld3d, 1,
./pkg/ctrl/ctrl_map_ini.F 106 CTRL_MAP_INI 
               IF (abs(tmpfld3d(i,j,k,bi,bj)).gt.
./pkg/ctrl/ctrl_map_ini.F 108 CTRL_MAP_INI 
     $          tmpfld3d(i,j,k,bi,bj)=
./pkg/ctrl/ctrl_map_ini.F 109 CTRL_MAP_INI 
     $          sign(2.0/sqrt(wtheta(k,bi,bj)),tmpfld3d(i,j,k,bi,bj))
./pkg/ctrl/ctrl_map_ini.F 112 CTRL_MAP_INI 
     &                               fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 128 CTRL_MAP_INI 
      call ACTIVE_READ_XYZ_LOC( fnamegeneric, tmpfld3d, 1,
./pkg/ctrl/ctrl_map_ini.F 138 CTRL_MAP_INI 
               IF (abs(tmpfld3d(i,j,k,bi,bj)).gt.
./pkg/ctrl/ctrl_map_ini.F 140 CTRL_MAP_INI 
     $          tmpfld3d(i,j,k,bi,bj)=
./pkg/ctrl/ctrl_map_ini.F 141 CTRL_MAP_INI 
     $          sign(2.0/sqrt(wsalt(k,bi,bj)),tmpfld3d(i,j,k,bi,bj))
./pkg/ctrl/ctrl_map_ini.F 144 CTRL_MAP_INI 
     &                               fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 159 CTRL_MAP_INI 
      call ACTIVE_READ_XYZ_LOC( fnamegeneric, tmpfld3d, 1,
./pkg/ctrl/ctrl_map_ini.F 169 CTRL_MAP_INI 
     &                               fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 225 CTRL_MAP_INI 
      call ACTIVE_READ_XYZ_LOC( fnamegeneric, tmpfld3d, 1,
./pkg/ctrl/ctrl_map_ini.F 234 CTRL_MAP_INI 
     &                                tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 247 CTRL_MAP_INI 
      call ACTIVE_READ_XYZ_LOC( fnamegeneric, tmpfld3d, 1,
./pkg/ctrl/ctrl_map_ini.F 256 CTRL_MAP_INI 
     &                               tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 269 CTRL_MAP_INI 
      call ACTIVE_READ_XYZ_LOC( fnamegeneric, tmpfld3d, 1,
./pkg/ctrl/ctrl_map_ini.F 279 CTRL_MAP_INI 
     &                                - fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 296 CTRL_MAP_INI 
      call ACTIVE_READ_XYZ_LOC( fnamegeneric, tmpfld3d, 1,
./pkg/ctrl/ctrl_map_ini.F 307 CTRL_MAP_INI 
     &                                  *fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 345 CTRL_MAP_INI 
      call ACTIVE_READ_XYZ( fnamegeneric, tmpfld3d, 1,
./pkg/ctrl/ctrl_map_ini.F 354 CTRL_MAP_INI 
     &                                tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 367 CTRL_MAP_INI 
      call ACTIVE_READ_XYZ( fnamegeneric, tmpfld3d, 1,
./pkg/ctrl/ctrl_map_ini.F 376 CTRL_MAP_INI 
     &                                tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 389 CTRL_MAP_INI 
      call ACTIVE_READ_XYZ( fnamegeneric, tmpfld3d, 1,
./pkg/ctrl/ctrl_map_ini.F 398 CTRL_MAP_INI 
     &                              tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 411 CTRL_MAP_INI 
      call ACTIVE_READ_XYZ( fnamegeneric, tmpfld3d, 1,
./pkg/ctrl/ctrl_map_ini.F 420 CTRL_MAP_INI 
     &                              tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 96 CTRL_MAP_INI 
      call ACTIVE_READ_XYZ_LOC( fnamegeneric, tmpfld3d, 1,
./pkg/ctrl/ctrl_map_ini_ecco.F 104 CTRL_MAP_INI_ECCO 
      call ACTIVE_READ_XYZ_LOC( fnamegeneric, tmpfld3d, 1,
./pkg/ctrl/ctrl_map_ini_ecco.F 109 CTRL_MAP_INI_ECCO 
     &    tmpfld3d(15,15,1,1,1)
./pkg/ctrl/ctrl_map_ini_ecco.F 117 CTRL_MAP_INI_ECCO 
                 IF (abs(tmpfld3d(i,j,k,bi,bj)).gt.
./pkg/ctrl/ctrl_map_ini_ecco.F 119 CTRL_MAP_INI_ECCO 
     &                tmpfld3d(i,j,k,bi,bj)=
./pkg/ctrl/ctrl_map_ini_ecco.F 121 CTRL_MAP_INI_ECCO 
     &                tmpfld3d(i,j,k,bi,bj))
./pkg/ctrl/ctrl_map_ini_ecco.F 152 CTRL_MAP_INI_ECCO 
     &                               fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini_ecco.F 162 CTRL_MAP_INI_ECCO 
     &    tmpfld3d(15,15,1,1,1)
./pkg/ctrl/ctrl_map_ini_ecco.F 172 CTRL_MAP_INI_ECCO 
      call ACTIVE_READ_XYZ_LOC( fnamegeneric, tmpfld3d, 1,
./pkg/ctrl/ctrl_map_ini_ecco.F 181 CTRL_MAP_INI_ECCO 
                 IF (abs(tmpfld3d(i,j,k,bi,bj)).gt.
./pkg/ctrl/ctrl_map_ini_ecco.F 183 CTRL_MAP_INI_ECCO 
     &                tmpfld3d(i,j,k,bi,bj)=
./pkg/ctrl/ctrl_map_ini_ecco.F 185 CTRL_MAP_INI_ECCO 
     &                tmpfld3d(i,j,k,bi,bj))
./pkg/ctrl/ctrl_map_ini_ecco.F 214 CTRL_MAP_INI_ECCO 
     &                               fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini_ecco.F 228 CTRL_MAP_INI_ECCO 
      call ACTIVE_READ_XYZ( fnamegeneric, tmpfld3d, 1,
./pkg/ctrl/ctrl_map_ini_ecco.F 237 CTRL_MAP_INI_ECCO 
     &                                tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini_ecco.F 250 CTRL_MAP_INI_ECCO 
      call ACTIVE_READ_XYZ( fnamegeneric, tmpfld3d, 1,
./pkg/ctrl/ctrl_map_ini_ecco.F 259 CTRL_MAP_INI_ECCO 
     &                                tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini_ecco.F 272 CTRL_MAP_INI_ECCO 
      call ACTIVE_READ_XYZ( fnamegeneric, tmpfld3d, 1,
./pkg/ctrl/ctrl_map_ini_ecco.F 281 CTRL_MAP_INI_ECCO 
     &                              tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini_ecco.F 294 CTRL_MAP_INI_ECCO 
      call ACTIVE_READ_XYZ( fnamegeneric, tmpfld3d, 1,
./pkg/ctrl/ctrl_map_ini_ecco.F 303 CTRL_MAP_INI_ECCO 
     &                              tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl.h 208 NO PROCEDURE 
     &                      , tmpfld3d
./pkg/ctrl/ctrl.h 211 NO PROCEDURE 
      _RL tmpfld3d
./pkg/ctrl/ctrl_hfacc_ini.F 104 CTRL_HFACC_INI 
                tmpfld3d(i,j,k,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_hfacc_ini.F 121 CTRL_HFACC_INI 
      call ACTIVE_READ_XYZ_LOC( fnamehfacc, tmpfld3d, 1,
./pkg/ctrl/ctrl_hfacc_ini.F 130 CTRL_HFACC_INI 
     &                               fac*tmpfld3d(i,j,k,bi,bj)