Symbol Description Uses
num_file 241


File Line number Procedure Code
./pkg/profiles/cost_profiles.F 100 COST_PROFILES 
              do K=1,ProfDepthNo(num_file,bi,bj)
./pkg/profiles/cost_profiles.F 106 COST_PROFILES 
             call ACTIVE_READ_PROFILE(num_file,
./pkg/profiles/cost_profiles.F 107 COST_PROFILES 
     &           ProfDepthNo(num_file,bi,bj),prof_traj1D,num_var,
./pkg/profiles/cost_profiles.F 109 COST_PROFILES 
     &           profiles_dummy(num_file,num_var,bi,bj))
./pkg/profiles/cost_profiles.F 111 COST_PROFILES 
             call PROFILES_READVECTOR(num_file,num_var,
./pkg/profiles/cost_profiles.F 112 COST_PROFILES 
     &           prof_ind_glob(num_file,prof_num,bi,bj),
./pkg/profiles/cost_profiles.F 113 COST_PROFILES 
     &           ProfDepthNo(num_file,bi,bj),prof_data1D,bi,bj,myThid)
./pkg/profiles/cost_profiles.F 115 COST_PROFILES 
             call PROFILES_READVECTOR(num_file,-num_var,
./pkg/profiles/cost_profiles.F 116 COST_PROFILES 
     &           prof_ind_glob(num_file,prof_num,bi,bj),
./pkg/profiles/cost_profiles.F 117 COST_PROFILES 
     &           ProfDepthNo(num_file,bi,bj),
./pkg/profiles/cost_profiles.F 120 COST_PROFILES 
             do K=1,ProfDepthNo(num_file,bi,bj)
./pkg/profiles/cost_profiles.F 121 COST_PROFILES 
               objf_profiles(num_file,num_var,bi,bj)=
./pkg/profiles/cost_profiles.F 122 COST_PROFILES 
     &             objf_profiles(num_file,num_var,bi,bj)
./pkg/profiles/cost_profiles.F 127 COST_PROFILES 
                 num_profiles(num_file,num_var,bi,bj)=
./pkg/profiles/cost_profiles.F 128 COST_PROFILES 
     &               num_profiles(num_file,num_var,bi,bj)
./pkg/profiles/cost_profiles.F 138 COST_PROFILES 
         if (ProfNo(num_file,bi,bj).GT.0) then
./pkg/profiles/cost_profiles.F 141 COST_PROFILES 
     &      ProfNo(num_file,bi,bj),num_var
./pkg/profiles/cost_profiles.F 145 COST_PROFILES 
     &      objf_profiles(num_file,num_var,bi,bj),
./pkg/profiles/cost_profiles.F 146 COST_PROFILES 
     &      num_profiles(num_file,num_var,bi,bj)
./pkg/profiles/cost_profiles.F 43 COST_PROFILES 
      integer K,num_file,num_var,prof_num
./pkg/profiles/cost_profiles.F 60 COST_PROFILES 
        do num_file=1,NFILESPROFMAX
./pkg/profiles/cost_profiles.F 61 COST_PROFILES 
         fid=fiddata(num_file,bi,bj)
./pkg/profiles/cost_profiles.F 63 COST_PROFILES 
          if (prof_num.LE.ProfNo(num_file,bi,bj)) then
./pkg/profiles/cost_profiles.F 67 COST_PROFILES 
            prof_i1D(k)= prof_interp_i(num_file,prof_num,k,bi,bj)
./pkg/profiles/cost_profiles.F 68 COST_PROFILES 
            prof_j1D(k)= prof_interp_j(num_file,prof_num,k,bi,bj)
./pkg/profiles/cost_profiles.F 69 COST_PROFILES 
            prof_w1D(k)= prof_interp_weights(num_file,prof_num,k,bi,bj)
./pkg/profiles/cost_profiles.F 83 COST_PROFILES 
            if (vec_quantities(num_file,num_var,bi,bj).EQV..TRUE.) then
./pkg/profiles/cost_profiles.F 89 COST_PROFILES 
     &         prof_lon(num_file,prof_num,bi,bj),
./pkg/profiles/cost_profiles.F 90 COST_PROFILES 
     &         prof_lat(num_file,prof_num,bi,bj),
./pkg/profiles/cost_profiles.F 91 COST_PROFILES 
     &         num_var,num_file,mytime,bi,bj,myThid)
