| File |
Line number |
Procedure |
Code |
|
./pkg/profiles/profiles_init_fixed.F |
45 |
PROFILES_INIT_FIXED |
character*(80) fnameequinc, adfnameequinc |
|
./pkg/profiles/profiles_init_fixed.F |
631 |
PROFILES_INIT_FIXED |
write(adfnameequinc(1:80),'(4a,i3.3,a,i3.3,a)') |
|
./pkg/profiles/profiles_init_fixed.F |
646 |
PROFILES_INIT_FIXED |
inquire( file=adfnameequinc, exist=exst ) |
|
./pkg/profiles/profiles_init_fixed.F |
649 |
PROFILES_INIT_FIXED |
& adfnameequinc, fidadjoint(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
653 |
PROFILES_INIT_FIXED |
err = NF_OPEN(adfnameequinc,NF_WRITE,fidadjoint(num_file,bi,bj)) |
|
./pkg/profiles/profiles_init_fixed.F |
660 |
PROFILES_INIT_FIXED |
write(adfnameequinc(1:80),'(4a,i3.3,a,i3.3,a)') |
|
./pkg/profiles/profiles_init_fixed.F |
679 |
PROFILES_INIT_FIXED |
inquire( file=adfnameequinc, exist=exst ) |
|
./pkg/profiles/profiles_init_fixed.F |
684 |
PROFILES_INIT_FIXED |
& adfnameequinc, fidadjoint(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
689 |
PROFILES_INIT_FIXED |
open( fidadjoint(num_file,bi,bj),file=adfnameequinc, |