Symbol Description Uses
fid 113


File Line number Procedure Code
./pkg/mnc/mnc_file.F 103 MNC_FILE_OPEN 
      mnc_f_info(indf,2) = fid
./pkg/mnc/mnc_file.F 258 MNC_FILE_ADD_ATTR_ANY 
      integer n, nf, err, fid, ind, n1, lens
./pkg/mnc/mnc_file.F 274 MNC_FILE_ADD_ATTR_ANY 
      fid = mnc_f_info(ind,2)
./pkg/mnc/mnc_file.F 285 MNC_FILE_ADD_ATTR_ANY 
        err = NF_PUT_ATT_TEXT(fid, NF_GLOBAL, s1, lens, sv)
./pkg/mnc/mnc_file.F 290 MNC_FILE_ADD_ATTR_ANY 
        err = NF_PUT_ATT_DOUBLE(fid, NF_GLOBAL, s1, NF_DOUBLE, len, dv)
./pkg/mnc/mnc_file.F 295 MNC_FILE_ADD_ATTR_ANY 
        err = NF_PUT_ATT_REAL(fid, NF_GLOBAL, s1, NF_FLOAT, len, rv)
./pkg/mnc/mnc_file.F 300 MNC_FILE_ADD_ATTR_ANY 
        err = NF_PUT_ATT_INT(fid, NF_GLOBAL, s1, NF_INT, len, iv)
./pkg/mnc/mnc_file.F 339 MNC_FILE_CLOSE 
      integer i,j,k,n, err, fid, indf, nf
./pkg/mnc/mnc_file.F 355 MNC_FILE_CLOSE 
      fid = mnc_f_info(indf,2)
./pkg/mnc/mnc_file.F 356 MNC_FILE_CLOSE 
      err = NF_CLOSE(fid)
./pkg/mnc/mnc_file.F 512 MNC_FILE_REDEF 
      integer ind, fid, def, err, n
./pkg/mnc/mnc_file.F 528 MNC_FILE_REDEF 
      fid = mnc_f_info(ind,2)
./pkg/mnc/mnc_file.F 532 MNC_FILE_REDEF 
        err = NF_REDEF(fid)
./pkg/mnc/mnc_file.F 565 MNC_FILE_ENDDEF 
      integer ind, fid, def, err, n
./pkg/mnc/mnc_file.F 581 MNC_FILE_ENDDEF 
      fid = mnc_f_info(ind,2)
./pkg/mnc/mnc_file.F 585 MNC_FILE_ENDDEF 
        err = NF_ENDDEF(fid)
./pkg/mnc/mnc_file.F 62 MNC_FILE_OPEN 
      integer n, err, fid, nf
./pkg/mnc/mnc_file.F 658 MNC_FILE_TRY_READ 
      integer i,j,k, fid, err, ndim,nvar,ngat,unlimid
./pkg/mnc/mnc_file.F 672 MNC_FILE_TRY_READ 
      err = NF_OPEN(fname, NF_WRITE, fid)
./pkg/mnc/mnc_file.F 681 MNC_FILE_TRY_READ 
      mnc_f_info(indf,2) = fid
./pkg/mnc/mnc_file.F 684 MNC_FILE_TRY_READ 
      err = NF_INQ(fid, ndim, nvar, ngat, unlimid)
./pkg/mnc/mnc_file.F 691 MNC_FILE_TRY_READ 
        err = NF_INQ_DIM(fid, id, name, dlen)
./pkg/mnc/mnc_file.F 718 MNC_FILE_TRY_READ 
        err = NF_INQ_VAR(fid, id, name, xtype, ndv, idlist, nat)
./pkg/mnc/mnc_file.F 82 MNC_FILE_OPEN 
        err = NF_CREATE(fname, NF_CLOBBER, fid)
./pkg/mnc/mnc_dim.F 194 MNC_DIM_UNLIM_SIZE 
      integer i,j, nf, indf, fid, unlimid, err
./pkg/mnc/mnc_dim.F 210 MNC_DIM_UNLIM_SIZE 
      fid = mnc_f_info(indf,2)
./pkg/mnc/mnc_dim.F 218 MNC_DIM_UNLIM_SIZE 
          err = NF_INQ_DIMLEN(fid, unlimid, unlim_sz)
./pkg/mnc/mnc_cw_cvars.F 14 MNC_CW_WRITE_CVAR 
     I     fid,