./pkg/profiles/cost_profiles.F 95 COST_PROFILES 
     &         num_var,num_file,mytime,bi,bj,myThid)
./pkg/profiles/profiles_init_fixed.F 100 PROFILES_INIT_FIXED 
     &     'Profiles num_file is ', num_file, ' empty '
./pkg/profiles/profiles_init_fixed.F 114 PROFILES_INIT_FIXED 
     &   'Opening num_file ', num_file, fnamedatanc(1:80)
./pkg/profiles/profiles_init_fixed.F 117 PROFILES_INIT_FIXED 
      err = NF_OPEN(fnamedatanc, 0, fiddata(num_file,bi,bj))
./pkg/profiles/profiles_init_fixed.F 120 PROFILES_INIT_FIXED 
      fid=fiddata(num_file,bi,bj)
./pkg/profiles/profiles_init_fixed.F 122 PROFILES_INIT_FIXED 
      err = NF_INQ_DIMLEN(fid, dimid, ProfNo(num_file,bi,bj) )
./pkg/profiles/profiles_init_fixed.F 127 PROFILES_INIT_FIXED 
      err = NF_INQ_DIMLEN(fid, dimid, ProfDepthNo(num_file,bi,bj) )
./pkg/profiles/profiles_init_fixed.F 130 PROFILES_INIT_FIXED 
     &   fid, num_file, ProfNo(num_file,bi,bj),
./pkg/profiles/profiles_init_fixed.F 131 PROFILES_INIT_FIXED 
     &   ProfDepthNo(num_file,bi,bj)
./pkg/profiles/profiles_init_fixed.F 144 PROFILES_INIT_FIXED 
     & 'ERROR in PROFILES_INIT_FIXED: ', num_file,
./pkg/profiles/profiles_init_fixed.F 149 PROFILES_INIT_FIXED 
      do k=1,ProfDepthNo(num_file,bi,bj)
./pkg/profiles/profiles_init_fixed.F 151 PROFILES_INIT_FIXED 
     & prof_depth(num_file,k,bi,bj))
./pkg/profiles/profiles_init_fixed.F 161 PROFILES_INIT_FIXED 
     & 'ERROR in PROFILES_INIT_FIXED: ', num_file,
./pkg/profiles/profiles_init_fixed.F 177 PROFILES_INIT_FIXED 
     & 'ERROR in PROFILES_INIT_FIXED: ', num_file,
./pkg/profiles/profiles_init_fixed.F 186 PROFILES_INIT_FIXED 
      prof_time(num_file,k,bi,bj)=-999
./pkg/profiles/profiles_init_fixed.F 187 PROFILES_INIT_FIXED 
      prof_lon(num_file,k,bi,bj)=-999
./pkg/profiles/profiles_init_fixed.F 188 PROFILES_INIT_FIXED 
      prof_lat(num_file,k,bi,bj)=-999
./pkg/profiles/profiles_init_fixed.F 189 PROFILES_INIT_FIXED 
      prof_ind_glob(num_file,k,bi,bj)=-999
./pkg/profiles/profiles_init_fixed.F 192 PROFILES_INIT_FIXED 
         prof_interp_i(num_file,k,q,bi,bj) = -999
./pkg/profiles/profiles_init_fixed.F 193 PROFILES_INIT_FIXED 
         prof_interp_j(num_file,k,q,bi,bj) = -999
./pkg/profiles/profiles_init_fixed.F 194 PROFILES_INIT_FIXED 
         prof_interp_weights(num_file,k,q,bi,bj) = -999
./pkg/profiles/profiles_init_fixed.F 196 PROFILES_INIT_FIXED 
      prof_interp_xC11(num_file,k,bi,bj)=-999
./pkg/profiles/profiles_init_fixed.F 197 PROFILES_INIT_FIXED 
      prof_interp_yC11(num_file,k,bi,bj)=-999
./pkg/profiles/profiles_init_fixed.F 198 PROFILES_INIT_FIXED 
      prof_interp_xCNINJ(num_file,k,bi,bj)=-999
./pkg/profiles/profiles_init_fixed.F 199 PROFILES_INIT_FIXED 
      prof_interp_yCNINJ(num_file,k,bi,bj)=-999
./pkg/profiles/profiles_init_fixed.F 206 PROFILES_INIT_FIXED 
      profno_div1000=max(0,int(ProfNo(num_file,bi,bj)/1000))
