| File |
Line number |
Procedure |
Code |
|
./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 |
28 |
PROFILES_INIT_NCFILE |
integer fid1,fid2,dimid1,dimid2,varid(10),varid0 |
|
./pkg/profiles/profiles_init_ncfile.F |
39 |
PROFILES_INIT_NCFILE |
err = NF_CREATE(file2 , NF_CLOBBER, fid2) |
|
./pkg/profiles/profiles_init_ncfile.F |
40 |
PROFILES_INIT_NCFILE |
err = NF_DEF_DIM(fid2,'iDEPTH', Zlength ,dimid1) |
|
./pkg/profiles/profiles_init_ncfile.F |
41 |
PROFILES_INIT_NCFILE |
err = NF_DEF_DIM(fid2,'iPROF',length,dimid2) |
|
./pkg/profiles/profiles_init_ncfile.F |
45 |
PROFILES_INIT_NCFILE |
err = NF_DEF_VAR (fid2,'prof_ind_glob', NF_INT, 1,vecid(2), |
|
./pkg/profiles/profiles_init_ncfile.F |
47 |
PROFILES_INIT_NCFILE |
err = NF_PUT_ATT_INT(fid2,varid(1),'_FillValue',NF_INT,1,0) |
|
./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 |
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 |
59 |
PROFILES_INIT_NCFILE |
err = NF_PUT_ATT_DOUBLE(fid2,varid(3+(num_var-1)*2),'_FillValue', |
|
./pkg/profiles/profiles_init_ncfile.F |
65 |
PROFILES_INIT_NCFILE |
err=NF_ENDDEF(fid2) |
|
./pkg/profiles/profiles_init_ncfile.F |
66 |
PROFILES_INIT_NCFILE |
err=NF_CLOSE(fid2) |
|
./pkg/profiles/profiles_init_ncfile.F |
68 |
PROFILES_INIT_NCFILE |
err = NF_OPEN(file2, NF_WRITE , fid2) |
|
./pkg/profiles/profiles_init_ncfile.F |
72 |
PROFILES_INIT_NCFILE |
call MDSFINDUNIT( fid2 , mythid ) |
|
./pkg/profiles/profiles_init_ncfile.F |
73 |
PROFILES_INIT_NCFILE |
open( fid2, file=file2, form ='unformatted', status='unknown', |
|
./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) |