Symbol Description Uses
mydate 58


File Line number Procedure Code
./pkg/ecco/cost_averagesflags.F 102 COST_AVERAGESFLAGS 
      call CAL_ADDTIME( mydate, timediff, prevdate, mythid )
./pkg/ecco/cost_averagesflags.F 111 COST_AVERAGESFLAGS 
      equal = cal_CompDates(modelstartdate,mydate,mythid)
./pkg/ecco/cost_averagesflags.F 121 COST_AVERAGESFLAGS 
      equal = cal_CompDates(modelenddate,mydate,mythid)
./pkg/ecco/cost_averagesflags.F 129 COST_AVERAGESFLAGS 
      mydateday   = mod(mydate(1),100)
./pkg/ecco/cost_averagesflags.F 138 COST_AVERAGESFLAGS 
      mydateday   = mod(mydate(1),100)
./pkg/ecco/cost_averagesflags.F 158 COST_AVERAGESFLAGS 
        if ( mydate(1) .eq. modelstartdate(1) ) then
./pkg/ecco/cost_averagesflags.F 162 COST_AVERAGESFLAGS 
          targetdate(1) = mydate(1)
./pkg/ecco/cost_averagesflags.F 164 COST_AVERAGESFLAGS 
          targetdate(3) = mydate(3)
./pkg/ecco/cost_averagesflags.F 165 COST_AVERAGESFLAGS 
          targetdate(4) = mydate(4)
./pkg/ecco/cost_averagesflags.F 177 COST_AVERAGESFLAGS 
     &    cal_NumInts( targetdate, mydate, timediff, mythid ) + 1
./pkg/ecco/cost_averagesflags.F 183 COST_AVERAGESFLAGS 
      mydatemonth   = mod(mydate(1)/100,100)
./pkg/ecco/cost_averagesflags.F 192 COST_AVERAGESFLAGS 
      mydatemonth   = mod(mydate(1)/100,100)
./pkg/ecco/cost_averagesflags.F 212 COST_AVERAGESFLAGS 
        if ( (mydate(1)/100)*100 .eq. (modelstartdate(1)/100)*100 ) then
./pkg/ecco/cost_averagesflags.F 216 COST_AVERAGESFLAGS 
          targetdate1 = (mydate(1)/100)*100+1
./pkg/ecco/cost_averagesflags.F 220 COST_AVERAGESFLAGS 
          if ( mydate(1)/10000 .eq. modelstartdate(1)/10000 ) then
./pkg/ecco/cost_averagesflags.F 221 COST_AVERAGESFLAGS 
            monrec = mod(         mydate(1)/100, 100 )
./pkg/ecco/cost_averagesflags.F 224 COST_AVERAGESFLAGS 
            monrec = mod( mydate(1)/100, 100 )
./pkg/ecco/cost_averagesflags.F 226 COST_AVERAGESFLAGS 
     &             + ( mydate(1)/10000 - modelstartdate(1)/10000 - 1)*
./pkg/ecco/cost_averagesflags.F 233 COST_AVERAGESFLAGS 
     &    cal_NumInts( targetdate, mydate, timediff, mythid ) + 1
./pkg/ecco/cost_averagesflags.F 70 COST_AVERAGESFLAGS 
      integer mydate(4)
./pkg/ecco/cost_averagesflags.F 98 COST_AVERAGESFLAGS 
      call CAL_GETDATE( myiter,   mytime,           mydate,   mythid )
./pkg/ecco/the_main_loop.F 150 THE_MAIN_LOOP 
      integer mydate(4)
./pkg/ecco/the_main_loop.F 197 THE_MAIN_LOOP 
      call CAL_TIMESTAMP( myiter, mytime, mydate, mythid )
./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_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_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,
./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/ctrl/ctrl_getrec.F 201 CTRL_GETREC 
      call CAL_GETDATE( myiter, mytime, mydate, mythid )
./pkg/ctrl/ctrl_getrec.F 204 CTRL_GETREC 
      call CAL_TIMEPASSED( fldstartdate, mydate, difftime,
./pkg/ctrl/ctrl_getrec.F 239 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/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)