./pkg/profiles/profiles_init_fixed.F 210 PROFILES_INIT_FIXED 
      if (min(ProfNo(num_file,bi,bj), 1000*kk).GE.
./pkg/profiles/profiles_init_fixed.F 217 PROFILES_INIT_FIXED 
      vec_count(2)=min(1000,ProfNo(num_file,bi,bj)-1000*(kk-1))
./pkg/profiles/profiles_init_fixed.F 221 PROFILES_INIT_FIXED 
     & (vec_count(2)+vec_start(2)-1.GT.ProfNo(num_file,bi,bj)) )
./pkg/profiles/profiles_init_fixed.F 224 PROFILES_INIT_FIXED 
     & 'ERROR in PROFILES_INIT_FIXED: #1', num_file
./pkg/profiles/profiles_init_fixed.F 239 PROFILES_INIT_FIXED 
     & 'ERROR in PROFILES_INIT_FIXED: #2', num_file
./pkg/profiles/profiles_init_fixed.F 256 PROFILES_INIT_FIXED 
        vec_count2(2)=min(1000,ProfNo(num_file,bi,bj)-1000*(kk-1))
./pkg/profiles/profiles_init_fixed.F 267 PROFILES_INIT_FIXED 
      do k=1,min(1000,ProfNo(num_file,bi,bj)-1000*(kk-1))
./pkg/profiles/profiles_init_fixed.F 289 PROFILES_INIT_FIXED 
        prof_time(num_file,length_for_tile,bi,bj)=diffsecs
./pkg/profiles/profiles_init_fixed.F 290 PROFILES_INIT_FIXED 
        prof_lon(num_file,length_for_tile,bi,bj)=tmp_lon2(k)
./pkg/profiles/profiles_init_fixed.F 291 PROFILES_INIT_FIXED 
        prof_lat(num_file,length_for_tile,bi,bj)=tmp_lat2(k)
./pkg/profiles/profiles_init_fixed.F 292 PROFILES_INIT_FIXED 
        prof_ind_glob(num_file,length_for_tile,bi,bj)=k+1000*(kk-1)
./pkg/profiles/profiles_init_fixed.F 295 PROFILES_INIT_FIXED 
     & 'ERROR in PROFILES_INIT_FIXED: ', num_file,
./pkg/profiles/profiles_init_fixed.F 308 PROFILES_INIT_FIXED 
         prof_time(num_file,length_for_tile,bi,bj)=diffsecs
./pkg/profiles/profiles_init_fixed.F 309 PROFILES_INIT_FIXED 
         prof_lon(num_file,length_for_tile,bi,bj)=tmp_lon2(k)+360
./pkg/profiles/profiles_init_fixed.F 310 PROFILES_INIT_FIXED 
         prof_lat(num_file,length_for_tile,bi,bj)=tmp_lat2(k)
./pkg/profiles/profiles_init_fixed.F 311 PROFILES_INIT_FIXED 
         prof_ind_glob(num_file,length_for_tile,bi,bj)=k+1000*(kk-1)
./pkg/profiles/profiles_init_fixed.F 314 PROFILES_INIT_FIXED 
     & 'ERROR in PROFILES_INIT_FIXED: ', num_file,
./pkg/profiles/profiles_init_fixed.F 32 PROFILES_INIT_FIXED 
      integer k,l,m,q,bi,bj,iG,jG, myThid,num_file,length_for_tile
./pkg/profiles/profiles_init_fixed.F 331 PROFILES_INIT_FIXED 
         prof_time(num_file,length_for_tile,bi,bj)=diffsecs
./pkg/profiles/profiles_init_fixed.F 332 PROFILES_INIT_FIXED 
         prof_interp_xC11(num_file,length_for_tile,bi,bj)=tmp_xC11(k)
./pkg/profiles/profiles_init_fixed.F 333 PROFILES_INIT_FIXED 
         prof_interp_yC11(num_file,length_for_tile,bi,bj)=tmp_yC11(k)
./pkg/profiles/profiles_init_fixed.F 334 PROFILES_INIT_FIXED 
       prof_interp_xCNINJ(num_file,length_for_tile,bi,bj)=tmp_xCNINJ(k)
