Symbol Description Uses
middate 92



File Line number Procedure Code
./pkg/seaice/seaice_cost_concentration.F 103 SEAICE_COST_CONCENTRATION
      integer middate(4)
./pkg/seaice/seaice_cost_concentration.F 192 SEAICE_COST_CONCENTRATION
         middate(1) = smrareastartdate(1)
./pkg/seaice/seaice_cost_concentration.F 194 SEAICE_COST_CONCENTRATION
         middate(1) = yday*10000+100+1
./pkg/seaice/seaice_cost_concentration.F 196 SEAICE_COST_CONCENTRATION
      middate(2) = 0
./pkg/seaice/seaice_cost_concentration.F 197 SEAICE_COST_CONCENTRATION
      middate(3) = modelstartdate(3)
./pkg/seaice/seaice_cost_concentration.F 198 SEAICE_COST_CONCENTRATION
      middate(4) = modelstartdate(4)
./pkg/seaice/seaice_cost_concentration.F 201 SEAICE_COST_CONCENTRATION
      call CAL_TIMEPASSED( middate, daydate, difftime, mythid )
./pkg/seaice/seaice_cost_concentration.F 207 SEAICE_COST_CONCENTRATION
      print *,'middate(1,2)     ',middate(1),middate(2)
./pkg/seaice/seaice_cost_concentration.F 208 SEAICE_COST_CONCENTRATION
      print *,'middate(3,4)     ', middate(3),middate(4)
./pkg/seaice/seaice_cost_sss.F 104 SEAICE_COST_SSS
      integer middate(4)
./pkg/seaice/seaice_cost_sss.F 210 SEAICE_COST_SSS
         middate(1) = smrareastartdate(1)
./pkg/seaice/seaice_cost_sss.F 212 SEAICE_COST_SSS
         middate(1) = yday*10000+100+1
./pkg/seaice/seaice_cost_sss.F 214 SEAICE_COST_SSS
      middate(2) = 0
./pkg/seaice/seaice_cost_sss.F 215 SEAICE_COST_SSS
      middate(3) = modelstartdate(3)
./pkg/seaice/seaice_cost_sss.F 216 SEAICE_COST_SSS
      middate(4) = modelstartdate(4)
./pkg/seaice/seaice_cost_sss.F 219 SEAICE_COST_SSS
      call CAL_TIMEPASSED( middate, daydate, difftime, mythid )
./pkg/seaice/seaice_cost_sss.F 225 SEAICE_COST_SSS
      print *,'middate(1,2)     ',middate(1),middate(2)
./pkg/seaice/seaice_cost_sss.F 226 SEAICE_COST_SSS
      print *,'middate(3,4)     ', middate(3),middate(4)
./pkg/seaice/seaice_cost_sst.F 102 SEAICE_COST_SST
      integer middate(4)
./pkg/seaice/seaice_cost_sst.F 205 SEAICE_COST_SST
         middate(1) = smrareastartdate(1)
./pkg/seaice/seaice_cost_sst.F 207 SEAICE_COST_SST
         middate(1) = yday*10000+100+1
./pkg/seaice/seaice_cost_sst.F 209 SEAICE_COST_SST
      middate(2) = 0
./pkg/seaice/seaice_cost_sst.F 210 SEAICE_COST_SST
      middate(3) = modelstartdate(3)
./pkg/seaice/seaice_cost_sst.F 211 SEAICE_COST_SST
      middate(4) = modelstartdate(4)
./pkg/seaice/seaice_cost_sst.F 214 SEAICE_COST_SST
      call CAL_TIMEPASSED( middate, daydate, difftime, mythid )
./pkg/seaice/seaice_cost_sst.F 220 SEAICE_COST_SST
      print *,'middate(1,2)     ',middate(1),middate(2)
./pkg/seaice/seaice_cost_sst.F 221 SEAICE_COST_SST
      print *,'middate(3,4)     ', middate(3),middate(4)
./pkg/cal/cal_getmonthsrec.F 115 CAL_GETMONTHSREC
      call CAL_ADDTIME( startofmonth, midtime, middate, mythid )
./pkg/cal/cal_getmonthsrec.F 156 CAL_GETMONTHSREC
        middate1(1) = middate(1)
./pkg/cal/cal_getmonthsrec.F 157 CAL_GETMONTHSREC
        middate1(2) = middate(2)
./pkg/cal/cal_getmonthsrec.F 158 CAL_GETMONTHSREC
        middate1(3) = middate(3)
./pkg/cal/cal_getmonthsrec.F 159 CAL_GETMONTHSREC
        middate1(4) = middate(4)
./pkg/cal/cal_getmonthsrec.F 171 CAL_GETMONTHSREC
        middate0(1) = middate(1)
./pkg/cal/cal_getmonthsrec.F 172 CAL_GETMONTHSREC
        middate0(2) = middate(2)
./pkg/cal/cal_getmonthsrec.F 173 CAL_GETMONTHSREC
        middate0(3) = middate(3)
./pkg/cal/cal_getmonthsrec.F 174 CAL_GETMONTHSREC
        middate0(4) = middate(4)
./pkg/cal/cal_getmonthsrec.F 53 CAL_GETMONTHSREC
      integer middate(4)
./pkg/ecco/cost_gencost_sstv4.F 175 COST_GENCOST_SSTV4
                middate(1) = modelstartdate(1)
./pkg/ecco/cost_gencost_sstv4.F 177 COST_GENCOST_SSTV4
                middate(1) = yday*10000+100+1
./pkg/ecco/cost_gencost_sstv4.F 179 COST_GENCOST_SSTV4
             middate(2) = 0
