Symbol Description Uses
middate 66


File Line number Procedure Code
./pkg/seaice/seaice_cost_concentration.F 119 SEAICE_COST_CONCENTRATION 
      integer middate(4)
./pkg/seaice/seaice_cost_concentration.F 206 SEAICE_COST_CONCENTRATION 
         middate(1) = smrareastartdate(1)
./pkg/seaice/seaice_cost_concentration.F 208 SEAICE_COST_CONCENTRATION 
         middate(1) = yday*10000+100+1
./pkg/seaice/seaice_cost_concentration.F 210 SEAICE_COST_CONCENTRATION 
      middate(2) = 0
./pkg/seaice/seaice_cost_concentration.F 211 SEAICE_COST_CONCENTRATION 
      middate(3) = modelstartdate(3)
./pkg/seaice/seaice_cost_concentration.F 212 SEAICE_COST_CONCENTRATION 
      middate(4) = modelstartdate(4)
./pkg/seaice/seaice_cost_concentration.F 215 SEAICE_COST_CONCENTRATION 
      call CAL_TIMEPASSED( middate, daydate, difftime, mythid )
./pkg/seaice/seaice_cost_concentration.F 221 SEAICE_COST_CONCENTRATION 
      print *,'middate(1,2)     ',middate(1),middate(2)
./pkg/seaice/seaice_cost_concentration.F 222 SEAICE_COST_CONCENTRATION 
      print *,'middate(3,4)     ', middate(3),middate(4)
./pkg/seaice/seaice_cost_sss.F 117 SEAICE_COST_SSS 
      integer middate(4)
./pkg/seaice/seaice_cost_sss.F 221 SEAICE_COST_SSS 
         middate(1) = smrareastartdate(1)
./pkg/seaice/seaice_cost_sss.F 223 SEAICE_COST_SSS 
         middate(1) = yday*10000+100+1
./pkg/seaice/seaice_cost_sss.F 225 SEAICE_COST_SSS 
      middate(2) = 0
./pkg/seaice/seaice_cost_sss.F 226 SEAICE_COST_SSS 
      middate(3) = modelstartdate(3)
./pkg/seaice/seaice_cost_sss.F 227 SEAICE_COST_SSS 
      middate(4) = modelstartdate(4)
./pkg/seaice/seaice_cost_sss.F 230 SEAICE_COST_SSS 
      call CAL_TIMEPASSED( middate, daydate, difftime, mythid )
./pkg/seaice/seaice_cost_sss.F 236 SEAICE_COST_SSS 
      print *,'middate(1,2)     ',middate(1),middate(2)
./pkg/seaice/seaice_cost_sss.F 237 SEAICE_COST_SSS 
      print *,'middate(3,4)     ', middate(3),middate(4)
./pkg/seaice/seaice_cost_sst.F 115 SEAICE_COST_SST 
      integer middate(4)
./pkg/seaice/seaice_cost_sst.F 221 SEAICE_COST_SST 
         middate(1) = smrareastartdate(1)
./pkg/seaice/seaice_cost_sst.F 223 SEAICE_COST_SST 
         middate(1) = yday*10000+100+1
./pkg/seaice/seaice_cost_sst.F 225 SEAICE_COST_SST 
      middate(2) = 0
./pkg/seaice/seaice_cost_sst.F 226 SEAICE_COST_SST 
      middate(3) = modelstartdate(3)
./pkg/seaice/seaice_cost_sst.F 227 SEAICE_COST_SST 
      middate(4) = modelstartdate(4)
./pkg/seaice/seaice_cost_sst.F 230 SEAICE_COST_SST 
      call CAL_TIMEPASSED( middate, daydate, difftime, mythid )
./pkg/seaice/seaice_cost_sst.F 236 SEAICE_COST_SST 
      print *,'middate(1,2)     ',middate(1),middate(2)
./pkg/seaice/seaice_cost_sst.F 237 SEAICE_COST_SST 
      print *,'middate(3,4)     ', middate(3),middate(4)
./pkg/cal/cal_getmonthsrec.F 116 CAL_GETMONTHSREC 
      call CAL_ADDTIME( startofmonth, midtime, middate, mythid )
./pkg/cal/cal_getmonthsrec.F 155 CAL_GETMONTHSREC 
        middate1(1) = middate(1)
./pkg/cal/cal_getmonthsrec.F 156 CAL_GETMONTHSREC 
        middate1(2) = middate(2)