./pkg/profiles/profiles_init_fixed.F 335 PROFILES_INIT_FIXED 
       prof_interp_yCNINJ(num_file,length_for_tile,bi,bj)=tmp_yCNINJ(k)
./pkg/profiles/profiles_init_fixed.F 338 PROFILES_INIT_FIXED 
             prof_interp_weights(num_file,length_for_tile,q,bi,bj)
./pkg/profiles/profiles_init_fixed.F 340 PROFILES_INIT_FIXED 
             prof_interp_i(num_file,length_for_tile,q,bi,bj)
./pkg/profiles/profiles_init_fixed.F 342 PROFILES_INIT_FIXED 
             prof_interp_j(num_file,length_for_tile,q,bi,bj)
./pkg/profiles/profiles_init_fixed.F 350 PROFILES_INIT_FIXED 
     & 'ERROR in PROFILES_INIT_FIXED: ', num_file,
./pkg/profiles/profiles_init_fixed.F 360 PROFILES_INIT_FIXED 
     & 'ERROR in PROFILES_INIT_FIXED: ', num_file,
./pkg/profiles/profiles_init_fixed.F 369 PROFILES_INIT_FIXED 
     & 'ERROR in PROFILES_INIT_FIXED: ', num_file,
./pkg/profiles/profiles_init_fixed.F 379 PROFILES_INIT_FIXED 
     & 'ERROR in PROFILES_INIT_FIXED: ', num_file,
./pkg/profiles/profiles_init_fixed.F 385 PROFILES_INIT_FIXED 
         prof_ind_glob(num_file,length_for_tile,bi,bj)=k+1000*(kk-1)
./pkg/profiles/profiles_init_fixed.F 404 PROFILES_INIT_FIXED 
      ProfNo(num_file,bi,bj)=length_for_tile
./pkg/profiles/profiles_init_fixed.F 408 PROFILES_INIT_FIXED 
     & num_file, ProfNo(num_file,bi,bj)
./pkg/profiles/profiles_init_fixed.F 416 PROFILES_INIT_FIXED 
      prof_num_var_cur(num_file,k,bi,bj)=0
./pkg/profiles/profiles_init_fixed.F 418 PROFILES_INIT_FIXED 
      prof_num_var_tot(num_file,bi,bj)=0
./pkg/profiles/profiles_init_fixed.F 422 PROFILES_INIT_FIXED 
      vec_quantities(num_file,1,bi,bj)=.TRUE.
./pkg/profiles/profiles_init_fixed.F 423 PROFILES_INIT_FIXED 
      prof_num_var_tot(num_file,bi,bj)=
./pkg/profiles/profiles_init_fixed.F 424 PROFILES_INIT_FIXED 
     & prof_num_var_tot(num_file,bi,bj)+1
./pkg/profiles/profiles_init_fixed.F 425 PROFILES_INIT_FIXED 
      prof_num_var_cur(num_file,1,bi,bj)=
./pkg/profiles/profiles_init_fixed.F 426 PROFILES_INIT_FIXED 
     & prof_num_var_tot(num_file,bi,bj)
./pkg/profiles/profiles_init_fixed.F 428 PROFILES_INIT_FIXED 
      vec_quantities(num_file,1,bi,bj)=.FALSE.
./pkg/profiles/profiles_init_fixed.F 432 PROFILES_INIT_FIXED 
      vec_quantities(num_file,2,bi,bj)=.TRUE.
./pkg/profiles/profiles_init_fixed.F 433 PROFILES_INIT_FIXED 
      prof_num_var_tot(num_file,bi,bj)=
./pkg/profiles/profiles_init_fixed.F 434 PROFILES_INIT_FIXED 
     & prof_num_var_tot(num_file,bi,bj)+1
./pkg/profiles/profiles_init_fixed.F 435 PROFILES_INIT_FIXED 
      prof_num_var_cur(num_file,2,bi,bj)=
./pkg/profiles/profiles_init_fixed.F 436 PROFILES_INIT_FIXED 
     & prof_num_var_tot(num_file,bi,bj)
./pkg/profiles/profiles_init_fixed.F 438 PROFILES_INIT_FIXED 
      vec_quantities(num_file,2,bi,bj)=.FALSE.
./pkg/profiles/profiles_init_fixed.F 443 PROFILES_INIT_FIXED 
      vec_quantities(num_file,3,bi,bj)=.TRUE.