./pkg/ecco/cost_gencost_sstv4.F 180 COST_GENCOST_SSTV4
             middate(3) = modelstartdate(3)
./pkg/ecco/cost_gencost_sstv4.F 181 COST_GENCOST_SSTV4
             middate(4) = modelstartdate(4)
./pkg/ecco/cost_gencost_sstv4.F 182 COST_GENCOST_SSTV4
             call CAL_TIMEPASSED( middate, daydate, difftime, mythid )
./pkg/ecco/cost_gencost_sstv4.F 313 COST_GENCOST_SSTV4
                middate(1) = modelstartdate(1)
./pkg/ecco/cost_gencost_sstv4.F 315 COST_GENCOST_SSTV4
                middate(1) = yday*10000+100+1
./pkg/ecco/cost_gencost_sstv4.F 317 COST_GENCOST_SSTV4
             middate(2) = 0
./pkg/ecco/cost_gencost_sstv4.F 318 COST_GENCOST_SSTV4
             middate(3) = modelstartdate(3)
./pkg/ecco/cost_gencost_sstv4.F 319 COST_GENCOST_SSTV4
             middate(4) = modelstartdate(4)
./pkg/ecco/cost_gencost_sstv4.F 320 COST_GENCOST_SSTV4
             call CAL_TIMEPASSED( middate, daydate, difftime, mythid )
./pkg/ecco/cost_gencost_sstv4.F 91 COST_GENCOST_SSTV4
      integer middate(4)
./pkg/ecco/cost_generic.F 107 COST_GENERIC
      integer middate(4)
./pkg/ecco/cost_generic.F 205 COST_GENERIC
              middate(1) = modelstartdate(1)
./pkg/ecco/cost_generic.F 207 COST_GENERIC
              middate(1) = yday*10000+100+1
./pkg/ecco/cost_generic.F 209 COST_GENERIC
           middate(2) = 0
./pkg/ecco/cost_generic.F 210 COST_GENERIC
           middate(3) = modelstartdate(3)
./pkg/ecco/cost_generic.F 211 COST_GENERIC
           middate(4) = modelstartdate(4)
./pkg/ecco/cost_generic.F 212 COST_GENERIC
           call CAL_TIMEPASSED( middate, daydate, difftime, mythid )
./pkg/ecco/cost_readers.F 100 COST_READERS
         middate(1) = yday*10000+100+1
./pkg/ecco/cost_readers.F 102 COST_READERS
      middate(2) = 0
./pkg/ecco/cost_readers.F 103 COST_READERS
      middate(3) = modelstartdate(3)
./pkg/ecco/cost_readers.F 104 COST_READERS
      middate(4) = modelstartdate(4)
./pkg/ecco/cost_readers.F 106 COST_READERS
      call CAL_TIMEPASSED( middate, daydate, difftime, mythid )
./pkg/ecco/cost_readers.F 54 COST_READERS
      integer middate(4)
./pkg/ecco/cost_readers.F 98 COST_READERS
         middate(1) = modelstartdate(1)
./pkg/ecco/cost_readgfo.F 100 COST_READGFO
         middate(1) = yday*10000+100+1
./pkg/ecco/cost_readgfo.F 102 COST_READGFO
      middate(2) = 0
./pkg/ecco/cost_readgfo.F 103 COST_READGFO
      middate(3) = modelstartdate(3)
./pkg/ecco/cost_readgfo.F 104 COST_READGFO
      middate(4) = modelstartdate(4)
./pkg/ecco/cost_readgfo.F 106 COST_READGFO
      call CAL_TIMEPASSED( middate, daydate, difftime, mythid )
./pkg/ecco/cost_readgfo.F 54 COST_READGFO
      integer middate(4)
./pkg/ecco/cost_readgfo.F 98 COST_READGFO
         middate(1) = modelstartdate(1)
./pkg/ecco/cost_readtopex.F 100 COST_READTOPEX
         middate(1) = yday*10000+100+1
./pkg/ecco/cost_readtopex.F 102 COST_READTOPEX
      middate(2) = 0
./pkg/ecco/cost_readtopex.F 103 COST_READTOPEX
      middate(3) = modelstartdate(3)
./pkg/ecco/cost_readtopex.F 104 COST_READTOPEX
      middate(4) = modelstartdate(4)
./pkg/ecco/cost_readtopex.F 106 COST_READTOPEX
      call CAL_TIMEPASSED( middate, daydate, difftime, mythid )
./pkg/ecco/cost_readtopex.F 54 COST_READTOPEX
      integer middate(4)
./pkg/ecco/cost_readtopex.F 98 COST_READTOPEX
         middate(1) = modelstartdate(1)
./pkg/ecco/cost_sla_read.F 103 COST_SLA_READ
         middate(1) = modelstartdate(1)
./pkg/ecco/cost_sla_read.F 105 COST_SLA_READ
         middate(1) = yday*10000+100+1
./pkg/ecco/cost_sla_read.F 107 COST_SLA_READ
      middate(2) = 0
./pkg/ecco/cost_sla_read.F 108 COST_SLA_READ
      middate(3) = modelstartdate(3)
./pkg/ecco/cost_sla_read.F 109 COST_SLA_READ
      middate(4) = modelstartdate(4)
./pkg/ecco/cost_sla_read.F 111 COST_SLA_READ
      call CAL_TIMEPASSED( middate, daydate, difftime, mythid )
./pkg/ecco/cost_sla_read.F 51 COST_SLA_READ
      integer middate(4)
./pkg/ecco/cost_sla_read_yd.F 52 COST_SLA_READ_YD
      integer middate(4)