Symbol Description Uses
num_file 249


File Line number Procedure Code
./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 119 COST_PROFILES 
     &         num_var,num_file,mytime,bi,bj,myThid)
./pkg/profiles/cost_profiles.F 123 COST_PROFILES 
     &         prof_lon(num_file,prof_num,bi,bj),
./pkg/profiles/cost_profiles.F 124 COST_PROFILES 
     &         prof_lat(num_file,prof_num,bi,bj),
./pkg/profiles/cost_profiles.F 125 COST_PROFILES 
     &         num_var,num_file,mytime,bi,bj,myThid)
./pkg/profiles/cost_profiles.F 131 COST_PROFILES 
              do K=1,ProfDepthNo(num_file,bi,bj)
./pkg/profiles/cost_profiles.F 144 COST_PROFILES 
     &         prof_lon(num_file,prof_num,bi,bj),
./pkg/profiles/cost_profiles.F 145 COST_PROFILES 
     &         prof_lat(num_file,prof_num,bi,bj),
./pkg/profiles/cost_profiles.F 146 COST_PROFILES 
     &         num_var,num_file,mytime,bi,bj,myThid)
./pkg/profiles/cost_profiles.F 150 COST_PROFILES 
             call ACTIVE_READ_PROFILE(num_file,
./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 156 COST_PROFILES 
     &           prof_ind_glob(num_file,prof_num,bi,bj),
./pkg/profiles/cost_profiles.F 157 COST_PROFILES 
     &           ProfDepthNo(num_file,bi,bj),prof_data1D,bi,bj,myThid)
./pkg/profiles/cost_profiles.F 159 COST_PROFILES 
             call PROFILES_READVECTOR(num_file,-num_var,
./pkg/profiles/cost_profiles.F 160 COST_PROFILES 
     &           prof_ind_glob(num_file,prof_num,bi,bj),
./pkg/profiles/cost_profiles.F 161 COST_PROFILES 
     &           ProfDepthNo(num_file,bi,bj),
./pkg/profiles/cost_profiles.F 164 COST_PROFILES 
             do K=1,ProfDepthNo(num_file,bi,bj)
./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 182 COST_PROFILES 
         if (ProfNo(num_file,bi,bj).GT.0) then
./pkg/profiles/cost_profiles.F 185 COST_PROFILES 
     &      ProfNo(num_file,bi,bj),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/cost_profiles.F 68 COST_PROFILES 
        do num_file=1,NFILESPROFMAX
./pkg/profiles/cost_profiles.F 69 COST_PROFILES 
         fid=fiddata(num_file,bi,bj)
./pkg/profiles/cost_profiles.F 71 COST_PROFILES 
         if ( (ProfNo(num_file,bi,bj).GT.0).AND.
./pkg/profiles/cost_profiles.F 74 COST_PROFILES 
           err = NF_CLOSE(fidforward(num_file,bi,bj))
./pkg/profiles/cost_profiles.F 78 COST_PROFILES 
           IL  = ILNBLNK( profilesfiles(num_file) )
./pkg/profiles/cost_profiles.F 80 COST_PROFILES 
     &     profilesfiles(num_file)(1:IL)
./pkg/profiles/cost_profiles.F 87 COST_PROFILES 
     &     fidforward(num_file,bi,bj))
./pkg/profiles/cost_profiles.F 91 COST_PROFILES 
          if (prof_num.LE.ProfNo(num_file,bi,bj)) then
./pkg/profiles/cost_profiles.F 95 COST_PROFILES 
            prof_i1D(k)= prof_interp_i(num_file,prof_num,k,bi,bj)
./pkg/profiles/cost_profiles.F 96 COST_PROFILES 
            prof_j1D(k)= prof_interp_j(num_file,prof_num,k,bi,bj)
./pkg/profiles/cost_profiles.F 97 COST_PROFILES 
            prof_w1D(k)= prof_interp_weights(num_file,prof_num,k,bi,bj)
./pkg/profiles/profiles_init_fixed.F 173 PROFILES_INIT_FIXED 
        do num_file=1,NFILESPROFMAX
./pkg/profiles/profiles_init_fixed.F 179 PROFILES_INIT_FIXED 
      IL  = ILNBLNK( profilesfiles(num_file) )
./pkg/profiles/profiles_init_fixed.F 182 PROFILES_INIT_FIXED 
     &     profilesfiles(num_file)(1:IL)
./pkg/profiles/profiles_init_fixed.F 184 PROFILES_INIT_FIXED 
     &     'profiles file ',num_file,' is ', profilesfile(1:80)
./pkg/profiles/profiles_init_fixed.F 190 PROFILES_INIT_FIXED 
     &     'profiles file ',num_file,' is ',' (empty) '
./pkg/profiles/profiles_init_fixed.F 206 PROFILES_INIT_FIXED 
      err = NF_OPEN(fnamedatanc, 0, fiddata(num_file,bi,bj))
./pkg/profiles/profiles_init_fixed.F 209 PROFILES_INIT_FIXED 
      fid=fiddata(num_file,bi,bj)
./pkg/profiles/profiles_init_fixed.F 211 PROFILES_INIT_FIXED 
      err = NF_INQ_DIMLEN(fid, dimid, ProfNo(num_file,bi,bj) )
./pkg/profiles/profiles_init_fixed.F 216 PROFILES_INIT_FIXED 
      err = NF_INQ_DIMLEN(fid, dimid, ProfDepthNo(num_file,bi,bj) )
./pkg/profiles/profiles_init_fixed.F 223 PROFILES_INIT_FIXED 
     &   '  no. of depth levels   ',ProfDepthNo(num_file,bi,bj)
./pkg/profiles/profiles_init_fixed.F 227 PROFILES_INIT_FIXED 
     &   '  no. of profiles   ', ProfNo(num_file,bi,bj)
./pkg/profiles/profiles_init_fixed.F 247 PROFILES_INIT_FIXED 
      do k=1,ProfDepthNo(num_file,bi,bj)
./pkg/profiles/profiles_init_fixed.F 249 PROFILES_INIT_FIXED 
     & prof_depth(num_file,k,bi,bj))