./pkg/profiles/profiles_init_fixed.F 444 PROFILES_INIT_FIXED 
      prof_num_var_tot(num_file,bi,bj)=
./pkg/profiles/profiles_init_fixed.F 445 PROFILES_INIT_FIXED 
     & prof_num_var_tot(num_file,bi,bj)+1
./pkg/profiles/profiles_init_fixed.F 446 PROFILES_INIT_FIXED 
      prof_num_var_cur(num_file,3,bi,bj)=
./pkg/profiles/profiles_init_fixed.F 447 PROFILES_INIT_FIXED 
     & prof_num_var_tot(num_file,bi,bj)
./pkg/profiles/profiles_init_fixed.F 449 PROFILES_INIT_FIXED 
      vec_quantities(num_file,3,bi,bj)=.FALSE.
./pkg/profiles/profiles_init_fixed.F 453 PROFILES_INIT_FIXED 
      vec_quantities(num_file,4,bi,bj)=.TRUE.
./pkg/profiles/profiles_init_fixed.F 454 PROFILES_INIT_FIXED 
      prof_num_var_tot(num_file,bi,bj)=
./pkg/profiles/profiles_init_fixed.F 455 PROFILES_INIT_FIXED 
     & prof_num_var_tot(num_file,bi,bj)+1
./pkg/profiles/profiles_init_fixed.F 456 PROFILES_INIT_FIXED 
      prof_num_var_cur(num_file,4,bi,bj)=
./pkg/profiles/profiles_init_fixed.F 457 PROFILES_INIT_FIXED 
     & prof_num_var_tot(num_file,bi,bj)
./pkg/profiles/profiles_init_fixed.F 459 PROFILES_INIT_FIXED 
      vec_quantities(num_file,4,bi,bj)=.FALSE.
./pkg/profiles/profiles_init_fixed.F 464 PROFILES_INIT_FIXED 
      vec_quantities(num_file,5,bi,bj)=.TRUE.
./pkg/profiles/profiles_init_fixed.F 465 PROFILES_INIT_FIXED 
      prof_num_var_tot(num_file,bi,bj)=
./pkg/profiles/profiles_init_fixed.F 466 PROFILES_INIT_FIXED 
     & prof_num_var_tot(num_file,bi,bj)+1
./pkg/profiles/profiles_init_fixed.F 467 PROFILES_INIT_FIXED 
      prof_num_var_cur(num_file,5,bi,bj)=
./pkg/profiles/profiles_init_fixed.F 468 PROFILES_INIT_FIXED 
     & prof_num_var_tot(num_file,bi,bj)
./pkg/profiles/profiles_init_fixed.F 470 PROFILES_INIT_FIXED 
      vec_quantities(num_file,5,bi,bj)=.FALSE.
./pkg/profiles/profiles_init_fixed.F 474 PROFILES_INIT_FIXED 
      vec_quantities(num_file,6,bi,bj)=.TRUE.
./pkg/profiles/profiles_init_fixed.F 475 PROFILES_INIT_FIXED 
      prof_num_var_tot(num_file,bi,bj)=
./pkg/profiles/profiles_init_fixed.F 476 PROFILES_INIT_FIXED 
     & prof_num_var_tot(num_file,bi,bj)+1
./pkg/profiles/profiles_init_fixed.F 477 PROFILES_INIT_FIXED 
      prof_num_var_cur(num_file,6,bi,bj)=
./pkg/profiles/profiles_init_fixed.F 478 PROFILES_INIT_FIXED 
     & prof_num_var_tot(num_file,bi,bj)
./pkg/profiles/profiles_init_fixed.F 480 PROFILES_INIT_FIXED 
      vec_quantities(num_file,6,bi,bj)=.FALSE.
./pkg/profiles/profiles_init_fixed.F 488 PROFILES_INIT_FIXED 
           if (ProfNo(num_file,bi,bj).GT.0) then
