| File |
Line number |
Procedure |
Code |
|
./pkg/profiles/cost_profiles.F |
341 |
COST_PROFILES |
write(cfile,'(2a)') prof_names(1,num_var)(1:iL), |
|
./pkg/profiles/cost_profiles.F |
344 |
COST_PROFILES |
open( cunit, file = cfile, |
|
./pkg/profiles/cost_profiles.F |
356 |
COST_PROFILES |
write(cfile,'(2a)')prof_names(1,num_var)(1:iL), |
|
./pkg/profiles/cost_profiles.F |
359 |
COST_PROFILES |
open( cunit, file = cfile, |
|
./pkg/profiles/cost_profiles.F |
373 |
COST_PROFILES |
write(cfile,'(2a)') |
|
./pkg/profiles/cost_profiles.F |
376 |
COST_PROFILES |
open( cunit, file = cfile, |
|
./pkg/profiles/cost_profiles.F |
388 |
COST_PROFILES |
write(cfile,'(2a)')prof_names(1,num_var)(1:iL), |
|
./pkg/profiles/cost_profiles.F |
391 |
COST_PROFILES |
open( cunit, file = cfile, |
|
./pkg/profiles/cost_profiles.F |
66 |
COST_PROFILES |
character*(MAX_LEN_FNAM) cfile |
|
./pkg/admtlm/admtlm_dsvd2model.F |
171 |
ADMTLM_DSVD2MODEL |
write(cfile(1:128),'(4a,i4.4)') |
|
./pkg/admtlm/admtlm_dsvd2model.F |
179 |
ADMTLM_DSVD2MODEL |
write(cfile(1:128),'(4a,i4.4)') |
|
./pkg/admtlm/admtlm_dsvd2model.F |
192 |
ADMTLM_DSVD2MODEL |
write(cfile(1:128),'(a)') ' ' |
|
./pkg/admtlm/admtlm_dsvd2model.F |
193 |
ADMTLM_DSVD2MODEL |
write(cfile,'(a,i4.4)') |
|
./pkg/admtlm/admtlm_dsvd2model.F |
196 |
ADMTLM_DSVD2MODEL |
write(cfile(1:128),'(a)') ' ' |
|
./pkg/admtlm/admtlm_dsvd2model.F |
197 |
ADMTLM_DSVD2MODEL |
write(cfile,'(a,i4.4)') |
|
./pkg/admtlm/admtlm_dsvd2model.F |
200 |
ADMTLM_DSVD2MODEL |
print *, 'ph-pack: unpacking ', cfile |
|
./pkg/admtlm/admtlm_dsvd2model.F |
208 |
ADMTLM_DSVD2MODEL |
open( cunit, file = cfile, |
|
./pkg/admtlm/admtlm_dsvd2model.F |
82 |
ADMTLM_DSVD2MODEL |
character*(128) cfile |
|
./pkg/admtlm/admtlm_model2dsvd.F |
162 |
ADMTLM_MODEL2DSVD |
write(cfile(1:128),'(4a,i4.4)') |
|
./pkg/admtlm/admtlm_model2dsvd.F |
171 |
ADMTLM_MODEL2DSVD |
write(cfile(1:128),'(4a,i4.4)') |
|
./pkg/admtlm/admtlm_model2dsvd.F |
183 |
ADMTLM_MODEL2DSVD |
write(cfile(1:128),'(a)') ' ' |
|
./pkg/admtlm/admtlm_model2dsvd.F |
184 |
ADMTLM_MODEL2DSVD |
write(cfile,'(a,i4.4)') |
|
./pkg/admtlm/admtlm_model2dsvd.F |
187 |
ADMTLM_MODEL2DSVD |
write(cfile(1:128),'(a)') ' ' |
|
./pkg/admtlm/admtlm_model2dsvd.F |
188 |
ADMTLM_MODEL2DSVD |
write(cfile,'(a,i4.4)') |
|
./pkg/admtlm/admtlm_model2dsvd.F |
191 |
ADMTLM_MODEL2DSVD |
print *, 'ph-pack: unpacking ', cfile |
|
./pkg/admtlm/admtlm_model2dsvd.F |
199 |
ADMTLM_MODEL2DSVD |
open( cunit, file = cfile, |
|
./pkg/admtlm/admtlm_model2dsvd.F |
86 |
ADMTLM_MODEL2DSVD |
character*(128) cfile |
|
./pkg/atm2d/forward_step_atm2d.F |
130 |
FORWARD_STEP_ATM2D |
WRITE (cfile,'i4'),nfile |
|
./pkg/atm2d/forward_step_atm2d.F |
131 |
FORWARD_STEP_ATM2D |
f4tem=f14tem//cfile |
|
./pkg/atm2d/forward_step_atm2d.F |
132 |
FORWARD_STEP_ATM2D |
f4clm=f14clm//cfile |
|
./pkg/atm2d/forward_step_atm2d.F |
133 |
FORWARD_STEP_ATM2D |
f24tem=f124tem//cfile |
|
./pkg/atm2d/forward_step_atm2d.F |
134 |
FORWARD_STEP_ATM2D |
f34tem=f134tem//cfile |
|
./pkg/atm2d/forward_step_atm2d.F |
76 |
FORWARD_STEP_ATM2D |
CHARACTER *4 cfile |
|
./pkg/ctrl/ctrl_pack.F |
109 |
CTRL_PACK |
character*(128) cfile |
|
./pkg/ctrl/ctrl_pack.F |
190 |
CTRL_PACK |
write(cfile(1:128),'(4a,i4.4)') |
|
./pkg/ctrl/ctrl_pack.F |
207 |
CTRL_PACK |
write(cfile(1:128),'(4a,i4.4)') |
|
./pkg/ctrl/ctrl_pack.F |
217 |
CTRL_PACK |
open( cunit, file = cfile, |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
74 |
CTRL_SET_UNPACK_XYZ |
character*(128) cfile |
|
./pkg/ctrl/ctrl_unpack.F |
104 |
CTRL_UNPACK |
character*(128) cfile |
|
./pkg/ctrl/ctrl_unpack.F |
200 |
CTRL_UNPACK |
write(cfile(1:128),'(4a,i4.4)') |
|
./pkg/ctrl/ctrl_unpack.F |
209 |
CTRL_UNPACK |
write(cfile(1:128),'(4a,i4.4)') |
|
./pkg/ctrl/ctrl_unpack.F |
223 |
CTRL_UNPACK |
open( cunit, file = cfile, |