Symbol Description Uses
nmonsrec 59


File Line number Procedure Code
./pkg/ecco/cost_obcs_ageos.F 122 COST_OBCS_AGEOS 
     &    ' cost_obcs_ageos: number of records to process = ',nmonsrec
./pkg/ecco/cost_obcs_ageos.F 180 COST_OBCS_AGEOS 
      do irec = 1,nmonsrec
./pkg/ecco/cost_xbt.F 126 COST_XBT 
      do irec = 1,nmonsrec
./pkg/ecco/cost_drifter.F 144 COST_DRIFTER 
         do irec = 1,nmonsrec
./pkg/ecco/cost_drifter.F 162 COST_DRIFTER 
            elseif(irec.eq.nmonsrec)then
./pkg/ecco/cost_drifter.F 163 COST_DRIFTER 
               udmod(i,j,bi,bj)=udmod(i,j,bi,bj)/float(nmonsrec)
./pkg/ecco/cost_drifter.F 164 COST_DRIFTER 
               vdmod(i,j,bi,bj)=vdmod(i,j,bi,bj)/float(nmonsrec)
./pkg/ecco/cost_salt.F 120 COST_SALT 
         nyears=int((nmonsrec-irec)/12)+1
./pkg/ecco/cost_salt.F 151 COST_SALT 
      do irec = 1,nmonsrec
./pkg/ecco/cost_salt.F 284 COST_SALT 
     &                ' been processed: ',nmonsrec
./pkg/ecco/cost_obcsn.F 103 COST_OBCSN 
      do irec = 1,nmonsrec
./pkg/ecco/cost_mean_heatflux.F 193 COST_MEAN_HEATFLUX 
     &                ' been processed: ',nmonsrec
./pkg/ecco/ecco_cost_init_barfiles.F 162 ECCO_COST_INIT_BARFILES 
      do irec = 1,nmonsrec
./pkg/ecco/ecco_cost_init_barfiles.F 178 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 218 ECCO_COST_INIT_BARFILES 
      do irec = 1,nmonsrec
./pkg/ecco/ecco_cost_init_barfiles.F 247 ECCO_COST_INIT_BARFILES 
      do irec = 1,nmonsrec
./pkg/ecco/ecco_cost_init_barfiles.F 269 ECCO_COST_INIT_BARFILES 
      do irec = 1,nmonsrec
./pkg/ecco/ecco_cost_init_barfiles.F 292 ECCO_COST_INIT_BARFILES 
      do irec = 1, nmonsrec
./pkg/ecco/cost_ctdtclim.F 120 COST_CTDTCLIM 
         nyears=int((nmonsrec-irec)/12)+1
./pkg/ecco/cost_ctdtclim.F 151 COST_CTDTCLIM 
      do irec = 1,nmonsrec
./pkg/ecco/cost_ctdtclim.F 284 COST_CTDTCLIM 
     &                ' been processed: ',nmonsrec
./pkg/ecco/cost_tmi.F 106 COST_TMI 
      do irec = 1,nmonsrec
./pkg/ecco/cost_tmi.F 219 COST_TMI 
     &                ' been processed: ',nmonsrec
./pkg/ecco/cost_mean_saltflux.F 193 COST_MEAN_SALTFLUX 
     &                ' been processed: ',nmonsrec
./pkg/ecco/cost_argo_theta.F 124 COST_ARGO_THETA 
      do irec = 1,nmonsrec
./pkg/ecco/cost_ctdsclim.F 121 COST_CTDSCLIM 
         nyears=int((nmonsrec-irec)/12)+1
./pkg/ecco/cost_ctdsclim.F 152 COST_CTDSCLIM 
      do irec = 1,nmonsrec
./pkg/ecco/cost_ctdsclim.F 284 COST_CTDSCLIM 
     &                ' been processed: ',nmonsrec
./pkg/ecco/cost_sss.F 106 COST_SSS 
      do irec = 1,nmonsrec
./pkg/ecco/cost_sss.F 222 COST_SSS 
     &                ' been processed: ',nmonsrec
./pkg/ecco/cost_argo_salt.F 121 COST_ARGO_SALT 
      do irec = 1,nmonsrec
./pkg/ecco/cost_ctdt.F 122 COST_CTDT 
      do irec = 1,nmonsrec
./pkg/ecco/cost_trans_zonal.F 147 COST_TRANS_ZONAL 
      do irec = 1, nmonsrec
./pkg/ecco/cost_obcss.F 103 COST_OBCSS 
      do irec = 1,nmonsrec
./pkg/ecco/cost_obcsw.F 103 COST_OBCSW 
      do irec = 1,nmonsrec
./pkg/ecco/ecco_cost.h 590 NO PROCEDURE 
     &                nmonsrec,
./pkg/ecco/ecco_cost.h 592 NO PROCEDURE 
      integer nmonsrec
./pkg/ecco/cost_theta.F 119 COST_THETA 
         nyears=int((nmonsrec-irec)/12)+1
./pkg/ecco/cost_theta.F 150 COST_THETA 
      do irec = 1,nmonsrec
./pkg/ecco/cost_theta.F 283 COST_THETA 
     &                ' been processed: ',nmonsrec
./pkg/ecco/cost_driftw.F 101 COST_DRIFTW 
      if (nmonsrec.lt.12) then
./pkg/ecco/cost_driftw.F 152 COST_DRIFTW 
      do irec = nmonsrec-12+1, nmonsrec
./pkg/ecco/cost_driftw.F 265 COST_DRIFTW 
     &                ' been processed: ',nmonsrec
./pkg/ecco/cost_sst.F 106 COST_SST 
      do irec = 1,nmonsrec
./pkg/ecco/cost_sst.F 221 COST_SST 
     &                ' been processed: ',nmonsrec
./pkg/ecco/cost_ctds.F 121 COST_CTDS 
      do irec = 1,nmonsrec
./pkg/ecco/cost_trans_merid.F 158 COST_TRANS_MERID 
      do irec = 1, nmonsrec
./pkg/ecco/cost_scat.F 106 COST_SCAT 
      do irec = 1,nmonsrec
./pkg/ecco/cost_scat.F 234 COST_SCAT 
     &                ' been processed: ',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 178 COST_DRIFT 
      do irec = nmonsrec-minrec+1, nmonsrec
./pkg/ecco/ecco_cost_init_fixed.F 68 ECCO_COST_INIT_FIXED 
      nmonsrec = cal_IntMonths( mythid )
./pkg/ecco/cost_obcse.F 103 COST_OBCSE 
      do irec = 1,nmonsrec
./pkg/ecco/cost_curmtr.F 109 COST_CURMTR 
     &  ' cost_Curmtr: number of records to process =', nmonsrec
./pkg/ecco/cost_curmtr.F 132 COST_CURMTR 
      do irec = 1,nmonsrec