Symbol Description Uses
nmonsrec 61


File Line number Procedure Code
./verification/lab_sea/code_ad_seaice_only/cost_hyd.F 115 COST_HYD 
     &     nmonsrec, tmistartdate, localperiod,
./verification/lab_sea/code_ad_seaice_only/cost_hyd.F 136 COST_HYD 
     &     nmonsrec, modelstartdate, localperiod,
./verification/lab_sea/code_ad_seaice_only/cost_hyd.F 73 COST_HYD 
     &     nmonsrec, modelstartdate, localperiod,
./pkg/ecco/cost_argo_salt.F 122 COST_ARGO_SALT 
      do irec = 1,nmonsrec
./pkg/ecco/cost_argo_theta.F 125 COST_ARGO_THETA 
      do irec = 1,nmonsrec
./pkg/ecco/cost_bp.F 122 COST_BP 
      do irec = 1, nmonsrec
./pkg/ecco/cost_bp.F 170 COST_BP 
      do irec = 1, nmonsrec
./pkg/ecco/cost_ctds.F 122 COST_CTDS 
      do irec = 1,nmonsrec
./pkg/ecco/cost_ctdsclim.F 122 COST_CTDSCLIM 
         nyears=int((nmonsrec-irec)/12)+1
./pkg/ecco/cost_ctdsclim.F 153 COST_CTDSCLIM 
      do irec = 1,nmonsrec
./pkg/ecco/cost_ctdsclim.F 272 COST_CTDSCLIM 
     &                ' been processed: ',nmonsrec
./pkg/ecco/cost_ctdt.F 123 COST_CTDT 
      do irec = 1,nmonsrec
./pkg/ecco/cost_ctdtclim.F 121 COST_CTDTCLIM 
         nyears=int((nmonsrec-irec)/12)+1
./pkg/ecco/cost_ctdtclim.F 152 COST_CTDTCLIM 
      do irec = 1,nmonsrec
./pkg/ecco/cost_ctdtclim.F 273 COST_CTDTCLIM 
     &                ' been processed: ',nmonsrec
./pkg/ecco/cost_curmtr.F 110 COST_CURMTR 
     &  ' cost_Curmtr: number of records to process =', nmonsrec
./pkg/ecco/cost_curmtr.F 133 COST_CURMTR 
      do irec = 1,nmonsrec
./pkg/ecco/cost_drift.F 137 COST_DRIFT 
      nfmin = MAX(INT(FLOAT(nmonsrec)/12.),1)
./pkg/ecco/cost_drift.F 139 COST_DRIFT 
      minrec = MIN(nmonsrec,12)
./pkg/ecco/cost_drift.F 173 COST_DRIFT 
      do irec = nmonsrec-minrec+1, nmonsrec
./pkg/ecco/cost_drifter.F 147 COST_DRIFTER 
         do irec = 1,nmonsrec
./pkg/ecco/cost_drifter.F 165 COST_DRIFTER 
            elseif(irec.eq.nmonsrec)then
./pkg/ecco/cost_drifter.F 166 COST_DRIFTER 
               udmod(i,j,bi,bj)=udmod(i,j,bi,bj)/float(nmonsrec)
./pkg/ecco/cost_drifter.F 167 COST_DRIFTER 
               vdmod(i,j,bi,bj)=vdmod(i,j,bi,bj)/float(nmonsrec)
./pkg/ecco/cost_driftw.F 121 COST_DRIFTW 
      nfmin = MAX(INT(FLOAT(nmonsrec)/12.),1)
./pkg/ecco/cost_driftw.F 123 COST_DRIFTW 
      minrec = MIN(nmonsrec,12)
./pkg/ecco/cost_driftw.F 150 COST_DRIFTW 
      do irec = nmonsrec-minrec+1, nmonsrec
./pkg/ecco/cost_hyd.F 139 COST_HYD 
     &     nmonsrec, tmistartdate, localperiod,
./pkg/ecco/cost_hyd.F 160 COST_HYD 
     &     nmonsrec, modelstartdate, localperiod,
