Symbol Description Uses
mody 40


File Line number Procedure Code
./pkg/ecco/cost_xbt.F 121 COST_XBT 
      mody = modelstartdate(1)/10000
./pkg/ecco/cost_xbt.F 122 COST_XBT 
      modm = modelstartdate(1)/100 - mody*100
./pkg/ecco/cost_xbt.F 135 COST_XBT 
        iyear = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_xbt.F 76 COST_XBT 
      integer mody, modm
./pkg/ecco/cost_argo_theta.F 119 COST_ARGO_THETA 
      mody = modelstartdate(1)/10000
./pkg/ecco/cost_argo_theta.F 120 COST_ARGO_THETA 
      modm = modelstartdate(1)/100 - mody*100
./pkg/ecco/cost_argo_theta.F 133 COST_ARGO_THETA 
        iyear = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_argo_theta.F 75 COST_ARGO_THETA 
      integer mody, modm
./pkg/ecco/cost_readscatyfields.F 100 COST_READSCATYFIELDS 
      mody = modelstartdate(1)/10000
./pkg/ecco/cost_readscatyfields.F 101 COST_READSCATYFIELDS 
      modm = modelstartdate(1)/100 - mody*100
./pkg/ecco/cost_readscatyfields.F 102 COST_READSCATYFIELDS 
      iyear = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_readscatyfields.F 63 COST_READSCATYFIELDS 
      integer mody, modm
./pkg/ecco/cost_readsstfields.F 100 COST_READSSTFIELDS 
      mody = modelstartdate(1)/10000
./pkg/ecco/cost_readsstfields.F 101 COST_READSSTFIELDS 
      modm = modelstartdate(1)/100 - mody*100
./pkg/ecco/cost_readsstfields.F 102 COST_READSSTFIELDS 
      iyear = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_readsstfields.F 63 COST_READSSTFIELDS 
      integer mody, modm
./pkg/ecco/cost_argo_salt.F 116 COST_ARGO_SALT 
      mody = modelstartdate(1)/10000
./pkg/ecco/cost_argo_salt.F 117 COST_ARGO_SALT 
      modm = modelstartdate(1)/100 - mody*100
./pkg/ecco/cost_argo_salt.F 130 COST_ARGO_SALT 
        iyear = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_argo_salt.F 76 COST_ARGO_SALT 
      integer mody, modm
./pkg/ecco/cost_ctdt.F 117 COST_CTDT 
      mody = modelstartdate(1)/10000
./pkg/ecco/cost_ctdt.F 118 COST_CTDT 
      modm = modelstartdate(1)/100 - mody*100
./pkg/ecco/cost_ctdt.F 130 COST_CTDT 
        iyear = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_ctdt.F 77 COST_CTDT 
      integer mody, modm
./pkg/ecco/cost_readsssfields.F 100 COST_READSSSFIELDS 
      mody = modelstartdate(1)/10000
./pkg/ecco/cost_readsssfields.F 101 COST_READSSSFIELDS 
      modm = modelstartdate(1)/100 - mody*100
./pkg/ecco/cost_readsssfields.F 102 COST_READSSSFIELDS 
      iyear = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_readsssfields.F 63 COST_READSSSFIELDS 
      integer mody, modm
./pkg/ecco/cost_readtmifields.F 100 COST_READTMIFIELDS 
      mody = modelstartdate(1)/10000
./pkg/ecco/cost_readtmifields.F 101 COST_READTMIFIELDS 
      modm = modelstartdate(1)/100 - mody*100
./pkg/ecco/cost_readtmifields.F 102 COST_READTMIFIELDS 
      iyear = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_readtmifields.F 63 COST_READTMIFIELDS 
      integer mody, modm
./pkg/ecco/cost_ctds.F 116 COST_CTDS 
      mody = modelstartdate(1)/10000
./pkg/ecco/cost_ctds.F 117 COST_CTDS 
      modm = modelstartdate(1)/100 - mody*100
./pkg/ecco/cost_ctds.F 129 COST_CTDS 
        iyear = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_ctds.F 76 COST_CTDS 
      integer mody, modm
./pkg/ecco/cost_readscatxfields.F 101 COST_READSCATXFIELDS 
      mody = modelstartdate(1)/10000
./pkg/ecco/cost_readscatxfields.F 102 COST_READSCATXFIELDS 
      modm = modelstartdate(1)/100 - mody*100
./pkg/ecco/cost_readscatxfields.F 103 COST_READSCATXFIELDS 
      iyear = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_readscatxfields.F 63 COST_READSCATXFIELDS 
      integer mody, modm