./pkg/profiles/profiles_init_fixed.F 290 PROFILES_INIT_FIXED 
      prof_time(num_file,k,bi,bj)=-999
./pkg/profiles/profiles_init_fixed.F 291 PROFILES_INIT_FIXED 
      prof_lon(num_file,k,bi,bj)=-999
./pkg/profiles/profiles_init_fixed.F 292 PROFILES_INIT_FIXED 
      prof_lat(num_file,k,bi,bj)=-999
./pkg/profiles/profiles_init_fixed.F 293 PROFILES_INIT_FIXED 
      prof_ind_glob(num_file,k,bi,bj)=-999
./pkg/profiles/profiles_init_fixed.F 296 PROFILES_INIT_FIXED 
         prof_interp_i(num_file,k,q,bi,bj) = -999
./pkg/profiles/profiles_init_fixed.F 297 PROFILES_INIT_FIXED 
         prof_interp_j(num_file,k,q,bi,bj) = -999
./pkg/profiles/profiles_init_fixed.F 298 PROFILES_INIT_FIXED 
         prof_interp_weights(num_file,k,q,bi,bj) = -999
./pkg/profiles/profiles_init_fixed.F 300 PROFILES_INIT_FIXED 
      prof_interp_xC11(num_file,k,bi,bj)=-999
./pkg/profiles/profiles_init_fixed.F 301 PROFILES_INIT_FIXED 
      prof_interp_yC11(num_file,k,bi,bj)=-999
./pkg/profiles/profiles_init_fixed.F 302 PROFILES_INIT_FIXED 
      prof_interp_xCNINJ(num_file,k,bi,bj)=-999
./pkg/profiles/profiles_init_fixed.F 303 PROFILES_INIT_FIXED 
      prof_interp_yCNINJ(num_file,k,bi,bj)=-999
./pkg/profiles/profiles_init_fixed.F 310 PROFILES_INIT_FIXED 
      profno_div1000=max(0,int(ProfNo(num_file,bi,bj)/1000))
