Symbol Description Uses
tmpfld3d 147



File Line number Procedure Code
./pkg/grdchk/grdchk_getadxx.F 496 GRDCHK_GETADXX
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getadxx.F 500 GRDCHK_GETADXX
     &   xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
./pkg/grdchk/grdchk_getxx.F 690 GRDCHK_GETXX
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getxx.F 694 GRDCHK_GETXX
     &   xx_comp_ref = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
./pkg/grdchk/grdchk_getxx.F 698 GRDCHK_GETXX
     &   tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_pert
./pkg/grdchk/grdchk_getxx.F 699 GRDCHK_GETXX
         call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_setxx.F 692 GRDCHK_SETXX
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_setxx.F 696 GRDCHK_SETXX
     &   tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_ref
./pkg/grdchk/grdchk_setxx.F 697 GRDCHK_SETXX
         call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1,
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F 144 CTRL_MAP_INI_GENARR
       CALL ACTIVE_READ_XYZ( fnamegeneric, tmpfld3d, 1,
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F 154 CTRL_MAP_INI_GENARR
     &                             + fac*tmpfld3d(i,j,k,bi,bj)
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F 157 CTRL_MAP_INI_GENARR
     &                            + fac*tmpfld3d(i,j,k,bi,bj)
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F 161 CTRL_MAP_INI_GENARR
     &                              + tmpfld3d(i,j,k,bi,bj)
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F 152 CTRL_MAP_INI_GENARR
       CALL ACTIVE_READ_XYZ( fnamegeneric, tmpfld3d, 1,
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F 162 CTRL_MAP_INI_GENARR
     &                             + fac*tmpfld3d(i,j,k,bi,bj)
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F 165 CTRL_MAP_INI_GENARR
     &                            + fac*tmpfld3d(i,j,k,bi,bj)
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F 169 CTRL_MAP_INI_GENARR
     &                              + tmpfld3d(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F 155 CTRL_MAP_INI_GENARR
       CALL ACTIVE_READ_XYZ( fnamegeneric, tmpfld3d, 1,
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F 166 CTRL_MAP_INI_GENARR
     &                             + fac*tmpfld3d(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F 169 CTRL_MAP_INI_GENARR
     &                            + fac*tmpfld3d(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F 175 CTRL_MAP_INI_GENARR
     &           + fac*tmpfld3d(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F 179 CTRL_MAP_INI_GENARR
     &           + fac*tmpfld3d(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F 154 CTRL_MAP_INI_GENARR
       CALL ACTIVE_READ_XYZ( fnamegeneric, tmpfld3d, 1,
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F 165 CTRL_MAP_INI_GENARR
     &                             + fac*tmpfld3d(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F 168 CTRL_MAP_INI_GENARR
     &                            + fac*tmpfld3d(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F 174 CTRL_MAP_INI_GENARR
     &           + fac*tmpfld3d(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F 178 CTRL_MAP_INI_GENARR
     &           + fac*tmpfld3d(i,j,k,bi,bj)
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F 137 CTRL_MAP_INI_GENARR
       CALL ACTIVE_READ_XYZ( fnamegeneric, tmpfld3d, 1,
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F 148 CTRL_MAP_INI_GENARR
     &         + fac*tmpfld3d(i,j,k,bi,bj)
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F 151 CTRL_MAP_INI_GENARR
     &         + fac*tmpfld3d(i,j,k,bi,bj)
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F 134 CTRL_MAP_INI_GENARR
       CALL ACTIVE_READ_XYZ( fnamegeneric, tmpfld3d, 1,
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F 145 CTRL_MAP_INI_GENARR
     &         + fac*tmpfld3d(i,j,k,bi,bj)
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F 148 CTRL_MAP_INI_GENARR
     &         + fac*tmpfld3d(i,j,k,bi,bj)
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F 137 CTRL_MAP_INI_GENARR
       CALL ACTIVE_READ_XYZ( fnamegeneric, tmpfld3d, 1,
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F 148 CTRL_MAP_INI_GENARR
     &         + fac*tmpfld3d(i,j,k,bi,bj)
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F 151 CTRL_MAP_INI_GENARR
     &         + fac*tmpfld3d(i,j,k,bi,bj)
./pkg/admtlm/admtlm_bypassad.F 116 ADMTLM_BYPASSAD
                tmpfld3d(i,j,k,bi,bj) = tmpfld3d(i,j,k,bi,bj)
./pkg/admtlm/admtlm_bypassad.F 127 ADMTLM_BYPASSAD
     &     optimcycle,mythid,tmpfld3d )
./pkg/admtlm/admtlm_bypassad.F 134 ADMTLM_BYPASSAD
                tmpfld3d(i,j,k,bi,bj) = tmpfld3d(i,j,k,bi,bj)
./pkg/admtlm/admtlm_bypassad.F 145 ADMTLM_BYPASSAD
     &     optimcycle,mythid,tmpfld3d )
./pkg/admtlm/admtlm_bypassad.F 152 ADMTLM_BYPASSAD
                tmpfld3d(i,j,k,bi,bj) = tmpfld3d(i,j,k,bi,bj)
./pkg/admtlm/admtlm_bypassad.F 163 ADMTLM_BYPASSAD
     &     optimcycle,mythid,tmpfld3d )
./pkg/admtlm/admtlm_bypassad.F 170 ADMTLM_BYPASSAD
                tmpfld3d(i,j,k,bi,bj) = tmpfld3d(i,j,k,bi,bj)
./pkg/admtlm/admtlm_bypassad.F 181 ADMTLM_BYPASSAD
     &     optimcycle,mythid,tmpfld3d )
./pkg/ctrl/ctrl.h 290 NO PROCEDURE
     &                      , tmpfld3d
./pkg/ctrl/ctrl.h 293 NO PROCEDURE
      _RL tmpfld3d
./pkg/ctrl/ctrl_hfacc_ini.F 106 CTRL_HFACC_INI
                tmpfld3d(i,j,k,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_hfacc_ini.F 122 CTRL_HFACC_INI
      call ACTIVE_READ_XYZ( fnamehfacc, tmpfld3d, 1,
./pkg/ctrl/ctrl_hfacc_ini.F 131 CTRL_HFACC_INI
     &                               fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_init_wet.F 603 CTRL_INIT_WET
               tmpfld3d(i,j,k,bi,bj) = 1. _d 0
./pkg/ctrl/ctrl_init_wet.F 628 CTRL_INIT_WET
      call ACTIVE_WRITE_XYZ( 'wunit', tmpfld3d, 1, 0, mythid, dummy)
./pkg/ctrl/ctrl_map_ini.F 104 CTRL_MAP_INI
      call ACTIVE_READ_XYZ( fnamegeneric, tmpfld3d, 1,
./pkg/ctrl/ctrl_map_ini.F 114 CTRL_MAP_INI
               IF (abs(tmpfld3d(i,j,k,bi,bj)).gt.
./pkg/ctrl/ctrl_map_ini.F 116 CTRL_MAP_INI
     $          tmpfld3d(i,j,k,bi,bj)=
./pkg/ctrl/ctrl_map_ini.F 117 CTRL_MAP_INI
     $          sign(2.0/sqrt(wtheta(k,bi,bj)),tmpfld3d(i,j,k,bi,bj))
./pkg/ctrl/ctrl_map_ini.F 122 CTRL_MAP_INI
     &                               fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 125 CTRL_MAP_INI
     &                               fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 144 CTRL_MAP_INI
      call ACTIVE_READ_XYZ( fnamegeneric, tmpfld3d, 1,
./pkg/ctrl/ctrl_map_ini.F 154 CTRL_MAP_INI
               IF (abs(tmpfld3d(i,j,k,bi,bj)).gt.
./pkg/ctrl/ctrl_map_ini.F 156 CTRL_MAP_INI
     $          tmpfld3d(i,j,k,bi,bj)=
./pkg/ctrl/ctrl_map_ini.F 157 CTRL_MAP_INI
     $          sign(2.0/sqrt(wsalt(k,bi,bj)),tmpfld3d(i,j,k,bi,bj))
./pkg/ctrl/ctrl_map_ini.F 162 CTRL_MAP_INI
     &                               fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 165 CTRL_MAP_INI
     &                               fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 181 CTRL_MAP_INI
      call ACTIVE_READ_XYZ( fnamegeneric, tmpfld3d, 1,
./pkg/ctrl/ctrl_map_ini.F 193 CTRL_MAP_INI
     &                               fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 196 CTRL_MAP_INI
     &                               fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 254 CTRL_MAP_INI
      call ACTIVE_READ_XYZ( fnamegeneric, tmpfld3d, 1,
./pkg/ctrl/ctrl_map_ini.F 265 CTRL_MAP_INI
     &                                tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 268 CTRL_MAP_INI
     &                                tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 284 CTRL_MAP_INI
      call ACTIVE_READ_XYZ( fnamegeneric, tmpfld3d, 1,
./pkg/ctrl/ctrl_map_ini.F 295 CTRL_MAP_INI
     &                               tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 298 CTRL_MAP_INI
     &                               tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 314 CTRL_MAP_INI
      call ACTIVE_READ_XYZ( fnamegeneric, tmpfld3d, 1,
./pkg/ctrl/ctrl_map_ini.F 323 CTRL_MAP_INI
     &                               tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 337 CTRL_MAP_INI
      call ACTIVE_READ_XYZ( fnamegeneric, tmpfld3d, 1,
./pkg/ctrl/ctrl_map_ini.F 347 CTRL_MAP_INI
     &                                - fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 364 CTRL_MAP_INI
      call ACTIVE_READ_XYZ( fnamegeneric, tmpfld3d, 1,
./pkg/ctrl/ctrl_map_ini.F 375 CTRL_MAP_INI
     &                                  *fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 413 CTRL_MAP_INI
      call ACTIVE_READ_XYZ( fnamegeneric, tmpfld3d, 1,
./pkg/ctrl/ctrl_map_ini.F 422 CTRL_MAP_INI
     &            tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 432 CTRL_MAP_INI
      call ACTIVE_READ_XYZ( fnamegeneric, tmpfld3d, 1,
./pkg/ctrl/ctrl_map_ini.F 441 CTRL_MAP_INI
     &            tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 454 CTRL_MAP_INI
      call ACTIVE_READ_XYZ( fnamegeneric, tmpfld3d, 1,
./pkg/ctrl/ctrl_map_ini.F 467 CTRL_MAP_INI
     &                                  fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 481 CTRL_MAP_INI
      call ACTIVE_READ_XYZ( fnamegeneric, tmpfld3d, 1,
./pkg/ctrl/ctrl_map_ini.F 494 CTRL_MAP_INI
     &                                  fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini_ecco.F 126 CTRL_MAP_INI_ECCO
                tmpfld3d(i,j,k,bi,bj)=1.
./pkg/ctrl/ctrl_map_ini_ecco.F 132 CTRL_MAP_INI_ECCO
      _EXCH_XYZ_RL( tmpfld3d, mythid)
./pkg/ctrl/ctrl_map_ini_genarr.F 132 CTRL_MAP_INI_GENARR
       CALL ACTIVE_READ_XYZ( fnamegeneric, tmpfld3d, 1,
./pkg/ctrl/ctrl_map_ini_genarr.F 142 CTRL_MAP_INI_GENARR
     &                             + fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini_genarr.F 145 CTRL_MAP_INI_GENARR
     &                            + fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini_genarr.F 149 CTRL_MAP_INI_GENARR
     &                              + tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_diffkr.F 109 COST_DIFFKR
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_diffkr.F 93 COST_DIFFKR
      call ACTIVE_READ_XYZ( fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_kapgm.F 112 COST_KAPGM
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_kapgm.F 96 COST_KAPGM
      call ACTIVE_READ_XYZ( fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_kapredi.F 112 COST_KAPREDI
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_kapredi.F 96 COST_KAPREDI
      call ACTIVE_READ_XYZ( fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_salt0.F 105 COST_SALT0
      call ACTIVE_READ_XYZ( fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_salt0.F 120 COST_SALT0
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_salt0.F 146 COST_SALT0
     &     fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_salt0.F 149 COST_SALT0
        _EXCH_XYZ_RL(tmpfld3d, mythid)
./pkg/ecco/cost_salt0.F 161 COST_SALT0
     &              ( tmpfld3d(i+2,j,k,bi,bj)-tmpfld3d(i+1,j,k,bi,bj) )
./pkg/ecco/cost_salt0.F 163 COST_SALT0
     &            + ( tmpfld3d(i+1,j,k,bi,bj)-tmpfld3d(i,j,k,bi,bj) )
./pkg/ecco/cost_salt0.F 165 COST_SALT0
     &            + ( tmpfld3d(i,j+2,k,bi,bj)-tmpfld3d(i,j+1,k,bi,bj) )
./pkg/ecco/cost_salt0.F 167 COST_SALT0
     &            + ( tmpfld3d(i,j+1,k,bi,bj)-tmpfld3d(i,j,k,bi,bj) )
./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 95 COST_SALT_INI_FIN
      call ACTIVE_READ_XYZ( fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_tau_eddy.F 102 COST_TAU_EDDY
      call ACTIVE_READ_XYZ( fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_tau_eddy.F 114 COST_TAU_EDDY
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_tau_eddy.F 137 COST_TAU_EDDY
      call ACTIVE_READ_XYZ( fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_tau_eddy.F 149 COST_TAU_EDDY
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_theta0.F 106 COST_THETA0
     &     fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_theta0.F 120 COST_THETA0
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_theta0.F 146 COST_THETA0
     &     fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_theta0.F 149 COST_THETA0
        _EXCH_XYZ_RL(tmpfld3d, mythid)
./pkg/ecco/cost_theta0.F 161 COST_THETA0
     &              ( tmpfld3d(i+2,j,k,bi,bj)-tmpfld3d(i+1,j,k,bi,bj) )
./pkg/ecco/cost_theta0.F 163 COST_THETA0
     &            + ( tmpfld3d(i+1,j,k,bi,bj)-tmpfld3d(i,j,k,bi,bj) )
./pkg/ecco/cost_theta0.F 165 COST_THETA0
     &            + ( tmpfld3d(i,j+2,k,bi,bj)-tmpfld3d(i,j+1,k,bi,bj) )
./pkg/ecco/cost_theta0.F 167 COST_THETA0
     &            + ( tmpfld3d(i,j+1,k,bi,bj)-tmpfld3d(i,j,k,bi,bj) )
./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 95 COST_THETA_INI_FIN
      call ACTIVE_READ_XYZ( fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_uvel0.F 106 COST_UVEL0
     &     fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_uvel0.F 120 COST_UVEL0
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_vvel0.F 106 COST_VVEL0
     &     fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_vvel0.F 120 COST_VVEL0
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_init_barfiles.F 132 ECCO_COST_INIT_BARFILES
                tmpfld3d(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_barfiles.F 185 ECCO_COST_INIT_BARFILES
        call ACTIVE_WRITE_XYZ( adfnamesigmaRbar, tmpfld3d, irec,
./pkg/ecco/ecco_cost_init_barfiles.F 206 ECCO_COST_INIT_BARFILES
        call ACTIVE_WRITE_XYZ( adfnametbar, tmpfld3d, irec,
./pkg/ecco/ecco_cost_init_barfiles.F 259 ECCO_COST_INIT_BARFILES
        call ACTIVE_WRITE_XYZ( adfnamesbar, tmpfld3d, irec,
./pkg/ecco/ecco_cost_init_barfiles.F 301 ECCO_COST_INIT_BARFILES
        call ACTIVE_WRITE_XYZ( adfnameubar, tmpfld3d, irec,
./pkg/ecco/ecco_cost_init_barfiles.F 303 ECCO_COST_INIT_BARFILES
        call ACTIVE_WRITE_XYZ( adfnamevbar, tmpfld3d, irec,
./pkg/ecco/ecco_cost_init_barfiles.F 319 ECCO_COST_INIT_BARFILES
        call ACTIVE_WRITE_XYZ( adfnamewbar, tmpfld3d, irec,
./pkg/ecco/ecco_cost_init_barfiles.F 414 ECCO_COST_INIT_BARFILES
        call ACTIVE_WRITE_XY( adfnamesmrsstbar, tmpfld3d, irec,
./pkg/ecco/ecco_cost_init_barfiles.F 416 ECCO_COST_INIT_BARFILES
        call ACTIVE_WRITE_XY( adfnamesmrsssbar, tmpfld3d, irec,