Symbol Description Uses
num_var 207


File Line number Procedure Code
./pkg/profiles/cost_profiles.F 101 COST_PROFILES 
           do num_var=1,NVARMAX
./pkg/profiles/cost_profiles.F 111 COST_PROFILES 
            if (vec_quantities(num_file,num_var,bi,bj).EQV..TRUE.) then
./pkg/profiles/cost_profiles.F 114 COST_PROFILES 
             if (num_var.EQ.6) then
./pkg/profiles/cost_profiles.F 119 COST_PROFILES 
     &         num_var,num_file,mytime,bi,bj,myThid)
./pkg/profiles/cost_profiles.F 125 COST_PROFILES 
     &         num_var,num_file,mytime,bi,bj,myThid)
./pkg/profiles/cost_profiles.F 142 COST_PROFILES 
             if (num_var .le. 2) then
./pkg/profiles/cost_profiles.F 146 COST_PROFILES 
     &         num_var,num_file,mytime,bi,bj,myThid)
./pkg/profiles/cost_profiles.F 151 COST_PROFILES 
     &           ProfDepthNo(num_file,bi,bj),prof_traj1D,num_var,
./pkg/profiles/cost_profiles.F 153 COST_PROFILES 
     &           profiles_dummy(num_file,num_var,bi,bj))
./pkg/profiles/cost_profiles.F 155 COST_PROFILES 
             call PROFILES_READVECTOR(num_file,num_var,
./pkg/profiles/cost_profiles.F 159 COST_PROFILES 
             call PROFILES_READVECTOR(num_file,-num_var,
./pkg/profiles/cost_profiles.F 166 COST_PROFILES 
                 objf_profiles(num_file,num_var,bi,bj)=
./pkg/profiles/cost_profiles.F 167 COST_PROFILES 
     &             objf_profiles(num_file,num_var,bi,bj)
./pkg/profiles/cost_profiles.F 171 COST_PROFILES 
                 num_profiles(num_file,num_var,bi,bj)=
./pkg/profiles/cost_profiles.F 172 COST_PROFILES 
     &               num_profiles(num_file,num_var,bi,bj)
./pkg/profiles/cost_profiles.F 183 COST_PROFILES 
          do num_var=1,NVARMAX
./pkg/profiles/cost_profiles.F 185 COST_PROFILES 
     &      ProfNo(num_file,bi,bj),num_var
./pkg/profiles/cost_profiles.F 188 COST_PROFILES 
           write(msgbuf,'(a,D22.15,D22.15)') prof_names(num_var),
./pkg/profiles/cost_profiles.F 189 COST_PROFILES 
     &      objf_profiles(num_file,num_var,bi,bj),
./pkg/profiles/cost_profiles.F 190 COST_PROFILES 
     &      num_profiles(num_file,num_var,bi,bj)
./pkg/profiles/cost_profiles.F 44 COST_PROFILES 
      integer K,num_file,num_var,prof_num
./pkg/profiles/profiles_init_ncfile.F 31 PROFILES_INIT_NCFILE 
      integer irec, num_var,num_file
./pkg/profiles/profiles_init_ncfile.F 49 PROFILES_INIT_NCFILE 
      do num_var=1,NVARMAX
./pkg/profiles/profiles_init_ncfile.F 50 PROFILES_INIT_NCFILE 
      err = NF_INQ_VARID(fid1,prof_names(num_var), varid0 )
./pkg/profiles/profiles_init_ncfile.F 53 PROFILES_INIT_NCFILE 
      err = NF_DEF_VAR (fid2,prof_names(num_var), NF_DOUBLE,
./pkg/profiles/profiles_init_ncfile.F 54 PROFILES_INIT_NCFILE 
     & 2,vecid,varid(2+(num_var-1)*2))
./pkg/profiles/profiles_init_ncfile.F 55 PROFILES_INIT_NCFILE 
      err = NF_PUT_ATT_DOUBLE(fid2, varid(2+(num_var-1)*2),'_FillValue',
./pkg/profiles/profiles_init_ncfile.F 57 PROFILES_INIT_NCFILE 
      err = NF_DEF_VAR (fid2,prof_namesmask(num_var),
./pkg/profiles/profiles_init_ncfile.F 58 PROFILES_INIT_NCFILE 
     & NF_DOUBLE, 2,vecid, varid(3+(num_var-1)*2))
./pkg/profiles/profiles_init_ncfile.F 59 PROFILES_INIT_NCFILE 
      err = NF_PUT_ATT_DOUBLE(fid2,varid(3+(num_var-1)*2),'_FillValue',
./pkg/profiles/profiles_init_ncfile.F 83 PROFILES_INIT_NCFILE 
       do num_var=prof_num_var_tot(num_file,bi,bj),1,-1
./pkg/profiles/profiles_init_ncfile.F 85 PROFILES_INIT_NCFILE 
     & +num_var-1)*2 +1) tmp_vec
./pkg/profiles/profiles_init_ncfile.F 87 PROFILES_INIT_NCFILE 
     & +num_var-1)*2 +2) tmp_vec
