Symbol Description Uses
mydate model date of current time step 76


File Line number Procedure Code
./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 198 THE_MAIN_LOOP 
      call CAL_TIMESTAMP( myiter, mytime, mydate, mythid )
./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_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/ctrl/ctrl_get_gen_rec.F 107 CTRL_GET_GEN_REC 
      call CAL_GETDATE( myiter, mytime, mydate, mythid )
./pkg/ctrl/ctrl_get_gen_rec.F 117 CTRL_GET_GEN_REC 
      call CAL_TIMEPASSED( fldstartdate, mydate, difftime,
./pkg/ctrl/ctrl_get_gen_rec.F 152 CTRL_GET_GEN_REC 
      call CAL_TIMEPASSED( flddate, mydate, difftime, mythid )
./pkg/ctrl/ctrl_get_gen_rec.F 63 CTRL_GET_GEN_REC 
      integer mydate(4)
./pkg/ctrl/ctrl_getrec.F 312 CTRL_GETREC 
      call CAL_GETDATE( myiter, mytime, mydate, mythid )
./pkg/ctrl/ctrl_getrec.F 315 CTRL_GETREC 
      call CAL_TIMEPASSED( fldstartdate, mydate, difftime,
./pkg/ctrl/ctrl_getrec.F 350 CTRL_GETREC 
      call CAL_TIMEPASSED( flddate, mydate, difftime, mythid )
./pkg/ctrl/ctrl_getrec.F 70 CTRL_GETREC 
      integer mydate(4)
./pkg/ecco/cost_averagesflags.F 112 COST_AVERAGESFLAGS 
      call CAL_GETDATE( myiter,   mytime,           mydate,   mythid )
./pkg/ecco/cost_averagesflags.F 116 COST_AVERAGESFLAGS 
      call CAL_ADDTIME( mydate, timediff, prevdate, mythid )
./pkg/ecco/cost_averagesflags.F 125 COST_AVERAGESFLAGS 
      equal = cal_CompDates(modelstartdate,mydate,mythid)
./pkg/ecco/cost_averagesflags.F 136 COST_AVERAGESFLAGS 
      equal = cal_CompDates(modelenddate,mydate,mythid)
./pkg/ecco/cost_averagesflags.F 144 COST_AVERAGESFLAGS 
      mydateday   = mod(mydate(1),100)
./pkg/ecco/cost_averagesflags.F 153 COST_AVERAGESFLAGS 
      mydateday   = mod(mydate(1),100)
./pkg/ecco/cost_averagesflags.F 173 COST_AVERAGESFLAGS 
        if ( mydate(1) .eq. modelstartdate(1) ) then
./pkg/ecco/cost_averagesflags.F 177 COST_AVERAGESFLAGS 
          targetdate(1) = mydate(1)
./pkg/ecco/cost_averagesflags.F 179 COST_AVERAGESFLAGS 
          targetdate(3) = mydate(3)
./pkg/ecco/cost_averagesflags.F 180 COST_AVERAGESFLAGS 
          targetdate(4) = mydate(4)
./pkg/ecco/cost_averagesflags.F 192 COST_AVERAGESFLAGS 
     &    cal_NumInts( targetdate, mydate, timediff, mythid ) + 1
./pkg/ecco/cost_averagesflags.F 198 COST_AVERAGESFLAGS 
      mydatemonth   = mod(mydate(1)/100,100)
./pkg/ecco/cost_averagesflags.F 207 COST_AVERAGESFLAGS 
      mydatemonth   = mod(mydate(1)/100,100)
./pkg/ecco/cost_averagesflags.F 227 COST_AVERAGESFLAGS 
        if ( (mydate(1)/100)*100 .eq. (modelstartdate(1)/100)*100 ) then
./pkg/ecco/cost_averagesflags.F 231 COST_AVERAGESFLAGS 
          targetdate1 = (mydate(1)/100)*100+1
./pkg/ecco/cost_averagesflags.F 235 COST_AVERAGESFLAGS 
          if ( mydate(1)/10000 .eq. modelstartdate(1)/10000 ) then
./pkg/ecco/cost_averagesflags.F 236 COST_AVERAGESFLAGS 
            monrec = mod(         mydate(1)/100, 100 )
./pkg/ecco/cost_averagesflags.F 239 COST_AVERAGESFLAGS 
            monrec = mod( mydate(1)/100, 100 )
./pkg/ecco/cost_averagesflags.F 241 COST_AVERAGESFLAGS 
     &             + ( mydate(1)/10000 - modelstartdate(1)/10000 - 1)*
./pkg/ecco/cost_averagesflags.F 248 COST_AVERAGESFLAGS 
     &    cal_NumInts( targetdate, mydate, timediff, mythid ) + 1
./pkg/ecco/cost_averagesflags.F 254 COST_AVERAGESFLAGS 
      mydateyear   = int(mydate(1)/10000)
./pkg/ecco/cost_averagesflags.F 263 COST_AVERAGESFLAGS 
      mydateyear   = int(mydate(1)/10000)
./pkg/ecco/cost_averagesflags.F 283 COST_AVERAGESFLAGS 
        if (  int(mydate(1)/10000) .eq.
./pkg/ecco/cost_averagesflags.F 288 COST_AVERAGESFLAGS 
          targetdate1 = int(mydate(1)/10000)*10000+101
./pkg/ecco/cost_averagesflags.F 292 COST_AVERAGESFLAGS 
          yearrec  = mydate(1)/10000 - modelstartdate(1)/10000 + 1
./pkg/ecco/cost_averagesflags.F 298 COST_AVERAGESFLAGS 
     &    cal_NumInts( targetdate, mydate, timediff, mythid ) + 1
./pkg/ecco/cost_averagesflags.F 81 COST_AVERAGESFLAGS 
      integer mydate(4)
./pkg/ecco/the_main_loop.F 203 THE_MAIN_LOOP 
      integer mydate(4)
./pkg/ecco/the_main_loop.F 251 THE_MAIN_LOOP 
      call CAL_TIMESTAMP( myiter, mytime, mydate, mythid )
./pkg/exf/exf_getffieldrec.F 138 EXF_GETFFIELDREC 
       call CAL_GETDATE( myiter, mytime, mydate, mythid )
./pkg/exf/exf_getffieldrec.F 139 EXF_GETFFIELDREC 
       year0            = int(mydate(1)/10000.)
./pkg/exf/exf_getffieldrec.F 142 EXF_GETFFIELDREC 
       yearStartDate(3) = mydate(3)
./pkg/exf/exf_getffieldrec.F 143 EXF_GETFFIELDREC 
       yearStartDate(4) = mydate(4)
./pkg/exf/exf_getffieldrec.F 144 EXF_GETFFIELDREC 
       CALL CAL_TIMEPASSED(yearStartDate,mydate,difftime,myThid)
./pkg/exf/exf_getffieldrec.F 67 EXF_GETFFIELDREC 
      integer mydate(4)
./pkg/exf/exf_zenithangle.F 54 EXF_ZENITHANGLE 
      integer year0,mydate(4),difftime(4)
./pkg/exf/exf_zenithangle.F 75 EXF_ZENITHANGLE 
       call CAL_GETDATE( myiter, mytime, mydate, mythid )
./pkg/exf/exf_zenithangle.F 76 EXF_ZENITHANGLE 
       year0            = int(mydate(1)/10000.)
./pkg/exf/exf_zenithangle.F 79 EXF_ZENITHANGLE 
       yearStartDate(3) = mydate(3)
./pkg/exf/exf_zenithangle.F 80 EXF_ZENITHANGLE 
       yearStartDate(4) = mydate(4)
./pkg/exf/exf_zenithangle.F 81 EXF_ZENITHANGLE 
       CALL CAL_TIMEPASSED(yearStartDate,mydate,difftime,myThid)
./pkg/exf/exf_zenithangle.F 86 EXF_ZENITHANGLE 
       dayStartDate(1) = mydate(1)
./pkg/exf/exf_zenithangle.F 88 EXF_ZENITHANGLE 
       dayStartDate(3) = mydate(3)
./pkg/exf/exf_zenithangle.F 89 EXF_ZENITHANGLE 
       dayStartDate(4) = mydate(4)
./pkg/exf/exf_zenithangle.F 90 EXF_ZENITHANGLE 
       CALL CAL_TIMEPASSED(dayStartDate,mydate,difftime,myThid)