Symbol Description Uses
objf_state_final 19



File Line number Procedure Code
./pkg/grdchk/grdchk_main.F 164 GRDCHK_MAIN
      fcref = objf_state_final(idep,jdep,1,1,1)
./pkg/grdchk/grdchk_main.F 329 GRDCHK_MAIN
            fcpertplus = objf_state_final(idep,jdep,1,1,1)
./pkg/grdchk/grdchk_main.F 371 GRDCHK_MAIN
               fcpertminus = objf_state_final(idep,jdep,1,1,1)
./verification/OpenAD/code_oad_all/cost_dependent_init.F 69 COST_DEPENDENT_INIT
            objf_state_final(i,j,bi,bj,k) = 0. _d 0
./verification/OpenAD/code_oad_all/cost_dependent_init.F 71 COST_DEPENDENT_INIT
           objf_state_final(i,j,bi,bj,4*Nr+1) = 0. _d 0
./verification/OpenAD/code_oad_all/grdchk_main.F 163 GRDCHK_MAIN
      fcref = objf_state_final(idep,jdep,1,1,1)
./verification/OpenAD/code_oad_all/grdchk_main.F 328 GRDCHK_MAIN
            fcpertplus = objf_state_final(idep,jdep,1,1,1)
./verification/OpenAD/code_oad_all/grdchk_main.F 370 GRDCHK_MAIN
               fcpertminus = objf_state_final(idep,jdep,1,1,1)
./pkg/cost/cost.h 82 NO PROCEDURE
     &                objf_state_final
./pkg/cost/cost.h 84 NO PROCEDURE
      _RL  objf_state_final (snx,sny,nsx,nsy,4*Nr+1)
./pkg/cost/cost_dependent_init.F 72 COST_DEPENDENT_INIT
            objf_state_final(i,j,bi,bj,k) = 0. _d 0
./pkg/cost/cost_dependent_init.F 74 COST_DEPENDENT_INIT
           objf_state_final(i,j,bi,bj,4*Nr+1) = 0. _d 0
./pkg/cost/cost_init_varia.F 90 COST_INIT_VARIA
                objf_state_final(i,j,bi,bj,k) = 0. _d 0
./pkg/cost/cost_init_varia.F 92 COST_INIT_VARIA
              objf_state_final(i,j,bi,bj,4*Nr+1) = 0. _d 0
./pkg/cost/cost_state_final.F 36 COST_STATE_FINAL
           objf_state_final(i,j,bi,bj,0*Nr+k) = theta(i,j,k,bi,bj)
./pkg/cost/cost_state_final.F 37 COST_STATE_FINAL
           objf_state_final(i,j,bi,bj,1*Nr+k) = salt(i,j,k,bi,bj)
./pkg/cost/cost_state_final.F 38 COST_STATE_FINAL
           objf_state_final(i,j,bi,bj,2*Nr+k) = uvel(i,j,k,bi,bj)
./pkg/cost/cost_state_final.F 39 COST_STATE_FINAL
           objf_state_final(i,j,bi,bj,3*Nr+k) = vvel(i,j,k,bi,bj)
./pkg/cost/cost_state_final.F 41 COST_STATE_FINAL
          objf_state_final(i,j,bi,bj,4*Nr+1) = etan(i,j,bi,bj)