./pkg/profiles/profiles_init_fixed.F 314 PROFILES_INIT_FIXED 
      if (min(ProfNo(num_file,bi,bj), 1000*kk).GE.
./pkg/profiles/profiles_init_fixed.F 321 PROFILES_INIT_FIXED 
      vec_count(2)=min(1000,ProfNo(num_file,bi,bj)-1000*(kk-1))
./pkg/profiles/profiles_init_fixed.F 325 PROFILES_INIT_FIXED 
     & (vec_count(2)+vec_start(2)-1.GT.ProfNo(num_file,bi,bj)) )
./pkg/profiles/profiles_init_fixed.F 33 PROFILES_INIT_FIXED 
      integer k,l,m,bi,bj,iG,jG, myThid,num_file,length_for_tile
./pkg/profiles/profiles_init_fixed.F 366 PROFILES_INIT_FIXED 
        vec_count2(2)=min(1000,ProfNo(num_file,bi,bj)-1000*(kk-1))
./pkg/profiles/profiles_init_fixed.F 378 PROFILES_INIT_FIXED 
      do k=1,min(1000,ProfNo(num_file,bi,bj)-1000*(kk-1))
./pkg/profiles/profiles_init_fixed.F 413 PROFILES_INIT_FIXED 
        prof_time(num_file,length_for_tile,bi,bj)=diffsecs
./pkg/profiles/profiles_init_fixed.F 414 PROFILES_INIT_FIXED 
        prof_lon(num_file,length_for_tile,bi,bj)=tmp_lon2(k)
./pkg/profiles/profiles_init_fixed.F 415 PROFILES_INIT_FIXED 
        prof_lat(num_file,length_for_tile,bi,bj)=tmp_lat2(k)
./pkg/profiles/profiles_init_fixed.F 416 PROFILES_INIT_FIXED 
        prof_ind_glob(num_file,length_for_tile,bi,bj)=k+1000*(kk-1)
./pkg/profiles/profiles_init_fixed.F 431 PROFILES_INIT_FIXED 
         prof_time(num_file,length_for_tile,bi,bj)=diffsecs
./pkg/profiles/profiles_init_fixed.F 432 PROFILES_INIT_FIXED 
         prof_lon(num_file,length_for_tile,bi,bj)=tmp_lon2(k)+360
./pkg/profiles/profiles_init_fixed.F 433 PROFILES_INIT_FIXED 
         prof_lat(num_file,length_for_tile,bi,bj)=tmp_lat2(k)
./pkg/profiles/profiles_init_fixed.F 434 PROFILES_INIT_FIXED 
         prof_ind_glob(num_file,length_for_tile,bi,bj)=k+1000*(kk-1)
./pkg/profiles/profiles_init_fixed.F 455 PROFILES_INIT_FIXED 
         prof_time(num_file,length_for_tile,bi,bj)=diffsecs
./pkg/profiles/profiles_init_fixed.F 456 PROFILES_INIT_FIXED 
         prof_interp_xC11(num_file,length_for_tile,bi,bj)=tmp_xC11(k)
./pkg/profiles/profiles_init_fixed.F 457 PROFILES_INIT_FIXED 
         prof_interp_yC11(num_file,length_for_tile,bi,bj)=tmp_yC11(k)
./pkg/profiles/profiles_init_fixed.F 458 PROFILES_INIT_FIXED 
       prof_interp_xCNINJ(num_file,length_for_tile,bi,bj)=tmp_xCNINJ(k)
./pkg/profiles/profiles_init_fixed.F 459 PROFILES_INIT_FIXED 
       prof_interp_yCNINJ(num_file,length_for_tile,bi,bj)=tmp_yCNINJ(k)
./pkg/profiles/profiles_init_fixed.F 462 PROFILES_INIT_FIXED 
             prof_interp_weights(num_file,length_for_tile,q,bi,bj)
./pkg/profiles/profiles_init_fixed.F 464 PROFILES_INIT_FIXED 
             prof_interp_i(num_file,length_for_tile,q,bi,bj)
