Symbol Description Uses
stold 17



File Line number Procedure Code
./model/src/the_main_loop.F 145 THE_MAIN_LOOP
      REAL*8 utnew, utold, stnew, stold, wtnew, wtold
./model/src/the_main_loop.F 146 THE_MAIN_LOOP
      DATA utnew, utold, stnew, stold, wtnew, wtold /6*0.0D0/
./model/src/the_main_loop.F 238 THE_MAIN_LOOP
      CALL TIMER_GET_TIME( utold, stold, wtold )
./model/src/the_main_loop.F 469 THE_MAIN_LOOP
     $        stnew - stold, wtnew - wtold, iloop
./model/src/the_main_loop.F 472 THE_MAIN_LOOP
      stold = stnew
./model/src/solve_for_pressure.F 545 SOLVE_FOR_PRESSURE
     $        stnew - stold, wtnew - wtold
./model/src/solve_for_pressure.F 549 SOLVE_FOR_PRESSURE
      stold = stnew
./model/src/solve_for_pressure.F 596 SOLVE_FOR_PRESSURE
      REAL*8 utnew, utold, stnew, stold, wtnew, wtold
./model/src/solve_for_pressure.F 597 SOLVE_FOR_PRESSURE
      COMMON /timevars/ utnew, utold, stnew, stold, wtnew, wtold
./model/src/solve_for_pressure.F 598 SOLVE_FOR_PRESSURE
      DATA utnew, utold, stnew, stold, wtnew, wtold /6*0.0D0/
./model/src/solve_for_pressure.F 77 SOLVE_FOR_PRESSURE
      REAL*8 utnew, utold, stnew, stold, wtnew, wtold
./model/src/solve_for_pressure.F 78 SOLVE_FOR_PRESSURE
      COMMON /timevars/ utnew, utold, stnew, stold, wtnew, wtold
./pkg/ecco/the_main_loop.F 1043 THE_MAIN_LOOP
     $        stnew - stold, wtnew - wtold, iloop
./pkg/ecco/the_main_loop.F 1046 THE_MAIN_LOOP
      stold = stnew
./pkg/ecco/the_main_loop.F 197 THE_MAIN_LOOP
      REAL*8 utnew, utold, stnew, stold, wtnew, wtold
./pkg/ecco/the_main_loop.F 198 THE_MAIN_LOOP
      DATA utnew, utold, stnew, stold, wtnew, wtold /6*0.0D0/
./pkg/ecco/the_main_loop.F 310 THE_MAIN_LOOP
      CALL TIMER_GET_TIME( utold, stold, wtold )