./pkg/profiles/profiles_init_varia.F 45 PROFILES_INIT_VARIA 
      integer num_file,num_var
./pkg/profiles/profiles_init_varia.F 59 PROFILES_INIT_VARIA 
           do num_var=1,NVARMAX
./pkg/profiles/profiles_init_varia.F 60 PROFILES_INIT_VARIA 
            objf_profiles(num_file,num_var,bi,bj)= 0. _d 0
./pkg/profiles/profiles_init_varia.F 61 PROFILES_INIT_VARIA 
            num_profiles(num_file,num_var,bi,bj) = 0. _d 0
./pkg/profiles/profiles_init_varia.F 62 PROFILES_INIT_VARIA 
            profiles_dummy(num_file,num_var,bi,bj)=0. _d 0
./pkg/profiles/profiles_inloop.F 101 PROFILES_INLOOP 
     &      profiles_dummy(num_file,num_var,bi,bj))
./pkg/profiles/profiles_inloop.F 42 PROFILES_INLOOP 
      integer k,bi,bj,prof_num, num_file, num_var
./pkg/profiles/profiles_inloop.F 78 PROFILES_INLOOP 
      do num_var=1,NVARMAX
./pkg/profiles/profiles_inloop.F 83 PROFILES_INLOOP 
      if (vec_quantities(num_file,num_var,bi,bj).EQV..TRUE.) then
./pkg/profiles/profiles_inloop.F 90 PROFILES_INLOOP 
     &        num_var,num_file,mytime,bi,bj,myThid)
./pkg/profiles/profiles_inloop.F 95 PROFILES_INLOOP 
     &        num_var,num_file,mytime,bi,bj,myThid)
./pkg/profiles/profiles_inloop.F 99 PROFILES_INLOOP 
     &      ProfDepthNo(num_file,bi,bj),prof_traj1D,num_var,
./pkg/profiles/profiles_readparms.F 39 PROFILES_READPARMS 
      INTEGER iUnit, num_file, num_var, IL
./pkg/profiles/profiles_readparms.F 77 PROFILES_READPARMS 
         do num_var=1,NVARMAX
./pkg/profiles/profiles_readparms.F 78 PROFILES_READPARMS 
          mult_profiles(num_file,num_var) = 0. _d 0
./pkg/smooth/smooth_readparms.F 32 SMOOTH_READPARMS 
      INTEGER iUnit, num_file, num_var
./pkg/ecco/cost_gencost_sshv4.F 141 COST_GENCOST_SSHV4 
      integer num_var, num0
./pkg/ecco/cost_gencost_sstv4.F 77 COST_GENCOST_SSTV4 
      integer num_var
./pkg/ecco/cost_sshv4.F 1023 COST_SSHV4 
          do num_var=1,NSSHV4COST
./pkg/ecco/cost_sshv4.F 1025 COST_SSHV4 
     &                   + objf_sshv4cost(num_var,bi,bj)
./pkg/ecco/cost_sshv4.F 1027 COST_SSHV4 
     &                   + num_sshv4cost(num_var,bi,bj)
