Symbol Description Uses
modelstartdate 99


File Line number Procedure Code
./pkg/profiles/profiles_init_fixed.F 159 PROFILES_INIT_FIXED 
        yymmddMin=modelstartdate(1)
./pkg/profiles/profiles_init_fixed.F 161 PROFILES_INIT_FIXED 
        hhmmssMin=modelstartdate(2)
./pkg/profiles/profiles_init_fixed.F 391 PROFILES_INIT_FIXED 
        call CAL_TIMEPASSED( modelstartdate,tmpdate,tmpdiff,mythid )
./pkg/seaice/seaice_cost_concentration.F 198 SEAICE_COST_CONCENTRATION 
      middate(3) = modelstartdate(3)
./pkg/seaice/seaice_cost_concentration.F 199 SEAICE_COST_CONCENTRATION 
      middate(4) = modelstartdate(4)
./pkg/seaice/seaice_cost_driver.F 101 SEAICE_COST_DRIVER 
     &     nrecloc, modelstartdate, localperiod,
./pkg/seaice/seaice_cost_driver.F 79 SEAICE_COST_DRIVER 
     &     nrecloc, modelstartdate, localperiod,
./pkg/seaice/seaice_cost_driver.F 90 SEAICE_COST_DRIVER 
     &     nrecloc, modelstartdate, localperiod,
./pkg/seaice/seaice_cost_sss.F 216 SEAICE_COST_SSS 
      middate(3) = modelstartdate(3)
./pkg/seaice/seaice_cost_sss.F 217 SEAICE_COST_SSS 
      middate(4) = modelstartdate(4)
./pkg/seaice/seaice_cost_sst.F 216 SEAICE_COST_SST 
      middate(3) = modelstartdate(3)
./pkg/seaice/seaice_cost_sst.F 217 SEAICE_COST_SST 
      middate(4) = modelstartdate(4)
./pkg/cal/cal_daysformonth.F 80 CAL_DAYSFORMONTH 
      firstyear   = modelstartdate(1)/10000
./pkg/cal/cal_daysformonth.F 81 CAL_DAYSFORMONTH 
      firstmonth  = mod(modelstartdate(1)/100,100)
./pkg/cal/cal_daysformonth.F 82 CAL_DAYSFORMONTH 
      firstd      = mod(modelstartdate(1),100)
./pkg/cal/cal_intdays.F 51 NO PROCEDURE 
      tempdate(1) = modelstartdate(1)
./pkg/cal/cal_intdays.F 53 NO PROCEDURE 
      tempdate(3) = modelstartdate(3)
./pkg/cal/cal_intdays.F 54 NO PROCEDURE 
      tempdate(4) = modelstartdate(4)
./pkg/cal/cal_intmonths.F 53 NO PROCEDURE 
      startmonth = mod(modelstartdate(1)/100,100)
./pkg/cal/cal_intmonths.F 55 NO PROCEDURE 
      startyear  = modelstartdate(1)/10000
./pkg/cal/cal_intyears.F 47 NO PROCEDURE 
     &             modelstartdate(1)/10000   ) + 1
./pkg/cal/cal_monthsforyear.F 68 CAL_MONTHSFORYEAR 
      firstyear = modelstartdate(1)/10000
./pkg/cal/cal_monthsforyear.F 69 CAL_MONTHSFORYEAR 
      firstmon  = mod(modelstartdate(1)/100,100)
./pkg/cal/cal_stepsforday.F 80 CAL_STEPSFORDAY 
      firstyear  = modelstartdate(1)/10000
./pkg/cal/cal_stepsforday.F 81 CAL_STEPSFORDAY 
      firstmonth = mod(modelstartdate(1)/100,100)
./pkg/cal/cal_stepsforday.F 82 CAL_STEPSFORDAY 
      firstday   = mod(modelstartdate(1),100)
./pkg/cal/cal_stepsforday.F 85 CAL_STEPSFORDAY 
      startsecs  = (modelstartdate(2)/10000)*secondsperhour +
./pkg/cal/cal_stepsforday.F 86 CAL_STEPSFORDAY 
     &             mod(modelstartdate(2)/100,100)*secondsperminute +
./pkg/cal/cal_stepsforday.F 87 CAL_STEPSFORDAY 
     &             mod(modelstartdate(2),100)
