Symbol Description Uses
tmpwti 4


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