Symbol Description Uses
tmpwti 8


File Line number Procedure Code
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F 46 COST_WEIGHTS 
      REAL*8 tmpwti(Nr)
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F 88 COST_WEIGHTS 
       READ(iUnit,rec=1) tmpwti
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F 91 COST_WEIGHTS 
       CALL MDS_BYTESWAPR8( Nr, tmpwti )
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F 97 COST_WEIGHTS 
         wti(k) = tmpwti(k)
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F 46 COST_WEIGHTS 
      REAL*8 tmpwti(Nr)
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F 88 COST_WEIGHTS 
       READ(iUnit,rec=1) tmpwti
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F 91 COST_WEIGHTS 
       CALL MDS_BYTESWAPR8( Nr, tmpwti )
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F 97 COST_WEIGHTS 
         wti(k) = tmpwti(k)