./pkg/profiles/profiles_init_fixed.F 466 PROFILES_INIT_FIXED 
             prof_interp_j(num_file,length_for_tile,q,bi,bj)
./pkg/profiles/profiles_init_fixed.F 513 PROFILES_INIT_FIXED 
         prof_ind_glob(num_file,length_for_tile,bi,bj)=k+1000*(kk-1)
./pkg/profiles/profiles_init_fixed.F 531 PROFILES_INIT_FIXED 
      ProfNo(num_file,bi,bj)=length_for_tile
./pkg/profiles/profiles_init_fixed.F 534 PROFILES_INIT_FIXED 
     &   '  within tile & run ', ProfNo(num_file,bi,bj)
./pkg/profiles/profiles_init_fixed.F 541 PROFILES_INIT_FIXED 
      prof_num_var_cur(num_file,k,bi,bj)=0
./pkg/profiles/profiles_init_fixed.F 543 PROFILES_INIT_FIXED 
      prof_num_var_tot(num_file,bi,bj)=0
./pkg/profiles/profiles_init_fixed.F 547 PROFILES_INIT_FIXED 
      vec_quantities(num_file,1,bi,bj)=.TRUE.
./pkg/profiles/profiles_init_fixed.F 548 PROFILES_INIT_FIXED 
      prof_num_var_tot(num_file,bi,bj)=
./pkg/profiles/profiles_init_fixed.F 549 PROFILES_INIT_FIXED 
     & prof_num_var_tot(num_file,bi,bj)+1
./pkg/profiles/profiles_init_fixed.F 550 PROFILES_INIT_FIXED 
      prof_num_var_cur(num_file,1,bi,bj)=
./pkg/profiles/profiles_init_fixed.F 551 PROFILES_INIT_FIXED 
     & prof_num_var_tot(num_file,bi,bj)
./pkg/profiles/profiles_init_fixed.F 553 PROFILES_INIT_FIXED 
      vec_quantities(num_file,1,bi,bj)=.FALSE.
./pkg/profiles/profiles_init_fixed.F 557 PROFILES_INIT_FIXED 
      vec_quantities(num_file,2,bi,bj)=.TRUE.
./pkg/profiles/profiles_init_fixed.F 558 PROFILES_INIT_FIXED 
      prof_num_var_tot(num_file,bi,bj)=
./pkg/profiles/profiles_init_fixed.F 559 PROFILES_INIT_FIXED 
     & prof_num_var_tot(num_file,bi,bj)+1
./pkg/profiles/profiles_init_fixed.F 560 PROFILES_INIT_FIXED 
      prof_num_var_cur(num_file,2,bi,bj)=
./pkg/profiles/profiles_init_fixed.F 561 PROFILES_INIT_FIXED 
     & prof_num_var_tot(num_file,bi,bj)
./pkg/profiles/profiles_init_fixed.F 563 PROFILES_INIT_FIXED 
      vec_quantities(num_file,2,bi,bj)=.FALSE.
./pkg/profiles/profiles_init_fixed.F 570 PROFILES_INIT_FIXED 
      vec_quantities(num_file,3,bi,bj)=.TRUE.
./pkg/profiles/profiles_init_fixed.F 571 PROFILES_INIT_FIXED 
      prof_num_var_tot(num_file,bi,bj)=
./pkg/profiles/profiles_init_fixed.F 572 PROFILES_INIT_FIXED 
     & prof_num_var_tot(num_file,bi,bj)+1
./pkg/profiles/profiles_init_fixed.F 573 PROFILES_INIT_FIXED 
      prof_num_var_cur(num_file,3,bi,bj)=
./pkg/profiles/profiles_init_fixed.F 574 PROFILES_INIT_FIXED 
     & prof_num_var_tot(num_file,bi,bj)
./pkg/profiles/profiles_init_fixed.F 576 PROFILES_INIT_FIXED 
      vec_quantities(num_file,3,bi,bj)=.FALSE.
./pkg/profiles/profiles_init_fixed.F 580 PROFILES_INIT_FIXED 
      vec_quantities(num_file,4,bi,bj)=.TRUE.