./pkg/profiles/profiles_init_fixed.F 501 PROFILES_INIT_FIXED 
      call PROFILES_INIT_NCFILE(num_file,
./pkg/profiles/profiles_init_fixed.F 502 PROFILES_INIT_FIXED 
     & fiddata(num_file,bi,bj),fnameequinc,
./pkg/profiles/profiles_init_fixed.F 503 PROFILES_INIT_FIXED 
     & fidforward(num_file,bi,bj),ProfNo(num_file,bi,bj),
./pkg/profiles/profiles_init_fixed.F 504 PROFILES_INIT_FIXED 
     & ProfDepthNo(num_file,bi,bj),
./pkg/profiles/profiles_init_fixed.F 506 PROFILES_INIT_FIXED 
      call PROFILES_INIT_NCFILE(num_file,fiddata(num_file,bi,bj),
./pkg/profiles/profiles_init_fixed.F 507 PROFILES_INIT_FIXED 
     & adfnameequinc, fidadjoint(num_file,bi,bj),ProfNo(num_file,bi,bj),
./pkg/profiles/profiles_init_fixed.F 508 PROFILES_INIT_FIXED 
     & ProfDepthNo(num_file,bi,bj),bi,bj, myThid)
./pkg/profiles/profiles_init_fixed.F 510 PROFILES_INIT_FIXED 
      err = NF_OPEN(fnameequinc,NF_WRITE,fidforward(num_file,bi,bj))
./pkg/profiles/profiles_init_fixed.F 511 PROFILES_INIT_FIXED 
      err = NF_OPEN(adfnameequinc,NF_WRITE,fidadjoint(num_file,bi,bj))
./pkg/profiles/profiles_init_fixed.F 523 PROFILES_INIT_FIXED 
      call PROFILES_INIT_NCFILE(num_file,fiddata(num_file,bi,bj),
./pkg/profiles/profiles_init_fixed.F 524 PROFILES_INIT_FIXED 
     & fnameequinc,fidforward(num_file,bi,bj),
./pkg/profiles/profiles_init_fixed.F 525 PROFILES_INIT_FIXED 
     & ProfNo(num_file,bi,bj),ProfDepthNo(num_file,bi,bj),
./pkg/profiles/profiles_init_fixed.F 527 PROFILES_INIT_FIXED 
      call PROFILES_INIT_NCFILE(num_file,fiddata(num_file,bi,bj),
./pkg/profiles/profiles_init_fixed.F 528 PROFILES_INIT_FIXED 
     & adfnameequinc, fidadjoint(num_file,bi,bj),ProfNo(num_file,bi,bj),
./pkg/profiles/profiles_init_fixed.F 529 PROFILES_INIT_FIXED 
     & ProfDepthNo(num_file,bi,bj),bi,bj, myThid)
./pkg/profiles/profiles_init_fixed.F 531 PROFILES_INIT_FIXED 
       call MDSFINDUNIT( fidforward(num_file,bi,bj) , mythid )
./pkg/profiles/profiles_init_fixed.F 532 PROFILES_INIT_FIXED 
       open( fidforward(num_file,bi,bj),file=fnameequinc,
./pkg/profiles/profiles_init_fixed.F 534 PROFILES_INIT_FIXED 
     & recl=  (ProfDepthNo(num_file,bi,bj)+1)*WORDLENGTH*2 )
./pkg/profiles/profiles_init_fixed.F 535 PROFILES_INIT_FIXED 
       call MDSFINDUNIT( fidadjoint(num_file,bi,bj) , mythid )
./pkg/profiles/profiles_init_fixed.F 536 PROFILES_INIT_FIXED 
       open( fidadjoint(num_file,bi,bj),file=adfnameequinc,
./pkg/profiles/profiles_init_fixed.F 538 PROFILES_INIT_FIXED 
     & recl=  (ProfDepthNo(num_file,bi,bj)+1)*WORDLENGTH*2 )
./pkg/profiles/profiles_init_fixed.F 548 PROFILES_INIT_FIXED 
      ProfNo(num_file,bi,bj)=0
./pkg/profiles/profiles_init_fixed.F 550 PROFILES_INIT_FIXED 
      prof_num_var_cur(num_file,k,bi,bj)=0
./pkg/profiles/profiles_init_fixed.F 551 PROFILES_INIT_FIXED 
      vec_quantities(num_file,k,bi,bj)=.FALSE.
./pkg/profiles/profiles_init_fixed.F 553 PROFILES_INIT_FIXED 
      prof_num_var_tot(num_file,bi,bj)=0
./pkg/profiles/profiles_init_fixed.F 555 PROFILES_INIT_FIXED 
      prof_time(num_file,k,bi,bj)=-999
./pkg/profiles/profiles_init_fixed.F 556 PROFILES_INIT_FIXED 
      prof_lon(num_file,k,bi,bj)=-999
./pkg/profiles/profiles_init_fixed.F 557 PROFILES_INIT_FIXED 
      prof_lat(num_file,k,bi,bj)=-999
./pkg/profiles/profiles_init_fixed.F 558 PROFILES_INIT_FIXED 
      prof_ind_glob(num_file,k,bi,bj)=-999
./pkg/profiles/profiles_init_fixed.F 561 PROFILES_INIT_FIXED 
         prof_interp_i(num_file,k,q,bi,bj) = -999
./pkg/profiles/profiles_init_fixed.F 562 PROFILES_INIT_FIXED 
         prof_interp_j(num_file,k,q,bi,bj) = -999
./pkg/profiles/profiles_init_fixed.F 563 PROFILES_INIT_FIXED 
         prof_interp_weights(num_file,k,q,bi,bj) = -999
./pkg/profiles/profiles_init_fixed.F 565 PROFILES_INIT_FIXED 
      prof_interp_xC11(num_file,k,bi,bj)=-999
./pkg/profiles/profiles_init_fixed.F 566 PROFILES_INIT_FIXED 
      prof_interp_yC11(num_file,k,bi,bj)=-999
./pkg/profiles/profiles_init_fixed.F 567 PROFILES_INIT_FIXED 
      prof_interp_xCNINJ(num_file,k,bi,bj)=-999
./pkg/profiles/profiles_init_fixed.F 568 PROFILES_INIT_FIXED 
      prof_interp_yCNINJ(num_file,k,bi,bj)=-999
./pkg/profiles/profiles_init_fixed.F 87 PROFILES_INIT_FIXED 
        do num_file=1,NFILESPROFMAX
./pkg/profiles/profiles_init_fixed.F 89 PROFILES_INIT_FIXED 
      IL  = ILNBLNK( profilesfiles(num_file) )
./pkg/profiles/profiles_init_fixed.F 92 PROFILES_INIT_FIXED 
     &     profilesfiles(num_file)(1:IL)
./pkg/profiles/profiles_init_fixed.F 94 PROFILES_INIT_FIXED 
     &     'Profiles num_file is ', num_file, profilesfile(1:80)
./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 46 PROFILES_INIT_VARIA 
      integer num_file,num_var
./pkg/profiles/profiles_init_varia.F 61 PROFILES_INIT_VARIA 
          do num_file=1,NFILESPROFMAX
./pkg/profiles/profiles_init_varia.F 63 PROFILES_INIT_VARIA 
            objf_profiles(num_file,num_var,bi,bj)= 0. _d 0
./pkg/profiles/profiles_init_varia.F 64 PROFILES_INIT_VARIA 
            num_profiles(num_file,num_var,bi,bj) = 0. _d 0
./pkg/profiles/profiles_init_varia.F 65 PROFILES_INIT_VARIA 
            profiles_dummy(num_file,num_var,bi,bj)=0. _d 0
./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 86 PROFILES_INLOOP 
     & prof_lon(num_file,prof_num,bi,bj),
./pkg/profiles/profiles_inloop.F 87 PROFILES_INLOOP 
     & prof_lat(num_file,prof_num,bi,bj),
./pkg/profiles/profiles_inloop.F 88 PROFILES_INLOOP 
     & num_var,num_file,mytime,bi,bj,myThid)
./pkg/profiles/profiles_inloop.F 92 PROFILES_INLOOP 
     & num_var,num_file,mytime,bi,bj,myThid)
