Symbol Description Uses
mydate 66


File Line number Procedure Code
./pkg/exf/exf_getffieldrec.F 205 EXF_GETFFIELDREC 
        call CAL_GETDATE( myiter, mytime, mydate, mythid )
./pkg/exf/exf_getffieldrec.F 206 EXF_GETFFIELDREC 
        call CAL_CONVDATE( mydate,yf,mf,df,sf,lf,wf,mythid )
./pkg/exf/exf_getffieldrec.F 211 EXF_GETFFIELDREC 
     &          mydate(2) .LT. date_array(2) ) then
./pkg/exf/exf_getffieldrec.F 221 EXF_GETFFIELDREC 
     &          mydate(2) .EQ. date_array(2) ) then
./pkg/exf/exf_getffieldrec.F 234 EXF_GETFFIELDREC 
        call CAL_TIMEPASSED( startinyear, mydate, difftime, mythid )
./pkg/exf/exf_getffieldrec.F 76 EXF_GETFFIELDREC 
      integer mydate(4)
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F 152 THE_MAIN_LOOP 
      integer mydate(4)
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F 199 THE_MAIN_LOOP 
      call CAL_TIMESTAMP( myiter, mytime, mydate, mythid )
./pkg/ecco/the_main_loop.F 176 THE_MAIN_LOOP 
      integer mydate(4)
./pkg/ecco/the_main_loop.F 262 THE_MAIN_LOOP 
      call CAL_TIMESTAMP( myiter, mytime, mydate, mythid )
./pkg/ecco/cost_averagesflags.F 111 COST_AVERAGESFLAGS 
      call CAL_GETDATE( myiter,   mytime,           mydate,   mythid )
./pkg/ecco/cost_averagesflags.F 115 COST_AVERAGESFLAGS 
      call CAL_ADDTIME( mydate, timediff, prevdate, mythid )
./pkg/ecco/cost_averagesflags.F 124 COST_AVERAGESFLAGS 
      equal = cal_CompDates(modelstartdate,mydate,mythid)
./pkg/ecco/cost_averagesflags.F 135 COST_AVERAGESFLAGS 
      equal = cal_CompDates(modelenddate,mydate,mythid)
./pkg/ecco/cost_averagesflags.F 143 COST_AVERAGESFLAGS 
      mydateday   = mod(mydate(1),100)
./pkg/ecco/cost_averagesflags.F 152 COST_AVERAGESFLAGS 
      mydateday   = mod(mydate(1),100)
./pkg/ecco/cost_averagesflags.F 172 COST_AVERAGESFLAGS 
        if ( mydate(1) .eq. modelstartdate(1) ) then
./pkg/ecco/cost_averagesflags.F 176 COST_AVERAGESFLAGS 
          targetdate(1) = mydate(1)
./pkg/ecco/cost_averagesflags.F 178 COST_AVERAGESFLAGS 
          targetdate(3) = mydate(3)
./pkg/ecco/cost_averagesflags.F 179 COST_AVERAGESFLAGS 
          targetdate(4) = mydate(4)
./pkg/ecco/cost_averagesflags.F 191 COST_AVERAGESFLAGS 
     &    cal_NumInts( targetdate, mydate, timediff, mythid ) + 1
./pkg/ecco/cost_averagesflags.F 197 COST_AVERAGESFLAGS 
      mydatemonth   = mod(mydate(1)/100,100)
./pkg/ecco/cost_averagesflags.F 206 COST_AVERAGESFLAGS 
      mydatemonth   = mod(mydate(1)/100,100)
./pkg/ecco/cost_averagesflags.F 226 COST_AVERAGESFLAGS 
        if ( (mydate(1)/100)*100 .eq. (modelstartdate(1)/100)*100 ) then
./pkg/ecco/cost_averagesflags.F 230 COST_AVERAGESFLAGS 
          targetdate1 = (mydate(1)/100)*100+1
./pkg/ecco/cost_averagesflags.F 234 COST_AVERAGESFLAGS 
          if ( mydate(1)/10000 .eq. modelstartdate(1)/10000 ) then
./pkg/ecco/cost_averagesflags.F 235 COST_AVERAGESFLAGS 
            monrec = mod(         mydate(1)/100, 100 )
./pkg/ecco/cost_averagesflags.F 238 COST_AVERAGESFLAGS 
            monrec = mod( mydate(1)/100, 100 )
./pkg/ecco/cost_averagesflags.F 240 COST_AVERAGESFLAGS 
     &             + ( mydate(1)/10000 - modelstartdate(1)/10000 - 1)*
./pkg/ecco/cost_averagesflags.F 247 COST_AVERAGESFLAGS 
     &    cal_NumInts( targetdate, mydate, timediff, mythid ) + 1
./pkg/ecco/cost_averagesflags.F 253 COST_AVERAGESFLAGS 
      mydateyear   = int(mydate(1)/10000)