./pkg/profiles/profiles_init_fixed.F 581 PROFILES_INIT_FIXED 
      prof_num_var_tot(num_file,bi,bj)=
./pkg/profiles/profiles_init_fixed.F 582 PROFILES_INIT_FIXED 
     & prof_num_var_tot(num_file,bi,bj)+1
./pkg/profiles/profiles_init_fixed.F 583 PROFILES_INIT_FIXED 
      prof_num_var_cur(num_file,4,bi,bj)=
./pkg/profiles/profiles_init_fixed.F 584 PROFILES_INIT_FIXED 
     & prof_num_var_tot(num_file,bi,bj)
./pkg/profiles/profiles_init_fixed.F 586 PROFILES_INIT_FIXED 
      vec_quantities(num_file,4,bi,bj)=.FALSE.
./pkg/profiles/profiles_init_fixed.F 591 PROFILES_INIT_FIXED 
      vec_quantities(num_file,5,bi,bj)=.TRUE.
./pkg/profiles/profiles_init_fixed.F 592 PROFILES_INIT_FIXED 
      prof_num_var_tot(num_file,bi,bj)=
./pkg/profiles/profiles_init_fixed.F 593 PROFILES_INIT_FIXED 
     & prof_num_var_tot(num_file,bi,bj)+1
./pkg/profiles/profiles_init_fixed.F 594 PROFILES_INIT_FIXED 
      prof_num_var_cur(num_file,5,bi,bj)=
./pkg/profiles/profiles_init_fixed.F 595 PROFILES_INIT_FIXED 
     & prof_num_var_tot(num_file,bi,bj)
./pkg/profiles/profiles_init_fixed.F 597 PROFILES_INIT_FIXED 
      vec_quantities(num_file,5,bi,bj)=.FALSE.
./pkg/profiles/profiles_init_fixed.F 601 PROFILES_INIT_FIXED 
      vec_quantities(num_file,6,bi,bj)=.TRUE.
./pkg/profiles/profiles_init_fixed.F 602 PROFILES_INIT_FIXED 
      prof_num_var_tot(num_file,bi,bj)=
./pkg/profiles/profiles_init_fixed.F 603 PROFILES_INIT_FIXED 
     & prof_num_var_tot(num_file,bi,bj)+1
./pkg/profiles/profiles_init_fixed.F 604 PROFILES_INIT_FIXED 
      prof_num_var_cur(num_file,6,bi,bj)=
./pkg/profiles/profiles_init_fixed.F 605 PROFILES_INIT_FIXED 
     & prof_num_var_tot(num_file,bi,bj)
./pkg/profiles/profiles_init_fixed.F 607 PROFILES_INIT_FIXED 
      vec_quantities(num_file,6,bi,bj)=.FALSE.
./pkg/profiles/profiles_init_fixed.F 611 PROFILES_INIT_FIXED 
     &,vec_quantities(num_file,1,bi,bj),vec_quantities(num_file,2,bi,bj)
./pkg/profiles/profiles_init_fixed.F 612 PROFILES_INIT_FIXED 
     &,vec_quantities(num_file,3,bi,bj),vec_quantities(num_file,4,bi,bj)
./pkg/profiles/profiles_init_fixed.F 613 PROFILES_INIT_FIXED 
     &,vec_quantities(num_file,5,bi,bj),vec_quantities(num_file,6,bi,bj)
./pkg/profiles/profiles_init_fixed.F 621 PROFILES_INIT_FIXED 
           if (ProfNo(num_file,bi,bj).GT.0) then