./pkg/profiles/profiles_inloop.F 94 PROFILES_INLOOP 
              call ACTIVE_WRITE_PROFILE(num_file,
./pkg/profiles/profiles_inloop.F 95 PROFILES_INLOOP 
     &ProfDepthNo(num_file,bi,bj),prof_traj1D,num_var,
./pkg/profiles/profiles_inloop.F 97 PROFILES_INLOOP 
     &profiles_dummy(num_file,num_var,bi,bj))
./pkg/profiles/profiles_readparms.F 39 PROFILES_READPARMS 
      INTEGER iUnit, num_file, num_var
./pkg/profiles/profiles_readparms.F 51 PROFILES_READPARMS 
        do num_file=1,NFILESPROFMAX
./pkg/profiles/profiles_readparms.F 52 PROFILES_READPARMS 
          profilesfiles(num_file)      =    ' '
./pkg/profiles/profiles_readparms.F 55 PROFILES_READPARMS 
        do num_file=1,NFILESPROFMAX
./pkg/profiles/profiles_readparms.F 57 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 1186 ECCO_COST_FINAL 
      do num_file=1,NFILESPROFMAX
./pkg/ecco/ecco_cost_final.F 1188 ECCO_COST_FINAL 
        if (no_profiles(num_file,num_var).GT.0) then
