File |
Line number |
Procedure |
Code |
./pkg/profiles/profiles_init_fixed.F |
57 |
PROFILES_INIT_FIXED |
character*(80) fnameequinc, adfnameequinc |
./pkg/profiles/profiles_init_fixed.F |
677 |
PROFILES_INIT_FIXED |
write(adfnameequinc(1:80),'(4a,i3.3,a,i3.3,a)') |
./pkg/profiles/profiles_init_fixed.F |
692 |
PROFILES_INIT_FIXED |
inquire( file=adfnameequinc, exist=exst ) |
./pkg/profiles/profiles_init_fixed.F |
695 |
PROFILES_INIT_FIXED |
& adfnameequinc, fidadjoint(num_file,bi,bj), |
./pkg/profiles/profiles_init_fixed.F |
699 |
PROFILES_INIT_FIXED |
err = NF_OPEN(adfnameequinc,NF_WRITE,fidadjoint(num_file,bi,bj)) |
./pkg/profiles/profiles_init_fixed.F |
706 |
PROFILES_INIT_FIXED |
write(adfnameequinc(1:80),'(4a,i3.3,a,i3.3,a)') |
./pkg/profiles/profiles_init_fixed.F |
727 |
PROFILES_INIT_FIXED |
inquire( file=adfnameequinc, exist=exst ) |
./pkg/profiles/profiles_init_fixed.F |
735 |
PROFILES_INIT_FIXED |
& adfnameequinc, fidadjoint(num_file,bi,bj), |
./pkg/profiles/profiles_init_fixed.F |
739 |
PROFILES_INIT_FIXED |
open( fidadjoint(num_file,bi,bj),file=adfnameequinc, |