./pkg/ecco/cost_sshv4.F 139 COST_SSHV4 
      integer num_var
./pkg/ecco/ecco_cost_final.F 1113 ECCO_COST_FINAL 
       do num_var=1,NVARMAX
./pkg/ecco/ecco_cost_final.F 1116 ECCO_COST_FINAL 
     &     ' --> f_profiles =',f_profiles(num_file,num_var),
./pkg/ecco/ecco_cost_final.F 1117 ECCO_COST_FINAL 
     &      num_file, num_var
./pkg/ecco/ecco_cost_final.F 1123 ECCO_COST_FINAL 
       do num_var=1,NGENCOST
./pkg/ecco/ecco_cost_final.F 1124 ECCO_COST_FINAL 
        if (no_gencost(num_var).GT.0) then
./pkg/ecco/ecco_cost_final.F 1126 ECCO_COST_FINAL 
     &     ' --> f_gencost =',f_gencost(num_var),
./pkg/ecco/ecco_cost_final.F 1127 ECCO_COST_FINAL 
     &      num_var
./pkg/ecco/ecco_cost_final.F 1132 ECCO_COST_FINAL 
       do num_var=1,NUSERCOST
./pkg/ecco/ecco_cost_final.F 1133 ECCO_COST_FINAL 
        if (no_usercost(num_var).GT.0) then
./pkg/ecco/ecco_cost_final.F 1135 ECCO_COST_FINAL 
     &     ' --> f_usercost =',f_usercost(num_var),
./pkg/ecco/ecco_cost_final.F 1136 ECCO_COST_FINAL 
     &      num_var
./pkg/ecco/ecco_cost_final.F 1141 ECCO_COST_FINAL 
       do num_var=1,NSSHV4COST
./pkg/ecco/ecco_cost_final.F 1142 ECCO_COST_FINAL 
        if (no_sshv4cost(num_var).GT.0) then
./pkg/ecco/ecco_cost_final.F 1144 ECCO_COST_FINAL 
     &     ' --> f_sshv4cost =',f_sshv4cost(num_var),
./pkg/ecco/ecco_cost_final.F 1145 ECCO_COST_FINAL 
     &      num_var
./pkg/ecco/ecco_cost_final.F 1150 ECCO_COST_FINAL 
       do num_var=1,maxCtrlTim2D
./pkg/ecco/ecco_cost_final.F 1151 ECCO_COST_FINAL 
        if (no_gentim2d(num_var).GT.0) then
./pkg/ecco/ecco_cost_final.F 1153 ECCO_COST_FINAL 
     &     ' --> f_gentim2d =',f_gentim2d(num_var),
./pkg/ecco/ecco_cost_final.F 1154 ECCO_COST_FINAL 
     &      num_var
./pkg/ecco/ecco_cost_final.F 1394 ECCO_COST_FINAL 
       do num_var=1,NVARMAX
./pkg/ecco/ecco_cost_final.F 1399 ECCO_COST_FINAL 
     &    profilesfiles(num_file)(1:IL),' ',prof_names(num_var), ' = ',
./pkg/ecco/ecco_cost_final.F 1400 ECCO_COST_FINAL 
     &    f_profiles(num_file,num_var),
./pkg/ecco/ecco_cost_final.F 1401 ECCO_COST_FINAL 
     &    no_profiles(num_file,num_var)
./pkg/ecco/ecco_cost_final.F 1407 ECCO_COST_FINAL 
       do num_var=1,NGENCOST
./pkg/ecco/ecco_cost_final.F 1408 ECCO_COST_FINAL 
        if (no_gencost(num_var).GT.0) then
./pkg/ecco/ecco_cost_final.F 1409 ECCO_COST_FINAL 
         IL  = ILNBLNK( gencost_name(num_var) )
./pkg/ecco/ecco_cost_final.F 1412 ECCO_COST_FINAL 
     &    gencost_name(num_var)(1:IL),' (gencost ', num_var, ') = ',
./pkg/ecco/ecco_cost_final.F 1413 ECCO_COST_FINAL 
     &    f_gencost(num_var),