./pkg/mnc/mnc_cw_cvars.F 188 MNC_CW_WRITE_CVAR 
        err = NF_DEF_VAR(fid, cvname, NF_DOUBLE,
./pkg/mnc/mnc_cw_cvars.F 195 MNC_CW_WRITE_CVAR 
        err = NF_PUT_VARA_DOUBLE(fid, vid,
./pkg/mnc/mnc_cw_cvars.F 42 MNC_CW_WRITE_CVAR 
      integer fid, did, bi,bj
./pkg/mnc/mnc_grid.F 72 MNC_GRID_INIT_ALL 
      integer i,j,k,ii,jj,kk, n,nf, indf,indg,indd, fid, ngrid
./pkg/mnc/mnc_grid.F 95 MNC_GRID_INIT_ALL 
      fid = mnc_f_info(indf,2)
./pkg/mnc/mnc_var.F 122 MNC_VAR_INIT_ANY 
      integer i,j,k, n, nf, indf,indv, fid, nd, ngrid, is,ie, err
./pkg/mnc/mnc_var.F 145 MNC_VAR_INIT_ANY 
      fid = mnc_f_info(indf,2)
./pkg/mnc/mnc_var.F 212 MNC_VAR_INIT_ANY 
      err = NF_DEF_VAR(fid, vname, vtype, nd, ids, vid)
./pkg/mnc/mnc_var.F 412 MNC_VAR_ADD_ATTR_ANY 
      integer n, indf,ind_fv_ids, fid,vid, err
./pkg/mnc/mnc_var.F 433 MNC_VAR_ADD_ATTR_ANY 
      fid = mnc_f_info(indf,2)
./pkg/mnc/mnc_var.F 439 MNC_VAR_ADD_ATTR_ANY 
        err = NF_PUT_ATT_TEXT(fid, vid, atname, lens, cs)
./pkg/mnc/mnc_var.F 441 MNC_VAR_ADD_ATTR_ANY 
        err = NF_PUT_ATT_DOUBLE(fid, vid, atname, NF_DOUBLE, len, dv)
./pkg/mnc/mnc_var.F 443 MNC_VAR_ADD_ATTR_ANY 
        err = NF_PUT_ATT_REAL(fid, vid, atname, NF_FLOAT, len, rv)
./pkg/mnc/mnc_var.F 445 MNC_VAR_ADD_ATTR_ANY 
        err = NF_PUT_ATT_INT(fid, vid, atname, NF_INT, len, iv)
./pkg/mnc/mnc_var.F 600 MNC_VAR_WRITE_ANY 
      integer i,j,k, n, indf,ind_fv_ids, fid,vid,did, ig, err, ds,de
./pkg/mnc/mnc_var.F 617 MNC_VAR_WRITE_ANY 
      fid = mnc_f_info(indf,2)
./pkg/mnc/mnc_var.F 635 MNC_VAR_WRITE_ANY 
        err = NF_INQ_DIMLEN(fid, did, lend)
./pkg/mnc/mnc_var.F 648 MNC_VAR_WRITE_ANY 
        err = NF_PUT_VARA_DOUBLE(fid, vid, vstart, vcount, dv)
./pkg/mnc/mnc_var.F 650 MNC_VAR_WRITE_ANY 
        err = NF_PUT_VARA_REAL(fid, vid, vstart, vcount, rv)
./pkg/mnc/mnc_var.F 652 MNC_VAR_WRITE_ANY 
        err = NF_PUT_VARA_INT(fid, vid, vstart, vcount, iv)
./pkg/mnc/mnc_utils.F 191 MNC_GET_FVINDS 
      INTEGER  myThid, fid, indf, ind_fv_ids
./pkg/mnc/mnc_utils.F 211 MNC_GET_FVINDS 
      fid = mnc_f_info(indf,2)
./pkg/profiles/profiles_init_fixed.F 101 PROFILES_INIT_FIXED 
      err = NF_GET_VAR1_DOUBLE(fid,varid1a,k,
./pkg/profiles/profiles_init_fixed.F 105 PROFILES_INIT_FIXED 
      err = NF_INQ_VARID(fid,'prof_YYYYMMDD', varid1a )
./pkg/profiles/profiles_init_fixed.F 106 PROFILES_INIT_FIXED 
      err = NF_INQ_VARID(fid,'prof_HHMMSS', varid1b )
./pkg/profiles/profiles_init_fixed.F 107 PROFILES_INIT_FIXED 
      err = NF_INQ_VARID(fid,'prof_lon', varid2 )
./pkg/profiles/profiles_init_fixed.F 108 PROFILES_INIT_FIXED 
      err = NF_INQ_VARID(fid,'prof_lat', varid3 )
./pkg/profiles/profiles_init_fixed.F 142 PROFILES_INIT_FIXED 
      err = NF_GET_VARA_DOUBLE(fid,varid1a,vec_start(2),
./pkg/profiles/profiles_init_fixed.F 144 PROFILES_INIT_FIXED 
      err = NF_GET_VARA_DOUBLE(fid,varid1b,vec_start(2),
./pkg/profiles/profiles_init_fixed.F 146 PROFILES_INIT_FIXED 
      err = NF_GET_VARA_DOUBLE(fid,varid2,vec_start(2),
./pkg/profiles/profiles_init_fixed.F 148 PROFILES_INIT_FIXED 
      err = NF_GET_VARA_DOUBLE(fid,varid3,vec_start(2),
./pkg/profiles/profiles_init_fixed.F 208 PROFILES_INIT_FIXED 
      print*,"fid dimid ProfNo(num_file,bi,bj)",fid, dimid,
./pkg/profiles/profiles_init_fixed.F 217 PROFILES_INIT_FIXED 
      err = NF_INQ_VARID(fid,'prof_T', varid1 )
./pkg/profiles/profiles_init_fixed.F 227 PROFILES_INIT_FIXED 
      err = NF_INQ_VARID(fid,'prof_S', varid1 )
./pkg/profiles/profiles_init_fixed.F 237 PROFILES_INIT_FIXED 
      err = NF_INQ_VARID(fid,'prof_U', varid1 )
./pkg/profiles/profiles_init_fixed.F 247 PROFILES_INIT_FIXED 
      err = NF_INQ_VARID(fid,'prof_V', varid1 )
./pkg/profiles/profiles_init_fixed.F 257 PROFILES_INIT_FIXED 
      err = NF_INQ_VARID(fid,'prof_ptr', varid1 )
./pkg/profiles/profiles_init_fixed.F 267 PROFILES_INIT_FIXED 
      err = NF_INQ_VARID(fid,'prof_ssh', varid1 )
./pkg/profiles/profiles_init_fixed.F 32 PROFILES_INIT_FIXED 
      integer fid, dimid, varid1, varid1a, varid1b
./pkg/profiles/profiles_init_fixed.F 87 PROFILES_INIT_FIXED 
      fid=fiddata(num_file,bi,bj)
./pkg/profiles/profiles_init_fixed.F 88 PROFILES_INIT_FIXED 
      err = NF_INQ_DIMID(fid,'iPROF', dimid )
./pkg/profiles/profiles_init_fixed.F 89 PROFILES_INIT_FIXED 
      err = NF_INQ_DIMLEN(fid, dimid, ProfNo(num_file,bi,bj) )
./pkg/profiles/profiles_init_fixed.F 90 PROFILES_INIT_FIXED 
      err = NF_INQ_DIMID(fid,'iDEPTH', dimid )
./pkg/profiles/profiles_init_fixed.F 92 PROFILES_INIT_FIXED 
      err = NF_INQ_DIMID(fid,'Z', dimid )
./pkg/profiles/profiles_init_fixed.F 94 PROFILES_INIT_FIXED 
      err = NF_INQ_DIMLEN(fid, dimid, ProfDepthNo(num_file,bi,bj) )
./pkg/profiles/profiles_init_fixed.F 96 PROFILES_INIT_FIXED 
     &fid,num_file,ProfNo(num_file,bi,bj),ProfDepthNo(num_file,bi,bj)
./pkg/profiles/profiles_init_fixed.F 99 PROFILES_INIT_FIXED 
      err = NF_INQ_VARID(fid,'depth', varid1a )
./pkg/profiles/active_file_control_profiles.F 128 ACTIVE_READ_PROFILE_RL 
      err = NF_INQ_VARID(fid,prof_names(active_varnum), varid1 )
./pkg/profiles/active_file_control_profiles.F 129 ACTIVE_READ_PROFILE_RL 
      err = NF_GET_VARA_DOUBLE(fid, varid1 , vec_start, vec_count,
./pkg/profiles/active_file_control_profiles.F 13 ACTIVE_READ_PROFILE_RL 
     I                                fid,
./pkg/profiles/active_file_control_profiles.F 142 ACTIVE_READ_PROFILE_RL 
      err = NF_INQ_VARID(fid,prof_names(active_varnum), varid1 )
./pkg/profiles/active_file_control_profiles.F 143 ACTIVE_READ_PROFILE_RL 
      err = NF_PUT_VARA_DOUBLE(fid, varid1 , vec_start, vec_count,
./pkg/profiles/active_file_control_profiles.F 154 ACTIVE_READ_PROFILE_RL 
      read(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj)
./pkg/profiles/active_file_control_profiles.F 176 ACTIVE_READ_PROFILE_RL 
      write(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj)
./pkg/profiles/active_file_control_profiles.F 206 ACTIVE_READ_PROFILE_RL 
      err = NF_INQ_VARID(fid,prof_names(active_varnum), varid1 )
./pkg/profiles/active_file_control_profiles.F 207 ACTIVE_READ_PROFILE_RL 
      err = NF_GET_VARA_DOUBLE(fid, varid1 , vec_start, vec_count,
./pkg/profiles/active_file_control_profiles.F 212 ACTIVE_READ_PROFILE_RL 
      read(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj)
./pkg/profiles/active_file_control_profiles.F 239 ACTIVE_WRITE_PROFILE_RL 
     I                                 fid,
./pkg/profiles/active_file_control_profiles.F 273 ACTIVE_WRITE_PROFILE_RL 
      integer err, fid, varid1 , vec_start(2), vec_count(2)
./pkg/profiles/active_file_control_profiles.F 306 ACTIVE_WRITE_PROFILE_RL 
      err = NF_INQ_VARID(fid,prof_names(active_varnum), varid1 )
./pkg/profiles/active_file_control_profiles.F 307 ACTIVE_WRITE_PROFILE_RL 
      err = NF_PUT_VARA_DOUBLE(fid, varid1 , vec_start, vec_count,
./pkg/profiles/active_file_control_profiles.F 310 ACTIVE_WRITE_PROFILE_RL 
      err = NF_INQ_VARID(fid,prof_namesmask(active_varnum),
./pkg/profiles/active_file_control_profiles.F 312 ACTIVE_WRITE_PROFILE_RL 
      err = NF_PUT_VARA_DOUBLE(fid, varid1 , vec_start, vec_count,
./pkg/profiles/active_file_control_profiles.F 315 ACTIVE_WRITE_PROFILE_RL 
      err = NF_INQ_VARID(fid,'prof_ind_glob', varid1 )
./pkg/profiles/active_file_control_profiles.F 316 ACTIVE_WRITE_PROFILE_RL 
      err = NF_PUT_VAR1_INT(fid, varid1 , vec_start(2),
./pkg/profiles/active_file_control_profiles.F 329 ACTIVE_WRITE_PROFILE_RL 
      write(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj)
./pkg/profiles/active_file_control_profiles.F 339 ACTIVE_WRITE_PROFILE_RL 
      write(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj)
./pkg/profiles/active_file_control_profiles.F 364 ACTIVE_WRITE_PROFILE_RL 
      err = NF_INQ_VARID(fid,prof_names(active_varnum) , varid1 )
./pkg/profiles/active_file_control_profiles.F 365 ACTIVE_WRITE_PROFILE_RL 
      err = NF_GET_VARA_DOUBLE(fid, varid1 , vec_start, vec_count,
./pkg/profiles/active_file_control_profiles.F 379 ACTIVE_WRITE_PROFILE_RL 
      err = NF_INQ_VARID(fid,prof_names(active_varnum), varid1 )
./pkg/profiles/active_file_control_profiles.F 380 ACTIVE_WRITE_PROFILE_RL 
      err = NF_PUT_VARA_DOUBLE(fid, varid1 , vec_start, vec_count,
./pkg/profiles/active_file_control_profiles.F 386 ACTIVE_WRITE_PROFILE_RL 
      read(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj)
./pkg/profiles/active_file_control_profiles.F 409 ACTIVE_WRITE_PROFILE_RL 
      write(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj)
./pkg/profiles/active_file_control_profiles.F 435 ACTIVE_WRITE_PROFILE_RL 
      err = NF_INQ_VARID(fid, prof_names(active_varnum), varid1 )
./pkg/profiles/active_file_control_profiles.F 436 ACTIVE_WRITE_PROFILE_RL 
      err = NF_PUT_VARA_DOUBLE(fid, varid1 , vec_start, vec_count,
./pkg/profiles/active_file_control_profiles.F 449 ACTIVE_WRITE_PROFILE_RL 
      write(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj)
./pkg/profiles/active_file_control_profiles.F 48 ACTIVE_READ_PROFILE_RL 
      integer err, fid, varid1 , vec_start(2), vec_count(2)
./pkg/profiles/active_file_control_profiles.F 77 ACTIVE_READ_PROFILE_RL 
      err = NF_INQ_VARID(fid,prof_names(active_varnum), varid1 )
./pkg/profiles/active_file_control_profiles.F 78 ACTIVE_READ_PROFILE_RL 
      err = NF_GET_VARA_DOUBLE(fid, varid1 , vec_start, vec_count,
./pkg/profiles/active_file_control_profiles.F 81 ACTIVE_READ_PROFILE_RL 
      err = NF_INQ_VARID(fid,prof_namesmask(active_varnum)
./pkg/profiles/active_file_control_profiles.F 83 ACTIVE_READ_PROFILE_RL 
      err = NF_GET_VARA_DOUBLE(fid, varid1 , vec_start, vec_count,
./pkg/profiles/active_file_control_profiles.F 88 ACTIVE_READ_PROFILE_RL 
      read(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj)
./pkg/profiles/active_file_control_profiles.F 97 ACTIVE_READ_PROFILE_RL 
      read(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj)
./pkg/profiles/cost_profiles.F 44 COST_PROFILES 
      integer bi,bj,iG,jG,err,fid
./pkg/profiles/cost_profiles.F 54 COST_PROFILES 
      fid=fiddata(num_file,bi,bj)