./pkg/ctrl/ctrl_get_gen_rec.F 133 CTRL_GET_GEN_REC 
       call CAL_TIMEPASSED( fldstartdate, modelstartdate,
./pkg/ctrl/ctrl_init_rec.F 98 CTRL_INIT_REC 
       call CAL_TIMEPASSED( fldstartdate, modelstartdate,
./pkg/ecco/cost_argo_salt.F 118 COST_ARGO_SALT 
      mody = modelstartdate(1)/10000
./pkg/ecco/cost_argo_salt.F 119 COST_ARGO_SALT 
      modm = modelstartdate(1)/100 - mody*100
./pkg/ecco/cost_argo_theta.F 121 COST_ARGO_THETA 
      mody = modelstartdate(1)/10000
./pkg/ecco/cost_argo_theta.F 122 COST_ARGO_THETA 
      modm = modelstartdate(1)/100 - mody*100
./pkg/ecco/cost_averagesflags.F 125 COST_AVERAGESFLAGS 
      equal = cal_CompDates(modelstartdate,mydate,mythid)
./pkg/ecco/cost_averagesflags.F 173 COST_AVERAGESFLAGS 
        if ( mydate(1) .eq. modelstartdate(1) ) then
./pkg/ecco/cost_averagesflags.F 174 COST_AVERAGESFLAGS 
          call CAL_COPYDATE( modelstartdate, targetdate, mythid )
./pkg/ecco/cost_averagesflags.F 181 COST_AVERAGESFLAGS 
          call CAL_TIMEPASSED( modelstartdate, targetdate, datediff,
./pkg/ecco/cost_averagesflags.F 227 COST_AVERAGESFLAGS 
        if ( (mydate(1)/100)*100 .eq. (modelstartdate(1)/100)*100 ) then
./pkg/ecco/cost_averagesflags.F 228 COST_AVERAGESFLAGS 
          call CAL_COPYDATE( modelstartdate, targetdate, mythid )
./pkg/ecco/cost_averagesflags.F 235 COST_AVERAGESFLAGS 
          if ( mydate(1)/10000 .eq. modelstartdate(1)/10000 ) then
./pkg/ecco/cost_averagesflags.F 237 COST_AVERAGESFLAGS 
     &             - mod( modelstartdate(1)/100, 100 ) + 1
./pkg/ecco/cost_averagesflags.F 240 COST_AVERAGESFLAGS 
     &             + nmonthyear - mod(modelstartdate(1)/100,100) + 1
./pkg/ecco/cost_averagesflags.F 241 COST_AVERAGESFLAGS 
     &             + ( mydate(1)/10000 - modelstartdate(1)/10000 - 1)*
./pkg/ecco/cost_averagesflags.F 284 COST_AVERAGESFLAGS 
     &        int(modelstartdate(1)/10000) ) then
./pkg/ecco/cost_averagesflags.F 285 COST_AVERAGESFLAGS 
          call CAL_COPYDATE( modelstartdate, targetdate, mythid )
./pkg/ecco/cost_averagesflags.F 292 COST_AVERAGESFLAGS 
          yearrec  = mydate(1)/10000 - modelstartdate(1)/10000 + 1
./pkg/ecco/cost_bp_read.F 90 COST_BP_READ 
       beginmodel = modelstartdate(1)/10000
./pkg/ecco/cost_bp_read.F 92 COST_BP_READ 
     &         + ( mod(modelstartdate(1)/100,100)
./pkg/ecco/cost_bp_read.F 96 COST_BP_READ 
      mody = modelstartdate(1)/10000
./pkg/ecco/cost_bp_read.F 97 COST_BP_READ 
      modm = modelstartdate(1)/100 - mody*100
./pkg/ecco/cost_ctds.F 118 COST_CTDS 
      mody = modelstartdate(1)/10000
./pkg/ecco/cost_ctds.F 119 COST_CTDS 
      modm = modelstartdate(1)/100 - mody*100
./pkg/ecco/cost_ctdsclim.F 163 COST_CTDSCLIM 
        levoff = mod(modelstartdate(1)/100,100)
./pkg/ecco/cost_ctdt.F 119 COST_CTDT 
      mody = modelstartdate(1)/10000
./pkg/ecco/cost_ctdt.F 120 COST_CTDT 
      modm = modelstartdate(1)/100 - mody*100
./pkg/ecco/cost_ctdtclim.F 162 COST_CTDTCLIM 
        levoff = mod(modelstartdate(1)/100,100)
./pkg/ecco/cost_gencost_all.F 68 COST_GENCOST_ALL 
     &        gencost_nrec(k), modelstartdate, gencost_period(k),
./pkg/ecco/cost_gencost_seaicev4.F 220 COST_GENCOST_SEAICEV4 
      localstartdate(1)=modelstartdate(1)
./pkg/ecco/cost_gencost_seaicev4.F 221 COST_GENCOST_SEAICEV4 
      localstartdate(2)=modelstartdate(2)
./pkg/ecco/cost_gencost_seaicev4.F 222 COST_GENCOST_SEAICEV4 
      localstartdate(3)=modelstartdate(3)
./pkg/ecco/cost_gencost_seaicev4.F 223 COST_GENCOST_SEAICEV4 
      localstartdate(4)=modelstartdate(4)
./pkg/ecco/cost_gencost_seaicev4.F 275 COST_GENCOST_SEAICEV4 
              middate(1) = modelstartdate(1)
./pkg/ecco/cost_gencost_seaicev4.F 280 COST_GENCOST_SEAICEV4 
           middate(3) = modelstartdate(3)
./pkg/ecco/cost_gencost_seaicev4.F 281 COST_GENCOST_SEAICEV4 
           middate(4) = modelstartdate(4)
./pkg/ecco/cost_gencost_seaicev4.F 288 COST_GENCOST_SEAICEV4 
           beginmodel = modelstartdate(1)/10000
./pkg/ecco/cost_gencost_seaicev4.F 291 COST_GENCOST_SEAICEV4 
     &         + ( mod(modelstartdate(1)/100,100)
./pkg/ecco/cost_gencost_seaicev4.F 294 COST_GENCOST_SEAICEV4 
           mody   = modelstartdate(1)/10000
./pkg/ecco/cost_gencost_seaicev4.F 295 COST_GENCOST_SEAICEV4 
           modm   = modelstartdate(1)/100 - mody*100
./pkg/ecco/cost_gencost_sshv4.F 242 COST_GENCOST_SSHV4 
      if ((modelstartdate(1).GT.1992*10000).AND.
./pkg/ecco/cost_gencost_sshv4.F 243 COST_GENCOST_SSHV4 
     &    (modelstartdate(1).LT.2011*10000).AND.
./pkg/ecco/cost_generic.F 220 COST_GENERIC 
           beginmodel = modelstartdate(1)/10000
./pkg/ecco/cost_generic.F 223 COST_GENERIC 
     &         + ( mod(modelstartdate(1)/100,100)
./pkg/ecco/cost_generic.F 226 COST_GENERIC 
           mody   = modelstartdate(1)/10000
./pkg/ecco/cost_generic.F 227 COST_GENERIC 
           modm   = modelstartdate(1)/100 - mody*100
./pkg/ecco/cost_readargos.F 74 COST_READARGOS 
      beginrun = modelstartdate(1)/10000
./pkg/ecco/cost_readargos.F 76 COST_READARGOS 
        argosrec = mod(modelstartdate(1)/100,100) -
./pkg/ecco/cost_readargos.F 81 COST_READARGOS 
     &            1) + mod(modelstartdate(1)/100,100) - 1 + irec
./pkg/ecco/cost_readargot.F 74 COST_READARGOT 
      beginrun = modelstartdate(1)/10000
./pkg/ecco/cost_readargot.F 76 COST_READARGOT 
        argotrec = mod(modelstartdate(1)/100,100) -
./pkg/ecco/cost_readargot.F 81 COST_READARGOT 
     &            1) + mod(modelstartdate(1)/100,100) - 1 + irec
./pkg/ecco/cost_readscatxfields.F 111 COST_READSCATXFIELDS 
           beginmodel = modelstartdate(1)/10000
./pkg/ecco/cost_readscatxfields.F 114 COST_READSCATXFIELDS 
     &         + ( mod(modelstartdate(1)/100,100)
./pkg/ecco/cost_readscatxfields.F 117 COST_READSCATXFIELDS 
           mody   = modelstartdate(1)/10000
./pkg/ecco/cost_readscatxfields.F 118 COST_READSCATXFIELDS 
           modm   = modelstartdate(1)/100 - mody*100
./pkg/ecco/cost_readscatyfields.F 111 COST_READSCATYFIELDS 
           beginmodel = modelstartdate(1)/10000
./pkg/ecco/cost_readscatyfields.F 114 COST_READSCATYFIELDS 
     &         + ( mod(modelstartdate(1)/100,100)
./pkg/ecco/cost_readscatyfields.F 117 COST_READSCATYFIELDS 
           mody   = modelstartdate(1)/10000
./pkg/ecco/cost_readscatyfields.F 118 COST_READSCATYFIELDS 
           modm   = modelstartdate(1)/100 - mody*100
./pkg/ecco/cost_salt.F 163 COST_SALT 
        levoff = mod(modelstartdate(1)/100,100)
./pkg/ecco/cost_sigmar.F 156 COST_SIGMAR 
        levoff = mod(modelstartdate(1)/100,100)
./pkg/ecco/cost_theta.F 163 COST_THETA 
        levoff = mod(modelstartdate(1)/100,100)
./pkg/ecco/cost_xbt.F 123 COST_XBT 
      mody = modelstartdate(1)/10000
./pkg/ecco/cost_xbt.F 124 COST_XBT 
      modm = modelstartdate(1)/100 - mody*100
./pkg/ecco/ecco_check.F 115 ECCO_CHECK 
     & 'mdt', mdtdatfile, modelstartdate(1), myThid )
./pkg/ecco/ecco_check.F 124 ECCO_CHECK 
     &       gencost_datafile(k), modelstartdate(1), myThid )
./pkg/ecco/ecco_check.F 229 ECCO_CHECK_FILES 
           mody   = modelstartdate(1)/10000
./pkg/ecco/ecco_check.F 230 ECCO_CHECK_FILES 
           modm   = modelstartdate(1)/100 - mody*100