./pkg/ecco/ecco_cost_final.F 1414 ECCO_COST_FINAL 
     &    no_gencost(num_var)
./pkg/ecco/ecco_cost_final.F 1419 ECCO_COST_FINAL 
       do num_var=1,NUSERCOST
./pkg/ecco/ecco_cost_final.F 1420 ECCO_COST_FINAL 
        if (no_usercost(num_var).GT.0) then
./pkg/ecco/ecco_cost_final.F 1422 ECCO_COST_FINAL 
     &    'usercost', num_var, ' = ',
./pkg/ecco/ecco_cost_final.F 1423 ECCO_COST_FINAL 
     &    f_usercost(num_var),
./pkg/ecco/ecco_cost_final.F 1424 ECCO_COST_FINAL 
     &    no_usercost(num_var)
./pkg/ecco/ecco_cost_final.F 1429 ECCO_COST_FINAL 
       do num_var=1,NSSHV4COST
./pkg/ecco/ecco_cost_final.F 1430 ECCO_COST_FINAL 
        if (no_sshv4cost(num_var).GT.0) then
./pkg/ecco/ecco_cost_final.F 1432 ECCO_COST_FINAL 
     &    'sshv4cost', num_var, ' = ',
./pkg/ecco/ecco_cost_final.F 1433 ECCO_COST_FINAL 
     &    f_sshv4cost(num_var),
./pkg/ecco/ecco_cost_final.F 1434 ECCO_COST_FINAL 
     &    no_sshv4cost(num_var)
./pkg/ecco/ecco_cost_final.F 1440 ECCO_COST_FINAL 
       do num_var=1,maxCtrlTim2D
./pkg/ecco/ecco_cost_final.F 1441 ECCO_COST_FINAL 
        if (no_gentim2d(num_var).GT.0) then
./pkg/ecco/ecco_cost_final.F 1442 ECCO_COST_FINAL 
         IL  = ILNBLNK( xx_gentim2d_file(num_var) )
./pkg/ecco/ecco_cost_final.F 1445 ECCO_COST_FINAL 
     &    xx_gentim2d_file(num_var)(1:IL),
./pkg/ecco/ecco_cost_final.F 1446 ECCO_COST_FINAL 
     &    ' (gentim2d ', num_var, ') = ',
./pkg/ecco/ecco_cost_final.F 1447 ECCO_COST_FINAL 
     &    f_gentim2d(num_var),
./pkg/ecco/ecco_cost_final.F 1448 ECCO_COST_FINAL 
     &    no_gentim2d(num_var)
./pkg/ecco/ecco_cost_final.F 255 ECCO_COST_FINAL 
       do num_var=1,NVARMAX
./pkg/ecco/ecco_cost_final.F 256 ECCO_COST_FINAL 
        f_profiles(num_file,num_var)= 0. _d 0
./pkg/ecco/ecco_cost_final.F 261 ECCO_COST_FINAL 
       do num_var=1,NGENCOST
./pkg/ecco/ecco_cost_final.F 262 ECCO_COST_FINAL 
        f_gencost(num_var)= 0. _d 0
./pkg/ecco/ecco_cost_final.F 266 ECCO_COST_FINAL 
       do num_var=1,NUSERCOST
./pkg/ecco/ecco_cost_final.F 267 ECCO_COST_FINAL 
        f_usercost(num_var)= 0. _d 0
./pkg/ecco/ecco_cost_final.F 271 ECCO_COST_FINAL 
       do num_var=1,NSSHV4COST
./pkg/ecco/ecco_cost_final.F 272 ECCO_COST_FINAL 
        f_sshv4cost(num_var)= 0. _d 0
./pkg/ecco/ecco_cost_final.F 276 ECCO_COST_FINAL 
       do num_var=1,maxCtrlTim2D
./pkg/ecco/ecco_cost_final.F 356 ECCO_COST_FINAL 
       do num_var=1,NVARMAX
./pkg/ecco/ecco_cost_final.F 357 ECCO_COST_FINAL 
        no_profiles(num_file,num_var)= 0. _d 0
