| 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 |
29 |
PROFILES_INIT_NCFILE |
integer fid1,fid2,dimid1,dimid2,varid(10),varid0 |
|
./pkg/profiles/profiles_init_ncfile.F |
40 |
PROFILES_INIT_NCFILE |
err = NF_CREATE(file2 , NF_CLOBBER, fid2) |
|
./pkg/profiles/profiles_init_ncfile.F |
41 |
PROFILES_INIT_NCFILE |
err = NF_DEF_DIM(fid2,'iDEPTH', Zlength ,dimid1) |
|
./pkg/profiles/profiles_init_ncfile.F |
42 |
PROFILES_INIT_NCFILE |
err = NF_DEF_DIM(fid2,'iPROF',length,dimid2) |
|
./pkg/profiles/profiles_init_ncfile.F |
46 |
PROFILES_INIT_NCFILE |
err = NF_DEF_VAR (fid2,'prof_ind_glob', NF_INT, 1,vecid(2), |
|
./pkg/profiles/profiles_init_ncfile.F |
48 |
PROFILES_INIT_NCFILE |
err = NF_PUT_ATT_INT(fid2,varid(1),'_FillValue',NF_INT,1,0) |
|
./pkg/profiles/profiles_init_ncfile.F |
54 |
PROFILES_INIT_NCFILE |
err = NF_DEF_VAR (fid2,prof_names(num_file,num_var), NF_DOUBLE, |
|
./pkg/profiles/profiles_init_ncfile.F |
56 |
PROFILES_INIT_NCFILE |
err = NF_PUT_ATT_DOUBLE(fid2, varid(2+(num_var-1)*2),'_FillValue', |
|
./pkg/profiles/profiles_init_ncfile.F |
58 |
PROFILES_INIT_NCFILE |
err = NF_DEF_VAR (fid2,prof_namesmask(num_file,num_var), |
|
./pkg/profiles/profiles_init_ncfile.F |
60 |
PROFILES_INIT_NCFILE |
err = NF_PUT_ATT_DOUBLE(fid2,varid(3+(num_var-1)*2),'_FillValue', |
|
./pkg/profiles/profiles_init_ncfile.F |
66 |
PROFILES_INIT_NCFILE |
err=NF_ENDDEF(fid2) |
|
./pkg/profiles/profiles_init_ncfile.F |
67 |
PROFILES_INIT_NCFILE |
err=NF_CLOSE(fid2) |
|
./pkg/profiles/profiles_init_ncfile.F |
69 |
PROFILES_INIT_NCFILE |
err = NF_OPEN(file2, NF_WRITE , fid2) |
|
./pkg/profiles/profiles_init_ncfile.F |
74 |
PROFILES_INIT_NCFILE |
open( fid2, file=file2, form ='unformatted', status='unknown', |
|
./pkg/profiles/profiles_init_ncfile.F |
85 |
PROFILES_INIT_NCFILE |
write(fid2,rec=((irec-1)*prof_num_var_tot(num_file,bi,bj) |
|
./pkg/profiles/profiles_init_ncfile.F |
87 |
PROFILES_INIT_NCFILE |
write(fid2,rec=((irec-1)*prof_num_var_tot(num_file,bi,bj) |