Symbol Description Uses
tmpfld3d 182


File Line number Procedure Code
./pkg/grdchk/grdchk_getadxx.F 101 GRDCHK_GETADXX 
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getadxx.F 104 GRDCHK_GETADXX 
         xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
./pkg/grdchk/grdchk_getadxx.F 271 GRDCHK_GETADXX 
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getadxx.F 275 GRDCHK_GETADXX 
         xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
./pkg/grdchk/grdchk_getadxx.F 286 GRDCHK_GETADXX 
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getadxx.F 290 GRDCHK_GETADXX 
         xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
./pkg/grdchk/grdchk_getadxx.F 301 GRDCHK_GETADXX 
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getadxx.F 305 GRDCHK_GETADXX 
         xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
./pkg/grdchk/grdchk_getadxx.F 316 GRDCHK_GETADXX 
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getadxx.F 320 GRDCHK_GETADXX 
         xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
./pkg/grdchk/grdchk_getadxx.F 367 GRDCHK_GETADXX 
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getadxx.F 371 GRDCHK_GETADXX 
         xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
./pkg/grdchk/grdchk_getadxx.F 382 GRDCHK_GETADXX 
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getadxx.F 386 GRDCHK_GETADXX 
         xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
./pkg/grdchk/grdchk_getadxx.F 421 GRDCHK_GETADXX 
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getadxx.F 424 GRDCHK_GETADXX 
         xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
./pkg/grdchk/grdchk_getadxx.F 89 GRDCHK_GETADXX 
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getadxx.F 92 GRDCHK_GETADXX 
         xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
./pkg/grdchk/grdchk_getxx.F 100 GRDCHK_GETXX 
         xx_comp_ref = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
./pkg/grdchk/grdchk_getxx.F 102 GRDCHK_GETXX 
         tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_pert
./pkg/grdchk/grdchk_getxx.F 103 GRDCHK_GETXX 
         call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getxx.F 118 GRDCHK_GETXX 
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getxx.F 121 GRDCHK_GETXX 
         xx_comp_ref = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
./pkg/grdchk/grdchk_getxx.F 123 GRDCHK_GETXX 
         tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_pert
./pkg/grdchk/grdchk_getxx.F 124 GRDCHK_GETXX 
         call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getxx.F 408 GRDCHK_GETXX 
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getxx.F 412 GRDCHK_GETXX 
         xx_comp_ref = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
./pkg/grdchk/grdchk_getxx.F 414 GRDCHK_GETXX 
         tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_pert
./pkg/grdchk/grdchk_getxx.F 416 GRDCHK_GETXX 
         call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getxx.F 433 GRDCHK_GETXX 
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getxx.F 437 GRDCHK_GETXX 
         xx_comp_ref = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
./pkg/grdchk/grdchk_getxx.F 439 GRDCHK_GETXX 
         tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_pert
./pkg/grdchk/grdchk_getxx.F 441 GRDCHK_GETXX 
         call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getxx.F 458 GRDCHK_GETXX 
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getxx.F 462 GRDCHK_GETXX 
         xx_comp_ref = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
./pkg/grdchk/grdchk_getxx.F 464 GRDCHK_GETXX 
         tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_pert
