Symbol Description Uses
mody 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 117 COST_ARGO_SALT
      mody = modelstartdate(1)/10000
./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 77 COST_ARGO_SALT
      integer mody, modm
./pkg/ecco/cost_argo_theta.F 120 COST_ARGO_THETA
      mody = modelstartdate(1)/10000
./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 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 86 COST_BP_READ
      mody = modelstartdate(1)/10000
./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_ctds.F 117 COST_CTDS
      mody = modelstartdate(1)/10000
./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 77 COST_CTDS
      integer mody, modm
./pkg/ecco/cost_ctdt.F 118 COST_CTDT
      mody = modelstartdate(1)/10000
./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 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 224 COST_GENERIC
           mody   = modelstartdate(1)/10000
./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_readscatxfields.F 102 COST_READSCATXFIELDS
      mody = modelstartdate(1)/10000
./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 64 COST_READSCATXFIELDS
      integer mody, modm
./pkg/ecco/cost_readscatyfields.F 101 COST_READSCATYFIELDS
      mody = modelstartdate(1)/10000
./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 64 COST_READSCATYFIELDS
      integer mody, modm
./pkg/ecco/cost_xbt.F 122 COST_XBT
      mody = modelstartdate(1)/10000
./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 77 COST_XBT
      integer mody, modm