Symbol Description Uses
mi 32


File Line number Procedure Code
./pkg/runclock/runclock_gettime.F 25 RUNCLOCK_GETTIME 
      INTEGER yr,mo,dy,hr,mi,sc
./pkg/runclock/runclock_gettime.F 52 RUNCLOCK_GETTIME 
      mi=DAT_VALS(6)
./pkg/runclock/runclock_gettime.F 57 RUNCLOCK_GETTIME 
      tins=(((((yr-05)*12+mo)*30.+dy)*24.+hr)*60.+mi)*60.+sc+0.001*ms
./pkg/runclock/runclock_gettime.F 63 RUNCLOCK_GETTIME 
       mi=mod(tm,60)
./pkg/runclock/runclock_gettime.F 64 RUNCLOCK_GETTIME 
      tm=(tm-mi)/60
./pkg/runclock/runclock_gettime.F 9 RUNCLOCK_GETTIME 
      SUBROUTINE RUNCLOCK_GETTIME( yr,mo,dy,hr,mi,sc,tins )
./pkg/cal/cal_addtime.F 140 CAL_ADDTIME 
         mi     = 0
./pkg/cal/cal_addtime.F 145 CAL_ADDTIME 
         call CAL_CONVDATE( date,yi,mi,di,si,li,wi,myThid )
./pkg/cal/cal_addtime.F 171 CAL_ADDTIME 
               if ( mi.eq.2 .and. di.eq.29 .and. ndays_left.gt.1 ) then
./pkg/cal/cal_addtime.F 172 CAL_ADDTIME 
                  mi = 3
./pkg/cal/cal_addtime.F 180 CAL_ADDTIME 
            if ((mi.gt.2.and.cal_IsLeap(yi+1,myThid).eq.2).or.
./pkg/cal/cal_addtime.F 181 CAL_ADDTIME 
     &           (mi.le.2.and.cal_IsLeap(yi,myThid).eq.2) )
./pkg/cal/cal_addtime.F 187 CAL_ADDTIME 
               if ((mi.gt.2.and.cal_IsLeap(yi+1,myThid).eq.2).or.
./pkg/cal/cal_addtime.F 188 CAL_ADDTIME 
     &              (mi.le.2.and.cal_IsLeap(yi,myThid).eq.2) )
./pkg/cal/cal_addtime.F 196 CAL_ADDTIME 
               if (di .gt. ndaymonth(mi,li)) then
./pkg/cal/cal_addtime.F 198 CAL_ADDTIME 
                  mi = mi + 1
./pkg/cal/cal_addtime.F 200 CAL_ADDTIME 
               switch = (mi-1)/nmonthyear
./pkg/cal/cal_addtime.F 202 CAL_ADDTIME 
               mi = mod(mi-1,nmonthyear)+1
./pkg/cal/cal_addtime.F 218 CAL_ADDTIME 
                  mi = mod(mi+10,nmonthyear)+1
./pkg/cal/cal_addtime.F 219 CAL_ADDTIME 
                  switch = mi/nmonthyear
./pkg/cal/cal_addtime.F 222 CAL_ADDTIME 
                  di = ndaymonth(mi,li)
./pkg/cal/cal_addtime.F 230 CAL_ADDTIME 
      added(1) = yi*10000 + mi*100 + di
./pkg/cal/cal_addtime.F 56 CAL_ADDTIME 
      INTEGER yi,mi,di,si,li,wi
./pkg/cal/cal_timepassed.F 114 CAL_TIMEPASSED 
            call CAL_CONVDATE(   finaldate,yi,mi,di,si,li,wi,myThid )
./pkg/cal/cal_timepassed.F 117 CAL_TIMEPASSED 
            call CAL_CONVDATE( initialdate,yi,mi,di,si,li,wi,myThid )
./pkg/cal/cal_timepassed.F 135 CAL_TIMEPASSED 
            do imon = 1,mod(mi-1,12)
./pkg/cal/cal_timepassed.F 156 CAL_TIMEPASSED 
     &                cdi - ndaymonth(mi,li)
./pkg/cal/cal_timepassed.F 162 CAL_TIMEPASSED 
              csi   = ndaymonth(mi,li)*secondsperday - csi
./pkg/cal/cal_timepassed.F 49 CAL_TIMEPASSED 
      INTEGER mi,mf