./pkg/ecco/ecco_cost_final.F 362 ECCO_COST_FINAL 
       do num_var=1,NGENCOST
./pkg/ecco/ecco_cost_final.F 363 ECCO_COST_FINAL 
        no_gencost(num_var)= 0. _d 0
./pkg/ecco/ecco_cost_final.F 367 ECCO_COST_FINAL 
       do num_var=1,NUSERCOST
./pkg/ecco/ecco_cost_final.F 368 ECCO_COST_FINAL 
        no_usercost(num_var)= 0. _d 0
./pkg/ecco/ecco_cost_final.F 372 ECCO_COST_FINAL 
       do num_var=1,NSSHV4COST
./pkg/ecco/ecco_cost_final.F 373 ECCO_COST_FINAL 
        no_sshv4cost(num_var)= 0. _d 0
./pkg/ecco/ecco_cost_final.F 377 ECCO_COST_FINAL 
       do num_var=1,maxCtrlTim2D
./pkg/ecco/ecco_cost_final.F 463 ECCO_COST_FINAL 
       do num_var=1,NVARMAX
./pkg/ecco/ecco_cost_final.F 465 ECCO_COST_FINAL 
     &            + mult_profiles(num_file,num_var)
./pkg/ecco/ecco_cost_final.F 466 ECCO_COST_FINAL 
     &            *objf_profiles(num_file,num_var,bi,bj)
./pkg/ecco/ecco_cost_final.F 471 ECCO_COST_FINAL 
       do num_var=1,NGENCOST
./pkg/ecco/ecco_cost_final.F 473 ECCO_COST_FINAL 
     &            + mult_gencost(num_var)
./pkg/ecco/ecco_cost_final.F 474 ECCO_COST_FINAL 
     &            *objf_gencost(bi,bj,num_var)
./pkg/ecco/ecco_cost_final.F 478 ECCO_COST_FINAL 
       do num_var=1,NUSERCOST
./pkg/ecco/ecco_cost_final.F 480 ECCO_COST_FINAL 
     &            + mult_usercost(num_var)
./pkg/ecco/ecco_cost_final.F 481 ECCO_COST_FINAL 
     &            *objf_usercost(num_var,bi,bj)
./pkg/ecco/ecco_cost_final.F 485 ECCO_COST_FINAL 
       do num_var=1,NSSHV4COST
./pkg/ecco/ecco_cost_final.F 487 ECCO_COST_FINAL 
     &            + mult_sshv4cost(num_var)
./pkg/ecco/ecco_cost_final.F 488 ECCO_COST_FINAL 
     &            *objf_sshv4cost(num_var,bi,bj)
./pkg/ecco/ecco_cost_final.F 492 ECCO_COST_FINAL 
       do num_var=1,maxCtrlTim2D
./pkg/ecco/ecco_cost_final.F 494 ECCO_COST_FINAL 
     &            + mult_gentim2d(num_var)
./pkg/ecco/ecco_cost_final.F 495 ECCO_COST_FINAL 
     &            *objf_gentim2d(bi,bj,num_var)
./pkg/ecco/ecco_cost_final.F 55 ECCO_COST_FINAL 
      integer num_file,num_var
./pkg/ecco/ecco_cost_final.F 586 ECCO_COST_FINAL 
       do num_var=1,NVARMAX
./pkg/ecco/ecco_cost_final.F 587 ECCO_COST_FINAL 
          f_profiles(num_file,num_var)=f_profiles(num_file,num_var)
./pkg/ecco/ecco_cost_final.F 588 ECCO_COST_FINAL 
     &            +objf_profiles(num_file,num_var,bi,bj)
./pkg/ecco/ecco_cost_final.F 593 ECCO_COST_FINAL 
       do num_var=1,NGENCOST
./pkg/ecco/ecco_cost_final.F 594 ECCO_COST_FINAL 
          f_gencost(num_var)=f_gencost(num_var)
./pkg/ecco/ecco_cost_final.F 595 ECCO_COST_FINAL 
     &            +objf_gencost(bi,bj,num_var)
