Symbol Description Uses
argotrec 5


File Line number Procedure Code
./pkg/ecco/cost_readargot.F 52 COST_READARGOT 
      integer argotrec
./pkg/ecco/cost_readargot.F 76 COST_READARGOT 
        argotrec = mod(modelstartdate(1)/100,100) -
./pkg/ecco/cost_readargot.F 79 COST_READARGOT 
        argotrec = ( beginrun - beginargot - 1)*nmonthyear +
./pkg/ecco/cost_readargot.F 83 COST_READARGOT 
      if (argotrec.gt.0) then
./pkg/ecco/cost_readargot.F 85 COST_READARGOT 
     &                   argotobs,argotrec, mythid )