Symbol Description Uses
time1 14


File Line number Procedure Code
./pkg/fizhi/fizhi_clockstuff.F 451 INTERP_TIME 
      _RL time00, time1, time2
./pkg/fizhi/fizhi_clockstuff.F 501 INTERP_TIME 
      time1 = DAY1 + MNDY(MONTH1+12*MOD(YEAR1,4)) + float(sec1)/86400.
./pkg/fizhi/fizhi_clockstuff.F 504 INTERP_TIME 
      if( time00 .lt.time1 ) time00  = time00  + dayscy
./pkg/fizhi/fizhi_clockstuff.F 505 INTERP_TIME 
      if( time2.lt.time1 ) time2 = time2 + dayscy
./pkg/fizhi/fizhi_clockstuff.F 507 INTERP_TIME 
      fac1  = (time2-time00)/(time2-time1)
./pkg/fizhi/fizhi_clockstuff.F 508 INTERP_TIME 
      fac2  = (time00-time1)/(time2-time1)
./pkg/chronos/chronos.F 405 INTERP_TIME 
      _RL time, time1, time2
./pkg/chronos/chronos.F 455 INTERP_TIME 
      time1 = DAY1 + MNDY(MONTH1,MOD(YEAR1,4)+1) + float(sec1)/86400.
./pkg/chronos/chronos.F 458 INTERP_TIME 
      if( time .lt.time1 ) time  = time  + dayscy
./pkg/chronos/chronos.F 459 INTERP_TIME 
      if( time2.lt.time1 ) time2 = time2 + dayscy
./pkg/chronos/chronos.F 461 INTERP_TIME 
      fac1  = (time2-time)/(time2-time1)
./pkg/chronos/chronos.F 462 INTERP_TIME 
      fac2  = (time-time1)/(time2-time1)