./pkg/ecco/ecco_cost_final.F 599 ECCO_COST_FINAL 
       do num_var=1,NUSERCOST
./pkg/ecco/ecco_cost_final.F 600 ECCO_COST_FINAL 
          f_usercost(num_var)=f_usercost(num_var)
./pkg/ecco/ecco_cost_final.F 601 ECCO_COST_FINAL 
     &            +objf_usercost(num_var,bi,bj)
./pkg/ecco/ecco_cost_final.F 605 ECCO_COST_FINAL 
       do num_var=1,NSSHV4COST
./pkg/ecco/ecco_cost_final.F 606 ECCO_COST_FINAL 
          f_sshv4cost(num_var)=f_sshv4cost(num_var)
./pkg/ecco/ecco_cost_final.F 607 ECCO_COST_FINAL 
     &            +objf_sshv4cost(num_var,bi,bj)
./pkg/ecco/ecco_cost_final.F 611 ECCO_COST_FINAL 
       do num_var=1,maxCtrlTim2D
./pkg/ecco/ecco_cost_final.F 612 ECCO_COST_FINAL 
          f_gentim2d(num_var) = f_gentim2d(num_var)
./pkg/ecco/ecco_cost_final.F 613 ECCO_COST_FINAL 
     &            +objf_gentim2d(bi,bj,num_var)
./pkg/ecco/ecco_cost_final.F 688 ECCO_COST_FINAL 
       do num_var=1,NVARMAX
./pkg/ecco/ecco_cost_final.F 689 ECCO_COST_FINAL 
          no_profiles(num_file,num_var)=no_profiles(num_file,num_var)
./pkg/ecco/ecco_cost_final.F 690 ECCO_COST_FINAL 
     &            +num_profiles(num_file,num_var,bi,bj)
./pkg/ecco/ecco_cost_final.F 695 ECCO_COST_FINAL 
       do num_var=1,NGENCOST
./pkg/ecco/ecco_cost_final.F 696 ECCO_COST_FINAL 
          no_gencost(num_var)=no_gencost(num_var)
./pkg/ecco/ecco_cost_final.F 697 ECCO_COST_FINAL 
     &            +num_gencost(bi,bj,num_var)
./pkg/ecco/ecco_cost_final.F 701 ECCO_COST_FINAL 
       do num_var=1,NUSERCOST
./pkg/ecco/ecco_cost_final.F 702 ECCO_COST_FINAL 
          no_usercost(num_var)=no_usercost(num_var)
./pkg/ecco/ecco_cost_final.F 703 ECCO_COST_FINAL 
     &            +num_usercost(num_var,bi,bj)
./pkg/ecco/ecco_cost_final.F 707 ECCO_COST_FINAL 
       do num_var=1,NSSHV4COST
./pkg/ecco/ecco_cost_final.F 708 ECCO_COST_FINAL 
          no_sshv4cost(num_var)=no_sshv4cost(num_var)
./pkg/ecco/ecco_cost_final.F 709 ECCO_COST_FINAL 
     &            +num_sshv4cost(num_var,bi,bj)
./pkg/ecco/ecco_cost_final.F 713 ECCO_COST_FINAL 
       do num_var=1,maxCtrlTim2D
./pkg/ecco/ecco_cost_final.F 714 ECCO_COST_FINAL 
          no_gentim2d(num_var) = no_gentim2d(num_var)
./pkg/ecco/ecco_cost_final.F 715 ECCO_COST_FINAL 
     &            +num_gentim2d(bi,bj,num_var)
./pkg/ecco/ecco_cost_final.F 820 ECCO_COST_FINAL 
       do num_var=1,NVARMAX
./pkg/ecco/ecco_cost_final.F 821 ECCO_COST_FINAL 
        _GLOBAL_SUM_RL(f_profiles(num_file,num_var), myThid )
./pkg/ecco/ecco_cost_final.F 826 ECCO_COST_FINAL 
       do num_var=1,NGENCOST
./pkg/ecco/ecco_cost_final.F 827 ECCO_COST_FINAL 
        _GLOBAL_SUM_RL(f_gencost(num_var), myThid )