./pkg/ecco/cost_hyd.F 76 COST_HYD 
     &     nmonsrec, modelstartdate, localperiod,
./pkg/ecco/cost_obcs_ageos.F 123 COST_OBCS_AGEOS 
     &    ' cost_obcs_ageos: number of records to process = ',nmonsrec
./pkg/ecco/cost_obcs_ageos.F 181 COST_OBCS_AGEOS 
      do irec = 1,nmonsrec
./pkg/ecco/cost_obcse.F 105 COST_OBCSE 
      do irec = 1,nmonsrec
./pkg/ecco/cost_obcsn.F 105 COST_OBCSN 
      do irec = 1,nmonsrec
./pkg/ecco/cost_obcss.F 105 COST_OBCSS 
      do irec = 1,nmonsrec
./pkg/ecco/cost_obcsw.F 105 COST_OBCSW 
      do irec = 1,nmonsrec
./pkg/ecco/cost_salt.F 120 COST_SALT 
      do irec = 1,min(nmonsrec,12)
./pkg/ecco/cost_salt.F 121 COST_SALT 
         nyears=int((nmonsrec-irec)/12)+1
./pkg/ecco/cost_salt.F 152 COST_SALT 
      do irec = 1,nmonsrec
./pkg/ecco/cost_scat.F 115 COST_SCAT 
      do irec = 1,nmonsrec
./pkg/ecco/cost_scat.F 265 COST_SCAT 
     &                ' been processed: ',nmonsrec
./pkg/ecco/cost_theta.F 119 COST_THETA 
      do irec = 1,min(nmonsrec,12)
./pkg/ecco/cost_theta.F 120 COST_THETA 
         nyears=int((nmonsrec-irec)/12)+1
./pkg/ecco/cost_theta.F 151 COST_THETA 
      do irec = 1,nmonsrec
./pkg/ecco/cost_trans_merid.F 159 COST_TRANS_MERID 
      do irec = 1, nmonsrec
./pkg/ecco/cost_trans_zonal.F 148 COST_TRANS_ZONAL 
      do irec = 1, nmonsrec
./pkg/ecco/cost_xbt.F 127 COST_XBT 
      do irec = 1,nmonsrec
./pkg/ecco/ecco_cost.h 844 NO PROCEDURE 
     &                nmonsrec,
./pkg/ecco/ecco_cost.h 849 NO PROCEDURE 
      integer nmonsrec
./pkg/ecco/ecco_cost_init_barfiles.F 180 ECCO_COST_INIT_BARFILES 
      do irec = 1, nmonsrec
./pkg/ecco/ecco_cost_init_barfiles.F 201 ECCO_COST_INIT_BARFILES 
      do irec = 1,nmonsrec
./pkg/ecco/ecco_cost_init_barfiles.F 215 ECCO_COST_INIT_BARFILES 
      do irec = 1,nmonsrec
./pkg/ecco/ecco_cost_init_barfiles.F 252 ECCO_COST_INIT_BARFILES 
      do irec = 1,nmonsrec
./pkg/ecco/ecco_cost_init_barfiles.F 267 ECCO_COST_INIT_BARFILES 
      do irec = 1,nmonsrec
./pkg/ecco/ecco_cost_init_barfiles.F 294 ECCO_COST_INIT_BARFILES 
      do irec = 1,nmonsrec
./pkg/ecco/ecco_cost_init_barfiles.F 312 ECCO_COST_INIT_BARFILES 
      do irec = 1,nmonsrec
./pkg/ecco/ecco_cost_init_barfiles.F 335 ECCO_COST_INIT_BARFILES 
      do irec = 1, nmonsrec
./pkg/ecco/ecco_cost_init_fixed.F 141 ECCO_COST_INIT_FIXED 
            gencost_nrec(k)   =nmonsrec
./pkg/ecco/ecco_cost_init_fixed.F 84 ECCO_COST_INIT_FIXED 
      nmonsrec = cal_IntMonths( mythid )