| File |
Line number |
Procedure |
Code |
|
./pkg/profiles/profiles_init_fixed.F |
41 |
PROFILES_INIT_FIXED |
character*(80) fnameequinc, adfnameequinc |
|
./pkg/profiles/profiles_init_fixed.F |
494 |
PROFILES_INIT_FIXED |
write(fnameequinc(1:80),'(2a,i3.3,a,i3.3,a)') |
|
./pkg/profiles/profiles_init_fixed.F |
499 |
PROFILES_INIT_FIXED |
inquire( file=fnameequinc, exist=exst ) |
|
./pkg/profiles/profiles_init_fixed.F |
502 |
PROFILES_INIT_FIXED |
& fiddata(num_file,bi,bj),fnameequinc, |
|
./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 |
516 |
PROFILES_INIT_FIXED |
write(fnameequinc(1:80),'(2a,i3.3,a,i3.3,a)') |
|
./pkg/profiles/profiles_init_fixed.F |
521 |
PROFILES_INIT_FIXED |
inquire( file=fnameequinc, exist=exst ) |
|
./pkg/profiles/profiles_init_fixed.F |
524 |
PROFILES_INIT_FIXED |
& fnameequinc,fidforward(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
532 |
PROFILES_INIT_FIXED |
open( fidforward(num_file,bi,bj),file=fnameequinc, |
|
./pkg/profiles/profiles_init_fixed.F |
588 |
PROFILES_INIT_FIXED |
write(fnameequinc(1:80),'(a,i3.3,a,i3.3,a,i4.4,a,i4.4,a)') |
|
./pkg/profiles/profiles_init_fixed.F |
593 |
PROFILES_INIT_FIXED |
& fnameequinc |
|
./pkg/profiles/profiles_init_fixed.F |
594 |
PROFILES_INIT_FIXED |
open( fid, file= fnameequinc, form ='unformatted', |
|
./pkg/profiles/profiles_init_fixed.F |
608 |
PROFILES_INIT_FIXED |
write(fnameequinc(1:80),'(a,i3.3,a,i3.3,a,i4.4,a,i4.4,a)') |
|
./pkg/profiles/profiles_init_fixed.F |
613 |
PROFILES_INIT_FIXED |
& fnameequinc |
|
./pkg/profiles/profiles_init_fixed.F |
614 |
PROFILES_INIT_FIXED |
open( fid, file= fnameequinc, form ='unformatted', |