./pkg/ecco/ecco_cost_final.F 1189 ECCO_COST_FINAL 
         IL  = ILNBLNK( profilesfiles(num_file) )
./pkg/ecco/ecco_cost_final.F 1192 ECCO_COST_FINAL 
     &    profilesfiles(num_file)(1:IL),' ',prof_names(num_var), ' = ',
./pkg/ecco/ecco_cost_final.F 1193 ECCO_COST_FINAL 
     &    f_profiles(num_file,num_var),
./pkg/ecco/ecco_cost_final.F 1194 ECCO_COST_FINAL 
     &    no_profiles(num_file,num_var)
./pkg/ecco/ecco_cost_final.F 212 ECCO_COST_FINAL 
      do num_file=1,NFILESPROFMAX
./pkg/ecco/ecco_cost_final.F 214 ECCO_COST_FINAL 
        f_profiles(num_file,num_var)= 0. _d 0
./pkg/ecco/ecco_cost_final.F 300 ECCO_COST_FINAL 
      do num_file=1,NFILESPROFMAX
./pkg/ecco/ecco_cost_final.F 302 ECCO_COST_FINAL 
        no_profiles(num_file,num_var)= 0. _d 0
./pkg/ecco/ecco_cost_final.F 392 ECCO_COST_FINAL 
      do num_file=1,NFILESPROFMAX
./pkg/ecco/ecco_cost_final.F 395 ECCO_COST_FINAL 
     &            + mult_profiles(num_file,num_var)
./pkg/ecco/ecco_cost_final.F 396 ECCO_COST_FINAL 
     &            *objf_profiles(num_file,num_var,bi,bj)
./pkg/ecco/ecco_cost_final.F 496 ECCO_COST_FINAL 
      do num_file=1,NFILESPROFMAX
./pkg/ecco/ecco_cost_final.F 498 ECCO_COST_FINAL 
          f_profiles(num_file,num_var)=f_profiles(num_file,num_var)
./pkg/ecco/ecco_cost_final.F 499 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 580 ECCO_COST_FINAL 
      do num_file=1,NFILESPROFMAX
./pkg/ecco/ecco_cost_final.F 582 ECCO_COST_FINAL 
          no_profiles(num_file,num_var)=no_profiles(num_file,num_var)
./pkg/ecco/ecco_cost_final.F 583 ECCO_COST_FINAL 
     &            +num_profiles(num_file,num_var,bi,bj)
./pkg/ecco/ecco_cost_final.F 690 ECCO_COST_FINAL 
      do num_file=1,NFILESPROFMAX
./pkg/ecco/ecco_cost_final.F 692 ECCO_COST_FINAL 
        _GLOBAL_SUM_RL(f_profiles(num_file,num_var), myThid )
./pkg/ecco/ecco_cost_final.F 774 ECCO_COST_FINAL 
      do num_file=1,NFILESPROFMAX
./pkg/ecco/ecco_cost_final.F 776 ECCO_COST_FINAL 
        _GLOBAL_SUM_RL(no_profiles(num_file,num_var), myThid )
./pkg/ecco/ecco_cost_final.F 945 ECCO_COST_FINAL 
      do num_file=1,NFILESPROFMAX
./pkg/ecco/ecco_cost_final.F 947 ECCO_COST_FINAL 
        if (no_profiles(num_file,num_var).GT.0) then
./pkg/ecco/ecco_cost_final.F 949 ECCO_COST_FINAL 
     &     ' --> f_profiles =',f_profiles(num_file,num_var),
./pkg/ecco/ecco_cost_final.F 950 ECCO_COST_FINAL 
     &      num_file, num_var
./pkg/ecco/ecco_cost_init_varia.F 47 ECCO_COST_INIT_VARIA 
      integer num_file,num_var
./pkg/ecco/ecco_readparms.F 38 ECCO_READPARMS 
      INTEGER k, iUnit, num_file, num_var