Symbol Description Uses
argotrec 5


File Line number Procedure Code
./pkg/ecco/cost_readargot.F 51 COST_READARGOT 
      integer argotrec
./pkg/ecco/cost_readargot.F 75 COST_READARGOT 
        argotrec = mod(modelstartdate(1)/100,100) -
./pkg/ecco/cost_readargot.F 78 COST_READARGOT 
        argotrec = ( beginrun - beginargot - 1)*nmonthyear +
./pkg/ecco/cost_readargot.F 82 COST_READARGOT 
      if (argotrec.gt.0) then
./pkg/ecco/cost_readargot.F 84 COST_READARGOT 
     &                   argotobs,argotrec, mythid )