./pkg/cal/cal_getmonthsrec.F 157 CAL_GETMONTHSREC 
        middate1(3) = middate(3)
./pkg/cal/cal_getmonthsrec.F 158 CAL_GETMONTHSREC 
        middate1(4) = middate(4)
./pkg/cal/cal_getmonthsrec.F 170 CAL_GETMONTHSREC 
        middate0(1) = middate(1)
./pkg/cal/cal_getmonthsrec.F 171 CAL_GETMONTHSREC 
        middate0(2) = middate(2)
./pkg/cal/cal_getmonthsrec.F 172 CAL_GETMONTHSREC 
        middate0(3) = middate(3)
./pkg/cal/cal_getmonthsrec.F 173 CAL_GETMONTHSREC 
        middate0(4) = middate(4)
./pkg/cal/cal_getmonthsrec.F 53 CAL_GETMONTHSREC 
      integer middate(4)
./pkg/ecco/cost_gencal.F 102 COST_GENCAL 
              call CAL_FULLDATE( modelstartdate(1), 0, middate, mythid)
./pkg/ecco/cost_gencal.F 104 COST_GENCAL 
              call CAL_FULLDATE( tempDate_1, 0, middate, mythid)
./pkg/ecco/cost_gencal.F 106 COST_GENCAL 
           call CAL_TIMEPASSED( middate, daydate, difftime, mythid )
./pkg/ecco/cost_gencal.F 64 COST_GENCAL 
      integer middate(4)
./pkg/ecco/cost_gencal.F 98 COST_GENCAL 
              middate(k)=0
./pkg/ecco/cost_gencost_sstv4.F 208 COST_GENCOST_SSTV4 
               middate(1)=1
./pkg/ecco/cost_gencost_sstv4.F 209 COST_GENCOST_SSTV4 
               call CAL_FULLDATE(locstartdate(1),0,middate,mythid)
./pkg/ecco/cost_gencost_sstv4.F 211 COST_GENCOST_SSTV4 
               middate(1)=1
./pkg/ecco/cost_gencost_sstv4.F 213 COST_GENCOST_SSTV4 
               call CAL_FULLDATE( tempDate_1, 0, middate, mythid)
./pkg/ecco/cost_gencost_sstv4.F 215 COST_GENCOST_SSTV4 
             call CAL_TIMEPASSED( middate, daydate, difftime, mythid )
./pkg/ecco/cost_gencost_sstv4.F 230 COST_GENCOST_SSTV4 
        CALL CAL_PRINTDATE(middate,mythid)
./pkg/ecco/cost_gencost_sstv4.F 366 COST_GENCOST_SSTV4 
               middate(1)=1
./pkg/ecco/cost_gencost_sstv4.F 367 COST_GENCOST_SSTV4 
               call CAL_FULLDATE(locstartdate(1),0,middate,mythid)
./pkg/ecco/cost_gencost_sstv4.F 369 COST_GENCOST_SSTV4 
               middate(1)=1
./pkg/ecco/cost_gencost_sstv4.F 371 COST_GENCOST_SSTV4 
               call CAL_FULLDATE( tempDate_1, 0, middate, mythid)
./pkg/ecco/cost_gencost_sstv4.F 373 COST_GENCOST_SSTV4 
             call CAL_TIMEPASSED( middate, daydate, difftime, mythid )
./pkg/ecco/cost_gencost_sstv4.F 388 COST_GENCOST_SSTV4 
        CALL CAL_PRINTDATE(middate,mythid)
./pkg/ecco/cost_gencost_sstv4.F 95 COST_GENCOST_SSTV4 
      integer middate(4)
./pkg/ecco/cost_sla_read.F 104 COST_SLA_READ 
         call CAL_FULLDATE( sla_startdate(1), 0, middate, mythid)
./pkg/ecco/cost_sla_read.F 107 COST_SLA_READ 
         call CAL_FULLDATE( tempDate_1, 0, middate, mythid)
./pkg/ecco/cost_sla_read.F 110 COST_SLA_READ 
      call CAL_TIMEPASSED( middate, daydate, difftime, mythid )
./pkg/ecco/cost_sla_read.F 52 COST_SLA_READ 
      integer middate(4)
./pkg/ecco/cost_sla_read_yd.F 60 COST_SLA_READ_YD 
      integer middate(4)