Symbol Description Uses
mydate model date of current time step 80


File Line number Procedure Code
./pkg/exf/exf_getffieldrec.F 158 EXF_GETFFIELDREC 
         CALL CAL_GETDATE( myIter, myTime, mydate, myThid )
./pkg/exf/exf_getffieldrec.F 159 EXF_GETFFIELDREC 
         year0            = INT(mydate(1)/10000.)
./pkg/exf/exf_getffieldrec.F 162 EXF_GETFFIELDREC 
         yearStartDate(3) = mydate(3)
./pkg/exf/exf_getffieldrec.F 163 EXF_GETFFIELDREC 
         yearStartDate(4) = mydate(4)
./pkg/exf/exf_getffieldrec.F 164 EXF_GETFFIELDREC 
         CALL CAL_TIMEPASSED(yearStartDate,mydate,difftime,myThid)
./pkg/exf/exf_getffieldrec.F 82 EXF_GETFFIELDREC 
      INTEGER mydate(4)
./pkg/exf/exf_zenithangle.F 60 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 83 EXF_ZENITHANGLE 
       yearStartDate(3) = mydate(3)
./pkg/exf/exf_zenithangle.F 84 EXF_ZENITHANGLE 
       yearStartDate(4) = mydate(4)
./pkg/exf/exf_zenithangle.F 85 EXF_ZENITHANGLE 
       CALL CAL_TIMEPASSED(yearStartDate,mydate,difftime,myThid)
./pkg/exf/exf_zenithangle.F 90 EXF_ZENITHANGLE 
       dayStartDate(1) = mydate(1)
./pkg/exf/exf_zenithangle.F 92 EXF_ZENITHANGLE 
       dayStartDate(3) = mydate(3)
./pkg/exf/exf_zenithangle.F 93 EXF_ZENITHANGLE 
       dayStartDate(4) = mydate(4)
./pkg/exf/exf_zenithangle.F 94 EXF_ZENITHANGLE 
       CALL CAL_TIMEPASSED(dayStartDate,mydate,difftime,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 41 CAL_GETDATE 
      INTEGER mydate(4)
./pkg/cal/cal_getdate.F 53 CAL_GETDATE 
        mydate(1) = startdate_1
./pkg/cal/cal_getdate.F 54 CAL_GETDATE 
        mydate(2) = startdate_2
./pkg/cal/cal_getdate.F 55 CAL_GETDATE 
        mydate(3) = 1
./pkg/cal/cal_getdate.F 56 CAL_GETDATE 
        mydate(4) = 1
./pkg/cal/cal_getdate.F 72 CAL_GETDATE 
        mydate(1) = modelStartDate(1)
./pkg/cal/cal_getdate.F 73 CAL_GETDATE 
        mydate(2) = modelStartDate(2)
./pkg/cal/cal_getdate.F 74 CAL_GETDATE 
        mydate(3) = modelStartDate(3)
./pkg/cal/cal_getdate.F 75 CAL_GETDATE 
        mydate(4) = modelStartDate(4)
./pkg/cal/cal_getdate.F 91 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 130 CTRL_GET_GEN_REC 
       call CAL_GETDATE( myiter, mytime, mydate, mythid )
./pkg/ctrl/ctrl_get_gen_rec.F 140 CTRL_GET_GEN_REC 
       call CAL_TIMEPASSED( fldstartdate, mydate, difftime,
./pkg/ctrl/ctrl_get_gen_rec.F 175 CTRL_GET_GEN_REC 
       call CAL_TIMEPASSED( flddate, mydate, difftime, mythid )
./pkg/ctrl/ctrl_get_gen_rec.F 60 CTRL_GET_GEN_REC 
      integer mydate(4)
./pkg/ctrl/ctrl_getrec.F 324 CTRL_GETREC 
      call CAL_GETDATE( myiter, mytime, mydate, mythid )
./pkg/ctrl/ctrl_getrec.F 327 CTRL_GETREC 
      call CAL_TIMEPASSED( fldstartdate, mydate, difftime,
./pkg/ctrl/ctrl_getrec.F 362 CTRL_GETREC 
      call CAL_TIMEPASSED( flddate, mydate, difftime, mythid )
./pkg/ctrl/ctrl_getrec.F 68 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)