| File |
Line number |
Procedure |
Code |
|
./pkg/mdsio/mdsio_read_whalos.F |
13 |
MDS_READ_WHALOS |
I fid, |
|
./pkg/mdsio/mdsio_read_whalos.F |
143 |
MDS_READ_WHALOS |
IF (fid.EQ.0) THEN |
|
./pkg/mdsio/mdsio_read_whalos.F |
148 |
MDS_READ_WHALOS |
dUnit=fid |
|
./pkg/mdsio/mdsio_read_whalos.F |
163 |
MDS_READ_WHALOS |
IF ( iAmDoingIO.AND.locBufferIO.AND.(fid.NE.0) ) THEN |
|
./pkg/mdsio/mdsio_read_whalos.F |
256 |
MDS_READ_WHALOS |
IF ( iAmDoingIO.AND.(fid.EQ.0) ) THEN |
|
./pkg/mdsio/mdsio_read_whalos.F |
58 |
MDS_READ_WHALOS |
integer fid |
|
./pkg/mdsio/mdsio_write_whalos.F |
134 |
MDS_WRITE_WHALOS |
IF (fid.EQ.0) THEN |
|
./pkg/mdsio/mdsio_write_whalos.F |
139 |
MDS_WRITE_WHALOS |
dUnit=fid |
|
./pkg/mdsio/mdsio_write_whalos.F |
13 |
MDS_WRITE_WHALOS |
I fid, |
|
./pkg/mdsio/mdsio_write_whalos.F |
170 |
MDS_WRITE_WHALOS |
IF ( iAmDoingIO.AND.locBufferIO.AND.(fid.NE.0) ) THEN |
|
./pkg/mdsio/mdsio_write_whalos.F |
241 |
MDS_WRITE_WHALOS |
IF ( iAmDoingIO.AND.(fid.EQ.0) ) THEN |
|
./pkg/mdsio/mdsio_write_whalos.F |
58 |
MDS_WRITE_WHALOS |
integer fid |
|
./pkg/mnc/mnc_cw_cvars.F |
14 |
MNC_CW_WRITE_CVAR |
I fid, |
|
./pkg/mnc/mnc_cw_cvars.F |
412 |
MNC_CW_WRITE_CVAR |
err = NF_DEF_VAR(fid, cvname, NF_DOUBLE, |
|
./pkg/mnc/mnc_cw_cvars.F |
415 |
MNC_CW_WRITE_CVAR |
err = NF_DEF_VAR(fid, cvname, NF_FLOAT, |
|
./pkg/mnc/mnc_cw_cvars.F |
41 |
MNC_CW_WRITE_CVAR |
integer fid, did, bi,bj |
|
./pkg/mnc/mnc_cw_cvars.F |
425 |
MNC_CW_WRITE_CVAR |
err = NF_PUT_ATT_TEXT(fid, vid, 'long_name', ia, long_name) |
|
./pkg/mnc/mnc_cw_cvars.F |
433 |
MNC_CW_WRITE_CVAR |
err = NF_PUT_ATT_TEXT(fid, vid, 'units', ia, units) |
|
./pkg/mnc/mnc_cw_cvars.F |
441 |
MNC_CW_WRITE_CVAR |
err = NF_PUT_ATT_TEXT(fid, vid, 'positive', ia, positive) |
|
./pkg/mnc/mnc_cw_cvars.F |
450 |
MNC_CW_WRITE_CVAR |
err = NF_PUT_VARA_DOUBLE(fid, vid, |
|
./pkg/mnc/mnc_cw_cvars.F |
453 |
MNC_CW_WRITE_CVAR |
err = NF_PUT_VARA_REAL(fid, vid, |
|
./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_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_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_utils.F |
205 |
MNC_GET_FVINDS |
INTEGER myThid, fid, indf, ind_fv_ids |
|
./pkg/mnc/mnc_utils.F |
225 |
MNC_GET_FVINDS |
fid = mnc_f_info(indf,2) |
|
./pkg/mnc/mnc_var.F |
145 |
MNC_VAR_INIT_ANY |
INTEGER i,j,k, n, nf, indf,indv, fid, nd, ngrid, is,ie, err |
|
./pkg/mnc/mnc_var.F |
165 |
MNC_VAR_INIT_ANY |
fid = mnc_f_info(indf,2) |
|
./pkg/mnc/mnc_var.F |
232 |
MNC_VAR_INIT_ANY |
err = NF_DEF_VAR(fid, vname, vtype, nd, ids, vid) |
|
./pkg/mnc/mnc_var.F |
440 |
MNC_VAR_ADD_ATTR_ANY |
INTEGER n, indf,ind_fv_ids, fid,vid, err |
|
./pkg/mnc/mnc_var.F |
458 |
MNC_VAR_ADD_ATTR_ANY |
fid = mnc_f_info(indf,2) |
|
./pkg/mnc/mnc_var.F |
464 |
MNC_VAR_ADD_ATTR_ANY |
err = NF_PUT_ATT_TEXT(fid, vid, atname, lens, cs) |
|
./pkg/mnc/mnc_var.F |
466 |
MNC_VAR_ADD_ATTR_ANY |
err = NF_PUT_ATT_DOUBLE(fid, vid, atname, NF_DOUBLE, len, dv) |
|
./pkg/mnc/mnc_var.F |
468 |
MNC_VAR_ADD_ATTR_ANY |
err = NF_PUT_ATT_REAL(fid, vid, atname, NF_FLOAT, len, rv) |
|
./pkg/mnc/mnc_var.F |
470 |
MNC_VAR_ADD_ATTR_ANY |
err = NF_PUT_ATT_INT(fid, vid, atname, NF_INT, len, iv) |
|
./pkg/mnc/mnc_var.F |
680 |
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 |
697 |
MNC_VAR_WRITE_ANY |
fid = mnc_f_info(indf,2) |
|
./pkg/mnc/mnc_var.F |
715 |
MNC_VAR_WRITE_ANY |
err = NF_INQ_DIMLEN(fid, did, lend) |
|
./pkg/mnc/mnc_var.F |
728 |
MNC_VAR_WRITE_ANY |
err = NF_PUT_VARA_DOUBLE(fid, vid, vstart, vcount, dv) |
|
./pkg/mnc/mnc_var.F |
730 |
MNC_VAR_WRITE_ANY |
err = NF_PUT_VARA_REAL(fid, vid, vstart, vcount, rv) |
|
./pkg/mnc/mnc_var.F |
732 |
MNC_VAR_WRITE_ANY |
err = NF_PUT_VARA_INT(fid, vid, vstart, vcount, iv) |
|
./pkg/profiles/active_file_control_profiles.F |
101 |
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 |
132 |
ACTIVE_READ_PROFILE_RL |
err = NF_INQ_VARID(fid,prof_names(active_num_file,active_varnum), |
|
./pkg/profiles/active_file_control_profiles.F |
134 |
ACTIVE_READ_PROFILE_RL |
err = NF_GET_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
|
./pkg/profiles/active_file_control_profiles.F |
147 |
ACTIVE_READ_PROFILE_RL |
err = NF_INQ_VARID(fid,prof_names(active_num_file,active_varnum), |
|
./pkg/profiles/active_file_control_profiles.F |
149 |
ACTIVE_READ_PROFILE_RL |
err = NF_PUT_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
|
./pkg/profiles/active_file_control_profiles.F |
15 |
ACTIVE_READ_PROFILE_RL |
I fid, |
|
./pkg/profiles/active_file_control_profiles.F |
160 |
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 |
182 |
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 |
212 |
ACTIVE_READ_PROFILE_RL |
err = NF_INQ_VARID(fid,prof_names(active_num_file,active_varnum), |
|
./pkg/profiles/active_file_control_profiles.F |
214 |
ACTIVE_READ_PROFILE_RL |
err = NF_GET_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
|
./pkg/profiles/active_file_control_profiles.F |
219 |
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 |
245 |
ACTIVE_WRITE_PROFILE_RL |
I fid, |
|
./pkg/profiles/active_file_control_profiles.F |
280 |
ACTIVE_WRITE_PROFILE_RL |
integer err, fid, varid1 , vec_start(2), vec_count(2) |
|
./pkg/profiles/active_file_control_profiles.F |
313 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_INQ_VARID(fid,prof_names(active_num_file,active_varnum), |
|
./pkg/profiles/active_file_control_profiles.F |
315 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_PUT_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
|
./pkg/profiles/active_file_control_profiles.F |
318 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_INQ_VARID(fid,prof_namesmask(active_num_file, |
|
./pkg/profiles/active_file_control_profiles.F |
320 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_PUT_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
|
./pkg/profiles/active_file_control_profiles.F |
323 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_INQ_VARID(fid,'prof_ind_glob', varid1 ) |
|
./pkg/profiles/active_file_control_profiles.F |
324 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_PUT_VAR1_INT(fid, varid1 , vec_start(2), |
|
./pkg/profiles/active_file_control_profiles.F |
337 |
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 |
347 |
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 |
372 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_INQ_VARID(fid,prof_names(active_num_file,active_varnum), |
|
./pkg/profiles/active_file_control_profiles.F |
374 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_GET_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
|
./pkg/profiles/active_file_control_profiles.F |
388 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_INQ_VARID(fid,prof_names(active_num_file,active_varnum), |
|
./pkg/profiles/active_file_control_profiles.F |
390 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_PUT_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
|
./pkg/profiles/active_file_control_profiles.F |
396 |
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 |
419 |
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 |
445 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_INQ_VARID(fid, prof_names(active_num_file,active_varnum), |
|
./pkg/profiles/active_file_control_profiles.F |
447 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_PUT_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
|
./pkg/profiles/active_file_control_profiles.F |
460 |
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 |
51 |
ACTIVE_READ_PROFILE_RL |
integer err, fid, varid1 , vec_start(2), vec_count(2) |
|
./pkg/profiles/active_file_control_profiles.F |
80 |
ACTIVE_READ_PROFILE_RL |
err = NF_INQ_VARID(fid,prof_names(active_num_file,active_varnum), |
|
./pkg/profiles/active_file_control_profiles.F |
82 |
ACTIVE_READ_PROFILE_RL |
err = NF_GET_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
|
./pkg/profiles/active_file_control_profiles.F |
85 |
ACTIVE_READ_PROFILE_RL |
err = NF_INQ_VARID(fid,prof_namesmask(active_num_file, |
|
./pkg/profiles/active_file_control_profiles.F |
87 |
ACTIVE_READ_PROFILE_RL |
err = NF_GET_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
|
./pkg/profiles/active_file_control_profiles.F |
92 |
ACTIVE_READ_PROFILE_RL |
read(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
133 |
COST_PROFILES |
fid=fiddata(num_file,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
412 |
COST_PROFILES |
fid=fiddata(num_file,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
46 |
COST_PROFILES |
integer bi,bj,iG,jG,fid |
|
./pkg/profiles/profiles_init_fixed.F |
191 |
PROFILES_INIT_FIXED |
fid=fiddata(num_file,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
192 |
PROFILES_INIT_FIXED |
err = NF_INQ_DIMID(fid,'iPROF', dimid ) |
|
./pkg/profiles/profiles_init_fixed.F |
193 |
PROFILES_INIT_FIXED |
err = NF_INQ_DIMLEN(fid, dimid, ProfNo(num_file,bi,bj) ) |
|
./pkg/profiles/profiles_init_fixed.F |
194 |
PROFILES_INIT_FIXED |
err = NF_INQ_DIMID(fid,'iDEPTH', dimid ) |
|
./pkg/profiles/profiles_init_fixed.F |
196 |
PROFILES_INIT_FIXED |
err = NF_INQ_DIMID(fid,'Z', dimid ) |
|
./pkg/profiles/profiles_init_fixed.F |
198 |
PROFILES_INIT_FIXED |
err = NF_INQ_DIMLEN(fid, dimid, ProfDepthNo(num_file,bi,bj) ) |
|
./pkg/profiles/profiles_init_fixed.F |
199 |
PROFILES_INIT_FIXED |
err = NF_INQ_DIMID(fid,'iINTERP', dimid ) |
|
./pkg/profiles/profiles_init_fixed.F |
201 |
PROFILES_INIT_FIXED |
err = NF_INQ_DIMLEN(fid, dimid, iINTERP ) |
|
./pkg/profiles/profiles_init_fixed.F |
223 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_depth', varid1a ) |
|
./pkg/profiles/profiles_init_fixed.F |
226 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'depth', varid1a ) |
|
./pkg/profiles/profiles_init_fixed.F |
239 |
PROFILES_INIT_FIXED |
err = NF_GET_VAR1_DOUBLE(fid,varid1a,k, |
|
./pkg/profiles/profiles_init_fixed.F |
243 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_YYYYMMDD', varid1a ) |
|
./pkg/profiles/profiles_init_fixed.F |
244 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_HHMMSS', varid1b ) |
|
./pkg/profiles/profiles_init_fixed.F |
245 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_lon', varid2 ) |
|
./pkg/profiles/profiles_init_fixed.F |
246 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_lat', varid3 ) |
|
./pkg/profiles/profiles_init_fixed.F |
248 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_bin_id_a', varid4 ) |
|
./pkg/profiles/profiles_init_fixed.F |
262 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_interp_XC11',varid_intp1) |
|
./pkg/profiles/profiles_init_fixed.F |
263 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_interp_YC11',varid_intp2) |
|
./pkg/profiles/profiles_init_fixed.F |
264 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_interp_XCNINJ',varid_intp11) |
|
./pkg/profiles/profiles_init_fixed.F |
265 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_interp_YCNINJ',varid_intp22) |
|
./pkg/profiles/profiles_init_fixed.F |
266 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_interp_weights',varid_intp3) |
|
./pkg/profiles/profiles_init_fixed.F |
267 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_interp_i',varid_intp4) |
|
./pkg/profiles/profiles_init_fixed.F |
268 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_interp_j',varid_intp5) |
|
./pkg/profiles/profiles_init_fixed.F |
326 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid1a,vec_start(2), |
|
./pkg/profiles/profiles_init_fixed.F |
328 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid1b,vec_start(2), |
|
./pkg/profiles/profiles_init_fixed.F |
330 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid2,vec_start(2), |
|
./pkg/profiles/profiles_init_fixed.F |
332 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid3,vec_start(2), |
|
./pkg/profiles/profiles_init_fixed.F |
335 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid4,vec_start(2), |
|
./pkg/profiles/profiles_init_fixed.F |
349 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid_intp1,vec_start(2), |
|
./pkg/profiles/profiles_init_fixed.F |
351 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid_intp2,vec_start(2), |
|
./pkg/profiles/profiles_init_fixed.F |
353 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid_intp11,vec_start(2), |
|
./pkg/profiles/profiles_init_fixed.F |
355 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid_intp22,vec_start(2), |
|
./pkg/profiles/profiles_init_fixed.F |
362 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid_intp3,vec_start2, |
|
./pkg/profiles/profiles_init_fixed.F |
364 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid_intp4,vec_start2, |
|
./pkg/profiles/profiles_init_fixed.F |
366 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid_intp5,vec_start2, |
|
./pkg/profiles/profiles_init_fixed.F |
43 |
PROFILES_INIT_FIXED |
integer fid, dimid, varid1, varid1a, varid1b |
|
./pkg/profiles/profiles_init_fixed.F |
631 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,prof_names(num_file,k)(1:JL), varid1 ) |
|
./pkg/profiles/profiles_init_fixed.F |
878 |
PROFILES_INIT_FIXED |
call MDSFINDUNIT( fid , mythid ) |
|
./pkg/profiles/profiles_init_fixed.F |
885 |
PROFILES_INIT_FIXED |
open( fid, file= fnameequinc, form ='unformatted', |
|
./pkg/profiles/profiles_init_fixed.F |
895 |
PROFILES_INIT_FIXED |
write(fid,rec=1) xy_buffer_r8 |
|
./pkg/profiles/profiles_init_fixed.F |
896 |
PROFILES_INIT_FIXED |
close(fid) |
|
./pkg/profiles/profiles_init_fixed.F |
898 |
PROFILES_INIT_FIXED |
call MDSFINDUNIT( fid , mythid ) |
|
./pkg/profiles/profiles_init_fixed.F |
905 |
PROFILES_INIT_FIXED |
open( fid, file= fnameequinc, form ='unformatted', |
|
./pkg/profiles/profiles_init_fixed.F |
915 |
PROFILES_INIT_FIXED |
write(fid,rec=1) xy_buffer_r8 |
|
./pkg/profiles/profiles_init_fixed.F |
916 |
PROFILES_INIT_FIXED |
close(fid) |