Symbol Description Uses
kmaxdepth 8


File Line number Procedure Code
./pkg/cost/cost_vector.F 29 COST_VECTOR 
      integer    kmaxdepth
./pkg/cost/cost_vector.F 41 COST_VECTOR 
      parameter ( kmaxdepth = 15 )
./pkg/cost/cost_vector.F 66 COST_VECTOR 
            do k = 1, kmaxdepth
./pkg/cost/cost_atlantic_heat.F 117 COST_ATLANTIC_HEAT 
           if ( k .LE. kmaxdepth .AND.
./pkg/cost/cost_atlantic_heat.F 161 COST_ATLANTIC_HEAT 
           if ( k .LE. kmaxdepth .AND.
./pkg/cost/cost_atlantic_heat.F 29 COST_ATLANTIC_HEAT 
      integer    kmaxdepth
./pkg/cost/cost_atlantic_heat.F 44 COST_ATLANTIC_HEAT 
      parameter ( kmaxdepth = 5 )
./pkg/cost/cost_atlantic_heat.F 74 COST_ATLANTIC_HEAT 
          do k = 1, kmaxdepth