| File |
Line number |
Procedure |
Code |
|
./pkg/profiles/profiles_init_fixed.F |
289 |
PROFILES_INIT_FIXED |
write(fnameequinc(1:80),'(2a,i3.3,a,i3.3,a)') |
|
./pkg/profiles/profiles_init_fixed.F |
294 |
PROFILES_INIT_FIXED |
inquire( file=fnameequinc, exist=exst ) |
|
./pkg/profiles/profiles_init_fixed.F |
297 |
PROFILES_INIT_FIXED |
& fiddata(num_file,bi,bj),fnameequinc, |
|
./pkg/profiles/profiles_init_fixed.F |
305 |
PROFILES_INIT_FIXED |
err = NF_OPEN(fnameequinc,NF_WRITE,fidforward(num_file,bi,bj)) |
|
./pkg/profiles/profiles_init_fixed.F |
311 |
PROFILES_INIT_FIXED |
write(fnameequinc(1:80),'(2a,i3.3,a,i3.3,a)') |
|
./pkg/profiles/profiles_init_fixed.F |
316 |
PROFILES_INIT_FIXED |
inquire( file=fnameequinc, exist=exst ) |
|
./pkg/profiles/profiles_init_fixed.F |
319 |
PROFILES_INIT_FIXED |
& fnameequinc,fidforward(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
327 |
PROFILES_INIT_FIXED |
open( fidforward(num_file,bi,bj),file=fnameequinc, |
|
./pkg/profiles/profiles_init_fixed.F |
39 |
PROFILES_INIT_FIXED |
character*(80) fnameequinc, adfnameequinc |