Symbol Description Uses
modm 40



File Line number Procedure Code
./pkg/seaice/seaice_cost_concentration.F 106 SEAICE_COST_CONCENTRATION
      integer mody, modm
./pkg/seaice/seaice_cost_sss.F 107 SEAICE_COST_SSS
      integer mody, modm
./pkg/seaice/seaice_cost_sst.F 105 SEAICE_COST_SST
      integer mody, modm
./pkg/ecco/cost_argo_salt.F 118 COST_ARGO_SALT
      modm = modelstartdate(1)/100 - mody*100
./pkg/ecco/cost_argo_salt.F 131 COST_ARGO_SALT
        iyear = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_argo_salt.F 132 COST_ARGO_SALT
        imonth = 1 + MOD(modm-1+irec-1,12)
./pkg/ecco/cost_argo_salt.F 77 COST_ARGO_SALT
      integer mody, modm
./pkg/ecco/cost_argo_theta.F 121 COST_ARGO_THETA
      modm = modelstartdate(1)/100 - mody*100
./pkg/ecco/cost_argo_theta.F 134 COST_ARGO_THETA
        iyear = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_argo_theta.F 135 COST_ARGO_THETA
        imonth = 1 + MOD(modm-1+irec-1,12)
./pkg/ecco/cost_argo_theta.F 76 COST_ARGO_THETA
      integer mody, modm
./pkg/ecco/cost_bp_read.F 61 COST_BP_READ
      integer mody, modm
./pkg/ecco/cost_bp_read.F 87 COST_BP_READ
      modm = modelstartdate(1)/100 - mody*100
./pkg/ecco/cost_bp_read.F 88 COST_BP_READ
      iyear = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_bp_read.F 89 COST_BP_READ
      imonth = 1 + MOD(modm-1+irec-1,12)
./pkg/ecco/cost_ctds.F 118 COST_CTDS
      modm = modelstartdate(1)/100 - mody*100
./pkg/ecco/cost_ctds.F 130 COST_CTDS
        iyear = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_ctds.F 131 COST_CTDS
        imonth = 1 + MOD(modm-1+irec-1,12)
./pkg/ecco/cost_ctds.F 77 COST_CTDS
      integer mody, modm
./pkg/ecco/cost_ctdt.F 119 COST_CTDT
      modm = modelstartdate(1)/100 - mody*100
./pkg/ecco/cost_ctdt.F 131 COST_CTDT
        iyear = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_ctdt.F 132 COST_CTDT
        imonth = 1 + MOD(modm-1+irec-1,12)
./pkg/ecco/cost_ctdt.F 78 COST_CTDT
      integer mody, modm
./pkg/ecco/cost_gencost_sstv4.F 94 COST_GENCOST_SSTV4
      integer mody, modm
./pkg/ecco/cost_generic.F 110 COST_GENERIC
      integer mody, modm
./pkg/ecco/cost_generic.F 225 COST_GENERIC
           modm   = modelstartdate(1)/100 - mody*100
./pkg/ecco/cost_generic.F 226 COST_GENERIC
           yday   = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_generic.F 227 COST_GENERIC
           localrec = 1 + MOD(modm-1+irec-1,12)
./pkg/ecco/cost_readscatxfields.F 103 COST_READSCATXFIELDS
      modm = modelstartdate(1)/100 - mody*100
./pkg/ecco/cost_readscatxfields.F 104 COST_READSCATXFIELDS
      iyear = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_readscatxfields.F 105 COST_READSCATXFIELDS
      imonth = 1 + MOD(modm-1+irec-1,12)
./pkg/ecco/cost_readscatxfields.F 64 COST_READSCATXFIELDS
      integer mody, modm
./pkg/ecco/cost_readscatyfields.F 102 COST_READSCATYFIELDS
      modm = modelstartdate(1)/100 - mody*100
./pkg/ecco/cost_readscatyfields.F 103 COST_READSCATYFIELDS
      iyear = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_readscatyfields.F 104 COST_READSCATYFIELDS
      imonth = 1 + MOD(modm-1+irec-1,12)
./pkg/ecco/cost_readscatyfields.F 64 COST_READSCATYFIELDS
      integer mody, modm
./pkg/ecco/cost_xbt.F 123 COST_XBT
      modm = modelstartdate(1)/100 - mody*100
./pkg/ecco/cost_xbt.F 136 COST_XBT
        iyear = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_xbt.F 137 COST_XBT
        imonth = 1 + MOD(modm-1+irec-1,12)
./pkg/ecco/cost_xbt.F 77 COST_XBT
      integer mody, modm