Symbol Description Uses
mody 48


File Line number Procedure Code
./pkg/seaice/seaice_cost_concentration.F 107 SEAICE_COST_CONCENTRATION 
      integer mody, modm
./pkg/seaice/seaice_cost_sss.F 108 SEAICE_COST_SSS 
      integer mody, modm
./pkg/seaice/seaice_cost_sst.F 106 SEAICE_COST_SST 
      integer mody, modm
./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_salt.F 132 COST_ARGO_SALT 
        iyear = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_argo_salt.F 78 COST_ARGO_SALT 
      integer mody, modm
./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_argo_theta.F 135 COST_ARGO_THETA 
        iyear = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_argo_theta.F 77 COST_ARGO_THETA 
      integer mody, modm
./pkg/ecco/cost_bp_read.F 63 COST_BP_READ 
      integer mody, modm
./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_bp_read.F 98 COST_BP_READ 
      iyear = mody + INT((modm-1+irec-1)/12)
./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_ctds.F 131 COST_CTDS 
        iyear = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_ctds.F 78 COST_CTDS 
      integer mody, modm
./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_ctdt.F 132 COST_CTDT 
        iyear = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_ctdt.F 79 COST_CTDT 
      integer mody, modm
./pkg/ecco/cost_gencost_seaicev4.F 117 COST_GENCOST_SEAICEV4 
      integer mody, modm
./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_seaicev4.F 296 COST_GENCOST_SEAICEV4 
           yday   = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_gencost_sstv4.F 104 COST_GENCOST_SSTV4 
      integer mody, modm
./pkg/ecco/cost_generic.F 110 COST_GENERIC 
      integer mody, modm
./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_generic.F 228 COST_GENERIC 
           yday   = mody + INT((modm-1+irec-1)/12)
./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_readscatxfields.F 119 COST_READSCATXFIELDS 
           yday   = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_readscatxfields.F 64 COST_READSCATXFIELDS 
      integer mody, modm
./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_readscatyfields.F 119 COST_READSCATYFIELDS 
           yday   = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_readscatyfields.F 64 COST_READSCATYFIELDS 
      integer mody, modm
./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/cost_xbt.F 137 COST_XBT 
        iyear = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_xbt.F 78 COST_XBT 
      integer mody, modm
./pkg/ecco/ecco_check.F 192 ECCO_CHECK_FILES 
      INTEGER irec, mody, modm, yday, locy, il
./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
./pkg/ecco/ecco_check.F 231 ECCO_CHECK_FILES 
           yday   = mody + INT((modm-1+irec-1)/12)