./pkg/profiles/profiles_init_fixed.F 637 PROFILES_INIT_FIXED 
        call PROFILES_INIT_NCFILE(num_file,
./pkg/profiles/profiles_init_fixed.F 638 PROFILES_INIT_FIXED 
     &   fiddata(num_file,bi,bj),fnameequinc,
./pkg/profiles/profiles_init_fixed.F 639 PROFILES_INIT_FIXED 
     &   fidforward(num_file,bi,bj),ProfNo(num_file,bi,bj),
./pkg/profiles/profiles_init_fixed.F 640 PROFILES_INIT_FIXED 
     &   ProfDepthNo(num_file,bi,bj),
./pkg/profiles/profiles_init_fixed.F 643 PROFILES_INIT_FIXED 
        err = NF_OPEN(fnameequinc,NF_WRITE,fidforward(num_file,bi,bj))
./pkg/profiles/profiles_init_fixed.F 648 PROFILES_INIT_FIXED 
        call PROFILES_INIT_NCFILE(num_file,fiddata(num_file,bi,bj),
./pkg/profiles/profiles_init_fixed.F 649 PROFILES_INIT_FIXED 
     &   adfnameequinc, fidadjoint(num_file,bi,bj),
./pkg/profiles/profiles_init_fixed.F 650 PROFILES_INIT_FIXED 
     &   ProfNo(num_file,bi,bj),ProfDepthNo(num_file,bi,bj),
./pkg/profiles/profiles_init_fixed.F 653 PROFILES_INIT_FIXED 
        err = NF_OPEN(adfnameequinc,NF_WRITE,fidadjoint(num_file,bi,bj))
./pkg/profiles/profiles_init_fixed.F 665 PROFILES_INIT_FIXED 
         fidforward(num_file,bi,bj)=
./pkg/profiles/profiles_init_fixed.F 666 PROFILES_INIT_FIXED 
     &     2000+(num_file-1)*nSx*nSx+(bi-1)*nSy+bj
./pkg/profiles/profiles_init_fixed.F 668 PROFILES_INIT_FIXED 
        call PROFILES_INIT_NCFILE(num_file,fiddata(num_file,bi,bj),
./pkg/profiles/profiles_init_fixed.F 669 PROFILES_INIT_FIXED 
     &   fnameequinc,fidforward(num_file,bi,bj),
./pkg/profiles/profiles_init_fixed.F 670 PROFILES_INIT_FIXED 
     &   ProfNo(num_file,bi,bj),ProfDepthNo(num_file,bi,bj),
./pkg/profiles/profiles_init_fixed.F 674 PROFILES_INIT_FIXED 
         open( fidforward(num_file,bi,bj),file=fnameequinc,
./pkg/profiles/profiles_init_fixed.F 676 PROFILES_INIT_FIXED 
     &   recl=  (ProfDepthNo(num_file,bi,bj)+1)*WORDLENGTH*2 )
./pkg/profiles/profiles_init_fixed.F 680 PROFILES_INIT_FIXED 
         fidadjoint(num_file,bi,bj)=
./pkg/profiles/profiles_init_fixed.F 681 PROFILES_INIT_FIXED 
     &     4000+(num_file-1)*nSx*nSx+(bi-1)*nSy+bj
./pkg/profiles/profiles_init_fixed.F 683 PROFILES_INIT_FIXED 
        call PROFILES_INIT_NCFILE(num_file,fiddata(num_file,bi,bj),
./pkg/profiles/profiles_init_fixed.F 684 PROFILES_INIT_FIXED 
     &   adfnameequinc, fidadjoint(num_file,bi,bj),
./pkg/profiles/profiles_init_fixed.F 685 PROFILES_INIT_FIXED 
     &   ProfNo(num_file,bi,bj),ProfDepthNo(num_file,bi,bj),
./pkg/profiles/profiles_init_fixed.F 689 PROFILES_INIT_FIXED 
         open( fidadjoint(num_file,bi,bj),file=adfnameequinc,
./pkg/profiles/profiles_init_fixed.F 691 PROFILES_INIT_FIXED 
     &   recl=  (ProfDepthNo(num_file,bi,bj)+1)*WORDLENGTH*2 )
./pkg/profiles/profiles_init_fixed.F 702 PROFILES_INIT_FIXED 
      ProfNo(num_file,bi,bj)=0
./pkg/profiles/profiles_init_fixed.F 704 PROFILES_INIT_FIXED 
      prof_num_var_cur(num_file,k,bi,bj)=0
./pkg/profiles/profiles_init_fixed.F 705 PROFILES_INIT_FIXED 
      vec_quantities(num_file,k,bi,bj)=.FALSE.
./pkg/profiles/profiles_init_fixed.F 707 PROFILES_INIT_FIXED 
      prof_num_var_tot(num_file,bi,bj)=0
./pkg/profiles/profiles_init_fixed.F 709 PROFILES_INIT_FIXED 
      prof_time(num_file,k,bi,bj)=-999
./pkg/profiles/profiles_init_fixed.F 710 PROFILES_INIT_FIXED 
      prof_lon(num_file,k,bi,bj)=-999
./pkg/profiles/profiles_init_fixed.F 711 PROFILES_INIT_FIXED 
      prof_lat(num_file,k,bi,bj)=-999
./pkg/profiles/profiles_init_fixed.F 712 PROFILES_INIT_FIXED 
      prof_ind_glob(num_file,k,bi,bj)=-999
./pkg/profiles/profiles_init_fixed.F 715 PROFILES_INIT_FIXED 
         prof_interp_i(num_file,k,q,bi,bj) = -999
./pkg/profiles/profiles_init_fixed.F 716 PROFILES_INIT_FIXED 
         prof_interp_j(num_file,k,q,bi,bj) = -999
./pkg/profiles/profiles_init_fixed.F 717 PROFILES_INIT_FIXED 
         prof_interp_weights(num_file,k,q,bi,bj) = -999
./pkg/profiles/profiles_init_fixed.F 719 PROFILES_INIT_FIXED 
      prof_interp_xC11(num_file,k,bi,bj)=-999
./pkg/profiles/profiles_init_fixed.F 720 PROFILES_INIT_FIXED 
      prof_interp_yC11(num_file,k,bi,bj)=-999
./pkg/profiles/profiles_init_fixed.F 721 PROFILES_INIT_FIXED 
      prof_interp_xCNINJ(num_file,k,bi,bj)=-999
./pkg/profiles/profiles_init_fixed.F 722 PROFILES_INIT_FIXED 
      prof_interp_yCNINJ(num_file,k,bi,bj)=-999
./pkg/profiles/profiles_init_ncfile.F 13 PROFILES_INIT_NCFILE 
      subroutine PROFILES_INIT_NCFILE(num_file,fid1,file2,fid2,length,
./pkg/profiles/profiles_init_ncfile.F 31 PROFILES_INIT_NCFILE 
      integer irec, num_var,num_file
./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 84 PROFILES_INIT_NCFILE 
       write(fid2,rec=((irec-1)*prof_num_var_tot(num_file,bi,bj)
./pkg/profiles/profiles_init_ncfile.F 86 PROFILES_INIT_NCFILE 
       write(fid2,rec=((irec-1)*prof_num_var_tot(num_file,bi,bj)
./pkg/profiles/profiles_init_varia.F 45 PROFILES_INIT_VARIA 
      integer num_file,num_var
./pkg/profiles/profiles_init_varia.F 58 PROFILES_INIT_VARIA 
          do num_file=1,NFILESPROFMAX
./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 63 PROFILES_INLOOP 
      do num_file=1,NFILESPROFMAX
./pkg/profiles/profiles_inloop.F 65 PROFILES_INLOOP 
      if (prof_num.LE.ProfNo(num_file,bi,bj)) then
./pkg/profiles/profiles_inloop.F 66 PROFILES_INLOOP 
      if ((prof_time(num_file,prof_num,bi,bj).GE.mytime).AND.
./pkg/profiles/profiles_inloop.F 67 PROFILES_INLOOP 
     & (prof_time(num_file,prof_num,bi,bj).LT.(mytime+deltaTclock)))
./pkg/profiles/profiles_inloop.F 72 PROFILES_INLOOP 
      prof_i1D(k)= prof_interp_i(num_file,prof_num,k,bi,bj)
./pkg/profiles/profiles_inloop.F 73 PROFILES_INLOOP 
      prof_j1D(k)= prof_interp_j(num_file,prof_num,k,bi,bj)
./pkg/profiles/profiles_inloop.F 74 PROFILES_INLOOP 
      prof_w1D(k)= prof_interp_weights(num_file,prof_num,k,bi,bj)
./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 88 PROFILES_INLOOP 
     &        prof_lon(num_file,prof_num,bi,bj),
./pkg/profiles/profiles_inloop.F 89 PROFILES_INLOOP 
     &        prof_lat(num_file,prof_num,bi,bj),
./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 98 PROFILES_INLOOP 
        call ACTIVE_WRITE_PROFILE(num_file,
./pkg/profiles/profiles_inloop.F 99 PROFILES_INLOOP 
     &      ProfDepthNo(num_file,bi,bj),prof_traj1D,num_var,
./pkg/profiles/profiles_readparms.F 133 PROFILES_READPARMS 
        do num_file=1,NFILESPROFMAX
./pkg/profiles/profiles_readparms.F 134 PROFILES_READPARMS 
          if ( profilesfiles(num_file) .NE. ' ' ) then
./pkg/profiles/profiles_readparms.F 135 PROFILES_READPARMS 
            IL  = ILNBLNK( profilesfiles(num_file) )
./pkg/profiles/profiles_readparms.F 136 PROFILES_READPARMS 
            fname = profilesfiles(num_file)(1:IL)//'.nc'
./pkg/profiles/profiles_readparms.F 142 PROFILES_READPARMS 
     &       profilesfiles(num_file)(1:IL),' gets switched off'
./pkg/profiles/profiles_readparms.F 146 PROFILES_READPARMS 
              profilesfiles(num_file) = ' '
./pkg/profiles/profiles_readparms.F 39 PROFILES_READPARMS 
      INTEGER iUnit, num_file, num_var, IL
./pkg/profiles/profiles_readparms.F 72 PROFILES_READPARMS 
        do num_file=1,NFILESPROFMAX
./pkg/profiles/profiles_readparms.F 73 PROFILES_READPARMS 
          profilesfiles(num_file)      =    ' '
./pkg/profiles/profiles_readparms.F 76 PROFILES_READPARMS 
        do num_file=1,NFILESPROFMAX
./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/ecco_cost_final.F 1112 ECCO_COST_FINAL 
      do num_file=1,NFILESPROFMAX
./pkg/ecco/ecco_cost_final.F 1114 ECCO_COST_FINAL 
        if (profilesfiles(num_file).NE.' ') then
./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 1393 ECCO_COST_FINAL 
      do num_file=1,NFILESPROFMAX
./pkg/ecco/ecco_cost_final.F 1395 ECCO_COST_FINAL 
        if (profilesfiles(num_file).NE.' ') then
./pkg/ecco/ecco_cost_final.F 1396 ECCO_COST_FINAL 
         IL  = ILNBLNK( profilesfiles(num_file) )
./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 254 ECCO_COST_FINAL 
      do num_file=1,NFILESPROFMAX
./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 355 ECCO_COST_FINAL 
      do num_file=1,NFILESPROFMAX
./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 462 ECCO_COST_FINAL 
      do num_file=1,NFILESPROFMAX
./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 55 ECCO_COST_FINAL 
      integer num_file,num_var
./pkg/ecco/ecco_cost_final.F 585 ECCO_COST_FINAL 
      do num_file=1,NFILESPROFMAX
./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 687 ECCO_COST_FINAL 
      do num_file=1,NFILESPROFMAX
./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 819 ECCO_COST_FINAL 
      do num_file=1,NFILESPROFMAX
./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 916 ECCO_COST_FINAL 
      do num_file=1,NFILESPROFMAX
./pkg/ecco/ecco_cost_final.F 918 ECCO_COST_FINAL 
        _GLOBAL_SUM_RL(no_profiles(num_file,num_var), myThid )
./pkg/ecco/ecco_cost_init_varia.F 50 ECCO_COST_INIT_VARIA 
      integer num_file,num_var
./pkg/ecco/ecco_readparms.F 38 ECCO_READPARMS 
      INTEGER k, iUnit, num_file, num_var