./pkg/ecco/ecco_cost_final.F 831 ECCO_COST_FINAL 
       do num_var=1,NUSERCOST
./pkg/ecco/ecco_cost_final.F 832 ECCO_COST_FINAL 
        _GLOBAL_SUM_RL(f_usercost(num_var), myThid )
./pkg/ecco/ecco_cost_final.F 836 ECCO_COST_FINAL 
       do num_var=1,NSSHV4COST
./pkg/ecco/ecco_cost_final.F 837 ECCO_COST_FINAL 
        _GLOBAL_SUM_RL(f_sshv4cost(num_var), myThid )
./pkg/ecco/ecco_cost_final.F 841 ECCO_COST_FINAL 
       do num_var=1,maxCtrlTim2D
./pkg/ecco/ecco_cost_final.F 842 ECCO_COST_FINAL 
        _GLOBAL_SUM_RL(f_gentim2d(num_var), myThid )
./pkg/ecco/ecco_cost_final.F 917 ECCO_COST_FINAL 
       do num_var=1,NVARMAX
./pkg/ecco/ecco_cost_final.F 918 ECCO_COST_FINAL 
        _GLOBAL_SUM_RL(no_profiles(num_file,num_var), myThid )
./pkg/ecco/ecco_cost_final.F 923 ECCO_COST_FINAL 
       do num_var=1,NGENCOST
./pkg/ecco/ecco_cost_final.F 924 ECCO_COST_FINAL 
        _GLOBAL_SUM_RL(no_gencost(num_var), myThid )
./pkg/ecco/ecco_cost_final.F 928 ECCO_COST_FINAL 
       do num_var=1,NUSERCOST
./pkg/ecco/ecco_cost_final.F 929 ECCO_COST_FINAL 
        _GLOBAL_SUM_RL(no_usercost(num_var), myThid )
./pkg/ecco/ecco_cost_final.F 933 ECCO_COST_FINAL 
       do num_var=1,NSSHV4COST
./pkg/ecco/ecco_cost_final.F 934 ECCO_COST_FINAL 
        _GLOBAL_SUM_RL(no_sshv4cost(num_var), myThid )
./pkg/ecco/ecco_cost_final.F 938 ECCO_COST_FINAL 
       do num_var=1,maxCtrlTim2D
./pkg/ecco/ecco_cost_final.F 939 ECCO_COST_FINAL 
        _GLOBAL_SUM_RL(no_gentim2d(num_var), myThid )
./pkg/ecco/ecco_cost_init_varia.F 50 ECCO_COST_INIT_VARIA 
      integer num_file,num_var
./pkg/ecco/ecco_cost_weights.F 147 ECCO_COST_WEIGHTS 
              do num_var=1,NSSHV4COST
./pkg/ecco/ecco_cost_weights.F 148 ECCO_COST_WEIGHTS 
                wsshv4  (i,j,num_var,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 59 ECCO_COST_WEIGHTS 
      integer num_var
./pkg/ecco/ecco_cost_weights.F 758 ECCO_COST_WEIGHTS 
      do num_var=1,NSSHV4COST
./pkg/ecco/ecco_cost_weights.F 760 ECCO_COST_WEIGHTS 
      if ( sshv4cost_errfile(num_var) .NE. ' ' ) then
./pkg/ecco/ecco_cost_weights.F 762 ECCO_COST_WEIGHTS 
      call MDSREADFIELD( sshv4cost_errfile(num_var),
./pkg/ecco/ecco_cost_weights.F 770 ECCO_COST_WEIGHTS 
     &           *sshv4cost_errfactor(num_var)
./pkg/ecco/ecco_cost_weights.F 794 ECCO_COST_WEIGHTS 
        wsshv4(i,j,num_var,bi,bj)=wsshv4tmp(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 802 ECCO_COST_WEIGHTS 
     &   num_var, 0, mythid, dummy)
./pkg/ecco/ecco_readparms.F 38 ECCO_READPARMS 
      INTEGER k, iUnit, num_file, num_var