./pkg/grdchk/grdchk_getxx.F 466 GRDCHK_GETXX 
         call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getxx.F 484 GRDCHK_GETXX 
         call ACTIVE_READ_XYZ( fname, tmpfld3d, icvrec,
./pkg/grdchk/grdchk_getxx.F 488 GRDCHK_GETXX 
         xx_comp_ref = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
./pkg/grdchk/grdchk_getxx.F 490 GRDCHK_GETXX 
         tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_pert
./pkg/grdchk/grdchk_getxx.F 492 GRDCHK_GETXX 
         call ACTIVE_WRITE_XYZ( fname, tmpfld3d, icvrec,
./pkg/grdchk/grdchk_getxx.F 573 GRDCHK_GETXX 
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getxx.F 577 GRDCHK_GETXX 
         xx_comp_ref = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
./pkg/grdchk/grdchk_getxx.F 579 GRDCHK_GETXX 
         tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_pert
./pkg/grdchk/grdchk_getxx.F 581 GRDCHK_GETXX 
         call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getxx.F 599 GRDCHK_GETXX 
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getxx.F 603 GRDCHK_GETXX 
         xx_comp_ref = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
./pkg/grdchk/grdchk_getxx.F 605 GRDCHK_GETXX 
         tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_pert
./pkg/grdchk/grdchk_getxx.F 607 GRDCHK_GETXX 
         call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getxx.F 666 GRDCHK_GETXX 
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getxx.F 670 GRDCHK_GETXX 
         xx_comp_ref = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
./pkg/grdchk/grdchk_getxx.F 672 GRDCHK_GETXX 
         tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_pert
./pkg/grdchk/grdchk_getxx.F 674 GRDCHK_GETXX 
         call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_getxx.F 97 GRDCHK_GETXX 
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_setxx.F 113 GRDCHK_SETXX 
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_setxx.F 116 GRDCHK_SETXX 
         tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_ref
./pkg/grdchk/grdchk_setxx.F 117 GRDCHK_SETXX 
         call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_setxx.F 377 GRDCHK_SETXX 
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_setxx.F 381 GRDCHK_SETXX 
         tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_ref
./pkg/grdchk/grdchk_setxx.F 383 GRDCHK_SETXX 
         call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_setxx.F 400 GRDCHK_SETXX 
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_setxx.F 404 GRDCHK_SETXX 
         tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_ref
./pkg/grdchk/grdchk_setxx.F 406 GRDCHK_SETXX 
         call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_setxx.F 423 GRDCHK_SETXX 
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_setxx.F 427 GRDCHK_SETXX 
         tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_ref
./pkg/grdchk/grdchk_setxx.F 429 GRDCHK_SETXX 
         call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_setxx.F 446 GRDCHK_SETXX 
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_setxx.F 450 GRDCHK_SETXX 
         tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_ref
./pkg/grdchk/grdchk_setxx.F 452 GRDCHK_SETXX 
         call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_setxx.F 526 GRDCHK_SETXX 
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_setxx.F 529 GRDCHK_SETXX 
         tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_ref
./pkg/grdchk/grdchk_setxx.F 530 GRDCHK_SETXX 
         call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_setxx.F 546 GRDCHK_SETXX 
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_setxx.F 549 GRDCHK_SETXX 
         tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_ref
./pkg/grdchk/grdchk_setxx.F 550 GRDCHK_SETXX 
         call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_setxx.F 604 GRDCHK_SETXX 
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_setxx.F 608 GRDCHK_SETXX 
         tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_ref
./pkg/grdchk/grdchk_setxx.F 610 GRDCHK_SETXX 
         call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_setxx.F 94 GRDCHK_SETXX 
         call ACTIVE_READ_XYZ( fname, tmpfld3d, 1,
./pkg/grdchk/grdchk_setxx.F 97 GRDCHK_SETXX 
         tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_ref
./pkg/grdchk/grdchk_setxx.F 98 GRDCHK_SETXX 
         call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1,
./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 278 NO PROCEDURE 
     &                      , tmpfld3d
./pkg/ctrl/ctrl.h 281 NO PROCEDURE 
      _RL tmpfld3d
./pkg/ctrl/ctrl_hfacc_ini.F 105 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( fnamehfacc, tmpfld3d, 1,
./pkg/ctrl/ctrl_hfacc_ini.F 130 CTRL_HFACC_INI 
     &                               fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_init_wet.F 539 CTRL_INIT_WET 
               tmpfld3d(i,j,k,bi,bj) = 1. _d 0
./pkg/ctrl/ctrl_init_wet.F 554 CTRL_INIT_WET 
      call ACTIVE_WRITE_XYZ( 'wunit', tmpfld3d, 1, 0, mythid, dummy)
./pkg/ctrl/ctrl_map_ini.F 108 CTRL_MAP_INI 
               IF (abs(tmpfld3d(i,j,k,bi,bj)).gt.
./pkg/ctrl/ctrl_map_ini.F 110 CTRL_MAP_INI 
     $          tmpfld3d(i,j,k,bi,bj)=
./pkg/ctrl/ctrl_map_ini.F 111 CTRL_MAP_INI 
     $          sign(2.0/sqrt(wtheta(k,bi,bj)),tmpfld3d(i,j,k,bi,bj))
./pkg/ctrl/ctrl_map_ini.F 116 CTRL_MAP_INI 
     &                               fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 119 CTRL_MAP_INI 
     &                               fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 138 CTRL_MAP_INI 
      call ACTIVE_READ_XYZ( fnamegeneric, tmpfld3d, 1,
./pkg/ctrl/ctrl_map_ini.F 148 CTRL_MAP_INI 
               IF (abs(tmpfld3d(i,j,k,bi,bj)).gt.
./pkg/ctrl/ctrl_map_ini.F 150 CTRL_MAP_INI 
     $          tmpfld3d(i,j,k,bi,bj)=
./pkg/ctrl/ctrl_map_ini.F 151 CTRL_MAP_INI 
     $          sign(2.0/sqrt(wsalt(k,bi,bj)),tmpfld3d(i,j,k,bi,bj))
./pkg/ctrl/ctrl_map_ini.F 156 CTRL_MAP_INI 
     &                               fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 159 CTRL_MAP_INI 
     &                               fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 175 CTRL_MAP_INI 
      call ACTIVE_READ_XYZ( fnamegeneric, tmpfld3d, 1,
./pkg/ctrl/ctrl_map_ini.F 185 CTRL_MAP_INI 
     &                               fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 242 CTRL_MAP_INI 
      call ACTIVE_READ_XYZ( fnamegeneric, tmpfld3d, 1,
./pkg/ctrl/ctrl_map_ini.F 253 CTRL_MAP_INI 
     &                                tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 256 CTRL_MAP_INI 
     &                                tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 272 CTRL_MAP_INI 
      call ACTIVE_READ_XYZ( fnamegeneric, tmpfld3d, 1,
./pkg/ctrl/ctrl_map_ini.F 283 CTRL_MAP_INI 
     &                               tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 286 CTRL_MAP_INI 
     &                               tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 302 CTRL_MAP_INI 
      call ACTIVE_READ_XYZ( fnamegeneric, tmpfld3d, 1,
./pkg/ctrl/ctrl_map_ini.F 311 CTRL_MAP_INI 
     &                               tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 325 CTRL_MAP_INI 
      call ACTIVE_READ_XYZ( fnamegeneric, tmpfld3d, 1,
./pkg/ctrl/ctrl_map_ini.F 335 CTRL_MAP_INI 
     &                                - fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 352 CTRL_MAP_INI 
      call ACTIVE_READ_XYZ( fnamegeneric, tmpfld3d, 1,
./pkg/ctrl/ctrl_map_ini.F 363 CTRL_MAP_INI 
     &                                  *fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 401 CTRL_MAP_INI 
      call ACTIVE_READ_XYZ( fnamegeneric, tmpfld3d, 1,
./pkg/ctrl/ctrl_map_ini.F 410 CTRL_MAP_INI 
     &            tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 420 CTRL_MAP_INI 
      call ACTIVE_READ_XYZ( fnamegeneric, tmpfld3d, 1,
./pkg/ctrl/ctrl_map_ini.F 429 CTRL_MAP_INI 
     &            tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 442 CTRL_MAP_INI 
      call ACTIVE_READ_XYZ( fnamegeneric, tmpfld3d, 1,
./pkg/ctrl/ctrl_map_ini.F 455 CTRL_MAP_INI 
     &                                  fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 469 CTRL_MAP_INI 
      call ACTIVE_READ_XYZ( fnamegeneric, tmpfld3d, 1,
./pkg/ctrl/ctrl_map_ini.F 482 CTRL_MAP_INI 
     &                                  fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 98 CTRL_MAP_INI 
      call ACTIVE_READ_XYZ( fnamegeneric, tmpfld3d, 1,
./pkg/ctrl/ctrl_map_ini_ecco.F 128 CTRL_MAP_INI_ECCO 
                tmpfld3d(i,j,k,bi,bj)=1.
./pkg/ctrl/ctrl_map_ini_ecco.F 134 CTRL_MAP_INI_ECCO 
      _EXCH_XYZ_RL( tmpfld3d, mythid)
./pkg/ecco/cost_diffkr.F 108 COST_DIFFKR 
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_diffkr.F 92 COST_DIFFKR 
      call ACTIVE_READ_XYZ( fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_kapgm.F 111 COST_KAPGM 
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_kapgm.F 95 COST_KAPGM 
      call ACTIVE_READ_XYZ( fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_kapredi.F 111 COST_KAPREDI 
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_kapredi.F 95 COST_KAPREDI 
      call ACTIVE_READ_XYZ( fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_salt0.F 104 COST_SALT0 
      call ACTIVE_READ_XYZ( fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_salt0.F 119 COST_SALT0 
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_salt0.F 145 COST_SALT0 
     &     fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_salt0.F 148 COST_SALT0 
        _EXCH_XYZ_RL(tmpfld3d, mythid)
./pkg/ecco/cost_salt0.F 160 COST_SALT0 
     &              ( tmpfld3d(i+2,j,k,bi,bj)-tmpfld3d(i+1,j,k,bi,bj) )
./pkg/ecco/cost_salt0.F 162 COST_SALT0 
     &            + ( tmpfld3d(i+1,j,k,bi,bj)-tmpfld3d(i,j,k,bi,bj) )
./pkg/ecco/cost_salt0.F 164 COST_SALT0 
     &            + ( tmpfld3d(i,j+2,k,bi,bj)-tmpfld3d(i,j+1,k,bi,bj) )
./pkg/ecco/cost_salt0.F 166 COST_SALT0 
     &            + ( tmpfld3d(i,j+1,k,bi,bj)-tmpfld3d(i,j,k,bi,bj) )
./pkg/ecco/cost_salt_ini_fin.F 109 COST_SALT_INI_FIN 
                  tmpx = tmpfld3d(i,j,k,bi,bj) - salt(i,j,k,bi,bj)
./pkg/ecco/cost_salt_ini_fin.F 94 COST_SALT_INI_FIN 
      call ACTIVE_READ_XYZ( fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_tau_eddy.F 101 COST_TAU_EDDY 
      call ACTIVE_READ_XYZ( fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_tau_eddy.F 113 COST_TAU_EDDY 
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_tau_eddy.F 136 COST_TAU_EDDY 
      call ACTIVE_READ_XYZ( fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_tau_eddy.F 148 COST_TAU_EDDY 
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_theta0.F 105 COST_THETA0 
     &     fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_theta0.F 119 COST_THETA0 
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_theta0.F 145 COST_THETA0 
     &     fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_theta0.F 148 COST_THETA0 
        _EXCH_XYZ_RL(tmpfld3d, mythid)
./pkg/ecco/cost_theta0.F 160 COST_THETA0 
     &              ( tmpfld3d(i+2,j,k,bi,bj)-tmpfld3d(i+1,j,k,bi,bj) )
./pkg/ecco/cost_theta0.F 162 COST_THETA0 
     &            + ( tmpfld3d(i+1,j,k,bi,bj)-tmpfld3d(i,j,k,bi,bj) )
./pkg/ecco/cost_theta0.F 164 COST_THETA0 
     &            + ( tmpfld3d(i,j+2,k,bi,bj)-tmpfld3d(i,j+1,k,bi,bj) )
./pkg/ecco/cost_theta0.F 166 COST_THETA0 
     &            + ( tmpfld3d(i,j+1,k,bi,bj)-tmpfld3d(i,j,k,bi,bj) )
./pkg/ecco/cost_theta_ini_fin.F 109 COST_THETA_INI_FIN 
                  tmpx = tmpfld3d(i,j,k,bi,bj) - theta(i,j,k,bi,bj)
./pkg/ecco/cost_theta_ini_fin.F 94 COST_THETA_INI_FIN 
      call ACTIVE_READ_XYZ( fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/ecco_cost_init_barfiles.F 124 ECCO_COST_INIT_BARFILES 
                tmpfld3d(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_barfiles.F 203 ECCO_COST_INIT_BARFILES 
        call ACTIVE_WRITE_XYZ( adfnametbar, tmpfld3d, irec,
./pkg/ecco/ecco_cost_init_barfiles.F 254 ECCO_COST_INIT_BARFILES 
        call ACTIVE_WRITE_XYZ( adfnamesbar, tmpfld3d, irec,
./pkg/ecco/ecco_cost_init_barfiles.F 296 ECCO_COST_INIT_BARFILES 
        call ACTIVE_WRITE_XYZ( adfnameubar, tmpfld3d, irec,
./pkg/ecco/ecco_cost_init_barfiles.F 298 ECCO_COST_INIT_BARFILES 
        call ACTIVE_WRITE_XYZ( adfnamevbar, tmpfld3d, irec,
./pkg/ecco/ecco_cost_init_barfiles.F 314 ECCO_COST_INIT_BARFILES 
        call ACTIVE_WRITE_XYZ( adfnamewbar, tmpfld3d, irec,
./pkg/ecco/ecco_cost_init_barfiles.F 407 ECCO_COST_INIT_BARFILES 
        call ACTIVE_WRITE_XY( adfnamesmrsstbar, tmpfld3d, irec,
./pkg/ecco/ecco_cost_init_barfiles.F 409 ECCO_COST_INIT_BARFILES 
        call ACTIVE_WRITE_XY( adfnamesmrsssbar, tmpfld3d, irec,