Symbol Description Uses
nmonsrec 60


File Line number Procedure Code
./pkg/ecco/cost_argo_salt.F 123 COST_ARGO_SALT 
      do irec = 1,nmonsrec
./pkg/ecco/cost_argo_theta.F 126 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 123 COST_CTDS 
      do irec = 1,nmonsrec
./pkg/ecco/cost_ctdsclim.F 123 COST_CTDSCLIM 
         nyears=int((nmonsrec-irec)/12)+1
./pkg/ecco/cost_ctdsclim.F 154 COST_CTDSCLIM 
      do irec = 1,nmonsrec
./pkg/ecco/cost_ctdsclim.F 273 COST_CTDSCLIM 
     &                ' been processed: ',nmonsrec
./pkg/ecco/cost_ctdt.F 124 COST_CTDT 
      do irec = 1,nmonsrec
./pkg/ecco/cost_ctdtclim.F 122 COST_CTDTCLIM 
         nyears=int((nmonsrec-irec)/12)+1
./pkg/ecco/cost_ctdtclim.F 153 COST_CTDTCLIM 
      do irec = 1,nmonsrec
./pkg/ecco/cost_ctdtclim.F 274 COST_CTDTCLIM 
     &                ' been processed: ',nmonsrec
./pkg/ecco/cost_curmtr.F 111 COST_CURMTR 
     &  ' cost_Curmtr: number of records to process =', nmonsrec
./pkg/ecco/cost_curmtr.F 134 COST_CURMTR 
      do irec = 1,nmonsrec
./pkg/ecco/cost_drift.F 134 COST_DRIFT 
      nfmin = MAX(INT(FLOAT(nmonsrec)/12.),1)
./pkg/ecco/cost_drift.F 136 COST_DRIFT 
      minrec = MIN(nmonsrec,12)
./pkg/ecco/cost_drift.F 170 COST_DRIFT 
      do irec = nmonsrec-minrec+1, nmonsrec
./pkg/ecco/cost_drifter.F 148 COST_DRIFTER 
         do irec = 1,nmonsrec
./pkg/ecco/cost_drifter.F 166 COST_DRIFTER 
            elseif(irec.eq.nmonsrec)then
./pkg/ecco/cost_drifter.F 167 COST_DRIFTER 
               udmod(i,j,bi,bj)=udmod(i,j,bi,bj)/float(nmonsrec)
./pkg/ecco/cost_drifter.F 168 COST_DRIFTER 
               vdmod(i,j,bi,bj)=vdmod(i,j,bi,bj)/float(nmonsrec)
./pkg/ecco/cost_driftw.F 122 COST_DRIFTW 
      nfmin = MAX(INT(FLOAT(nmonsrec)/12.),1)
./pkg/ecco/cost_driftw.F 124 COST_DRIFTW 
      minrec = MIN(nmonsrec,12)
./pkg/ecco/cost_driftw.F 151 COST_DRIFTW 
      do irec = nmonsrec-minrec+1, nmonsrec
./pkg/ecco/cost_gencost_boxmean.F 110 COST_GENCOST_BOXMEAN 
      do irec = 1,nmonsrec
./pkg/ecco/cost_gencost_boxmean.F 131 COST_GENCOST_BOXMEAN 
      do irec = 1,nmonsrec
./pkg/ecco/cost_hyd.F 143 COST_HYD 
     &     nmonsrec, tmistartdate, localperiod,
./pkg/ecco/cost_hyd.F 165 COST_HYD 
     &     nmonsrec, sssstartdate, localperiod,
./pkg/ecco/cost_hyd.F 78 COST_HYD 
     &     nmonsrec, sststartdate, localperiod,
./pkg/ecco/cost_obcs_ageos.F 118 COST_OBCS_AGEOS 
     &    ' cost_obcs_ageos: number of records to process = ',nmonsrec
./pkg/ecco/cost_obcs_ageos.F 176 COST_OBCS_AGEOS 
      do irec = 1,nmonsrec
./pkg/ecco/cost_salt.F 117 COST_SALT 
      do irec = 1,min(nmonsrec,12)
./pkg/ecco/cost_salt.F 118 COST_SALT 
         nyears=int((nmonsrec-irec)/12)+1
./pkg/ecco/cost_salt.F 153 COST_SALT 
      do irec = 1,nmonsrec
./pkg/ecco/cost_scat.F 116 COST_SCAT 
      do irec = 1,nmonsrec
./pkg/ecco/cost_scat.F 266 COST_SCAT 
     &                ' been processed: ',nmonsrec
./pkg/ecco/cost_sigmar.F 119 COST_SIGMAR 
      do irec = 1,min(nmonsrec,12)
./pkg/ecco/cost_sigmar.F 120 COST_SIGMAR 
         nyears=int((nmonsrec-irec)/12)+1
./pkg/ecco/cost_theta.F 117 COST_THETA 
      do irec = 1,min(nmonsrec,12)
./pkg/ecco/cost_theta.F 118 COST_THETA 
         nyears=int((nmonsrec-irec)/12)+1
./pkg/ecco/cost_theta.F 153 COST_THETA 
      do irec = 1,nmonsrec
./pkg/ecco/cost_trans_merid.F 162 COST_TRANS_MERID 
      do irec = 1, nmonsrec
./pkg/ecco/cost_trans_zonal.F 151 COST_TRANS_ZONAL 
      do irec = 1, nmonsrec
./pkg/ecco/cost_xbt.F 128 COST_XBT 
      do irec = 1,nmonsrec
./pkg/ecco/ecco_check.F 228 ECCO_CHECK_FILES 
        DO irec = 1, nmonsrec
./pkg/ecco/ecco_cost.h 941 NO PROCEDURE 
     &                nmonsrec,
./pkg/ecco/ecco_cost.h 949 NO PROCEDURE 
      integer nmonsrec
./pkg/ecco/ecco_cost_init_barfiles.F 166 ECCO_COST_INIT_BARFILES 
      do irec = 1, nmonsrec
./pkg/ecco/ecco_cost_init_barfiles.F 183 ECCO_COST_INIT_BARFILES 
      do irec = 1,nmonsrec
./pkg/ecco/ecco_cost_init_barfiles.F 204 ECCO_COST_INIT_BARFILES 
      do irec = 1,nmonsrec
./pkg/ecco/ecco_cost_init_barfiles.F 218 ECCO_COST_INIT_BARFILES 
      do irec = 1,nmonsrec
./pkg/ecco/ecco_cost_init_barfiles.F 257 ECCO_COST_INIT_BARFILES 
      do irec = 1,nmonsrec
./pkg/ecco/ecco_cost_init_barfiles.F 272 ECCO_COST_INIT_BARFILES 
      do irec = 1,nmonsrec
./pkg/ecco/ecco_cost_init_barfiles.F 299 ECCO_COST_INIT_BARFILES 
      do irec = 1,nmonsrec
./pkg/ecco/ecco_cost_init_barfiles.F 317 ECCO_COST_INIT_BARFILES 
      do irec = 1,nmonsrec
./pkg/ecco/ecco_cost_init_barfiles.F 341 ECCO_COST_INIT_BARFILES 
      do irec = 1, nmonsrec
./pkg/ecco/ecco_cost_init_fixed.F 155 ECCO_COST_INIT_FIXED 
            gencost_nrec(k)   =nmonsrec
./pkg/ecco/ecco_cost_init_fixed.F 83 ECCO_COST_INIT_FIXED 
      nmonsrec = cal_IntMonths( mythid )