./pkg/ecco/cost_averagesflags.F 262 COST_AVERAGESFLAGS 
      mydateyear   = int(mydate(1)/10000)
./pkg/ecco/cost_averagesflags.F 282 COST_AVERAGESFLAGS 
        if ( (mydate(1)/10000)*100 .eq.
./pkg/ecco/cost_averagesflags.F 287 COST_AVERAGESFLAGS 
          targetdate1 = (mydate(1)/10000)*100+1
./pkg/ecco/cost_averagesflags.F 291 COST_AVERAGESFLAGS 
          yearrec  = mydate(1)/10000 - modelstartdate(1)/10000 + 1
./pkg/ecco/cost_averagesflags.F 297 COST_AVERAGESFLAGS 
     &    cal_NumInts( targetdate, mydate, timediff, mythid ) + 1
./pkg/ecco/cost_averagesflags.F 80 COST_AVERAGESFLAGS 
      integer mydate(4)
./pkg/ctrl/ctrl_getrec.F 241 CTRL_GETREC 
      call CAL_GETDATE( myiter, mytime, mydate, mythid )
./pkg/ctrl/ctrl_getrec.F 244 CTRL_GETREC 
      call CAL_TIMEPASSED( fldstartdate, mydate, difftime,
./pkg/ctrl/ctrl_getrec.F 279 CTRL_GETREC 
      call CAL_TIMEPASSED( flddate, mydate, difftime, mythid )
./pkg/ctrl/ctrl_getrec.F 69 CTRL_GETREC 
      integer mydate(4)
./pkg/ctrl/ctrl_get_gen_rec.F 103 CTRL_GET_GEN_REC 
      call CAL_GETDATE( myiter, mytime, mydate, mythid )
./pkg/ctrl/ctrl_get_gen_rec.F 106 CTRL_GET_GEN_REC 
      call CAL_TIMEPASSED( fldstartdate, mydate, difftime,
./pkg/ctrl/ctrl_get_gen_rec.F 139 CTRL_GET_GEN_REC 
      call CAL_TIMEPASSED( flddate, mydate, difftime, mythid )
./pkg/ctrl/ctrl_get_gen_rec.F 61 CTRL_GET_GEN_REC 
      integer mydate(4)
./pkg/cal/cal_dayspermonth.F 52 CAL_DAYSPERMONTH 
      integer mydate(4)
./pkg/cal/cal_dayspermonth.F 64 CAL_DAYSPERMONTH 
      call CAL_GETDATE( myiter, mytime, mydate, mythid )
./pkg/cal/cal_dayspermonth.F 66 CAL_DAYSPERMONTH 
      myday      = mod(mydate(1),100)
./pkg/cal/cal_dayspermonth.F 67 CAL_DAYSPERMONTH 
      mymonth    = mod(mydate(1)/100,100)
./pkg/cal/cal_dayspermonth.F 68 CAL_DAYSPERMONTH 
      myyear     = mydate(1)/10000
./pkg/cal/cal_dayspermonth.F 69 CAL_DAYSPERMONTH 
      present    = mydate(1)/100
./pkg/cal/cal_dayspermonth.F 75 CAL_DAYSPERMONTH 
        ndays = ndaymonth(mymonth,mydate(3)) - myday + 1
./pkg/cal/cal_dayspermonth.F 80 CAL_DAYSPERMONTH 
          ndays = ndaymonth(mymonth,mydate(3)) - myday + 1
./pkg/cal/cal_monthsperyear.F 53 CAL_MONTHSPERYEAR 
      integer mydate(4)
./pkg/cal/cal_monthsperyear.F 59 CAL_MONTHSPERYEAR 
      call CAL_GETDATE( myiter, mytime, mydate, mythid )
./pkg/cal/cal_monthsperyear.F 61 CAL_MONTHSPERYEAR 
      present = mydate(1)/10000
./pkg/cal/cal_monthsperyear.F 65 CAL_MONTHSPERYEAR 
        present = mod(mydate(1)/100,100)
./pkg/cal/cal_monthsperyear.F 69 CAL_MONTHSPERYEAR 
        present = mod(mydate(1)/100,100)
./pkg/cal/cal_timestamp.F 38 CAL_TIMESTAMP 
      integer mydate(4)
./pkg/cal/cal_timestamp.F 49 CAL_TIMESTAMP 
      call CAL_GETDATE( myiter, mytime, mydate, mythid )
./pkg/cal/cal_timestamp.F 64 CAL_TIMESTAMP 
     &  '                date = ',mydate(1),mydate(2)
./pkg/cal/cal_timestamp.F 9 CAL_TIMESTAMP 
     O                          mydate,
./pkg/cal/cal_getdate.F 46 CAL_GETDATE 
      integer mydate(4)
./pkg/cal/cal_getdate.F 67 CAL_GETDATE 
      call CAL_ADDTIME( modelstartdate, workdate, mydate, mythid )
./pkg/cal/cal_getdate.F 9 CAL_GETDATE 
     O                        mydate,