Symbol Description Uses
modm 40


File Line number Procedure Code
./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 136 COST_XBT 
        imonth = 1 + MOD(modm-1+irec-1,12)
./pkg/ecco/cost_xbt.F 76 COST_XBT 
      integer mody, modm
./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 134 COST_ARGO_THETA 
        imonth = 1 + MOD(modm-1+irec-1,12)
./pkg/ecco/cost_argo_theta.F 75 COST_ARGO_THETA 
      integer mody, modm
./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 103 COST_READSCATYFIELDS 
      imonth = 1 + MOD(modm-1+irec-1,12)
./pkg/ecco/cost_readscatyfields.F 63 COST_READSCATYFIELDS 
      integer mody, modm
./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 103 COST_READSSTFIELDS 
      imonth = 1 + MOD(modm-1+irec-1,12)
./pkg/ecco/cost_readsstfields.F 63 COST_READSSTFIELDS 
      integer mody, modm
./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 131 COST_ARGO_SALT 
        imonth = 1 + MOD(modm-1+irec-1,12)
./pkg/ecco/cost_argo_salt.F 76 COST_ARGO_SALT 
      integer mody, modm
./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 131 COST_CTDT 
        imonth = 1 + MOD(modm-1+irec-1,12)
./pkg/ecco/cost_ctdt.F 77 COST_CTDT 
      integer mody, modm
./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 103 COST_READSSSFIELDS 
      imonth = 1 + MOD(modm-1+irec-1,12)
./pkg/ecco/cost_readsssfields.F 63 COST_READSSSFIELDS 
      integer mody, modm
./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 103 COST_READTMIFIELDS 
      imonth = 1 + MOD(modm-1+irec-1,12)
./pkg/ecco/cost_readtmifields.F 63 COST_READTMIFIELDS 
      integer mody, modm
./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 130 COST_CTDS 
        imonth = 1 + MOD(modm-1+irec-1,12)
./pkg/ecco/cost_ctds.F 76 COST_CTDS 
      integer mody, modm
./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 104 COST_READSCATXFIELDS 
      imonth = 1 + MOD(modm-1+irec-1,12)
./pkg/ecco/cost_readscatxfields.F 63 COST_READSCATXFIELDS 
      integer mody, modm