Symbol Description Uses
igen_lsc 23


File Line number Procedure Code
./pkg/ecco/cost_gencost_sshv4.F 1070 COST_GENCOST_SSHV4 
     &                      gencost_weight(i,j,bi,bj,igen_lsc)
./pkg/ecco/cost_gencost_sshv4.F 1128 COST_GENCOST_SSHV4 
      if (gencost_outputlevel(igen_lsc).GT.0) then
./pkg/ecco/cost_gencost_sshv4.F 1141 COST_GENCOST_SSHV4 
     &     gencost_posproc_c(k2_lsc,igen_lsc),
./pkg/ecco/cost_gencost_sshv4.F 1142 COST_GENCOST_SSHV4 
     &     gencost_posproc_i(k2_lsc,igen_lsc),mythid)
./pkg/ecco/cost_gencost_sshv4.F 1145 COST_GENCOST_SSHV4 
      if (gencost_outputlevel(igen_lsc).GT.0) then
./pkg/ecco/cost_gencost_sshv4.F 1149 COST_GENCOST_SSHV4 
     &     gencost_posproc_c(k2_lsc,igen_lsc),
./pkg/ecco/cost_gencost_sshv4.F 1150 COST_GENCOST_SSHV4 
     &     gencost_posproc_i(k2_lsc,igen_lsc),mythid)
./pkg/ecco/cost_gencost_sshv4.F 1169 COST_GENCOST_SSHV4 
          if ( (gencost_weight(i,j,bi,bj,igen_lsc).GT.0.).AND.
./pkg/ecco/cost_gencost_sshv4.F 1179 COST_GENCOST_SSHV4 
          objf_gencost(bi,bj,igen_lsc) = objf_gencost(bi,bj,igen_lsc)
./pkg/ecco/cost_gencost_sshv4.F 1180 COST_GENCOST_SSHV4 
     &        + junk*junk*gencost_weight(i,j,bi,bj,igen_lsc)
./pkg/ecco/cost_gencost_sshv4.F 1181 COST_GENCOST_SSHV4 
          if ( (gencost_weight(i,j,bi,bj,igen_lsc).GT.0.).AND.
./pkg/ecco/cost_gencost_sshv4.F 1183 COST_GENCOST_SSHV4 
     &         num_gencost(bi,bj,igen_lsc) =
./pkg/ecco/cost_gencost_sshv4.F 1184 COST_GENCOST_SSHV4 
     &         num_gencost(bi,bj,igen_lsc) + 1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 1190 COST_GENCOST_SSHV4 
      if (gencost_outputlevel(igen_lsc).GT.0) then
./pkg/ecco/cost_gencost_sshv4.F 189 COST_GENCOST_SSHV4 
      igen_lsc=0
./pkg/ecco/cost_gencost_sshv4.F 197 COST_GENCOST_SSHV4 
        if (gencost_name(k).EQ.'sshv4-lsc') igen_lsc=k
./pkg/ecco/cost_gencost_sshv4.F 205 COST_GENCOST_SSHV4 
        if (gencost_posproc(k2,igen_lsc).EQ.'smooth') k2_lsc=k2
./pkg/ecco/cost_gencost_sshv4.F 209 COST_GENCOST_SSHV4 
      call ECCO_ZERO(gencost_weight(:,:,1,1,igen_lsc),1,zeroRL,myThid)
./pkg/ecco/cost_gencost_sshv4.F 216 COST_GENCOST_SSHV4 
      if ( gencost_errfile(igen_lsc) .NE. ' ' )
./pkg/ecco/cost_gencost_sshv4.F 217 COST_GENCOST_SSHV4 
     &     call ECCO_READWEI(gencost_errfile(igen_lsc),
./pkg/ecco/cost_gencost_sshv4.F 218 COST_GENCOST_SSHV4 
     &     gencost_weight(:,:,1,1,igen_lsc),1,1,mythid)
./pkg/ecco/cost_gencost_sshv4.F 78 COST_GENCOST_SSHV4 
      integer igen_mdt, igen_lsc, igen_gmsl