| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_bp_read.F |
110 |
COST_BP_READ |
write(fnametmp(1:80),'(2a,i4)') |
|
./pkg/ecco/cost_bp_read.F |
112 |
COST_BP_READ |
inquire( file=fnametmp, exist=exst ) |
|
./pkg/ecco/cost_bp_read.F |
114 |
COST_BP_READ |
write(fnametmp(1:80),'(a)') localobsfile(1:il) |
|
./pkg/ecco/cost_bp_read.F |
119 |
COST_BP_READ |
call MDSREADFIELD( fnametmp, cost_iprec, cost_yftype, 1, |
|
./pkg/ecco/cost_bp_read.F |
73 |
COST_BP_READ |
character*(80) fnametmp |
|
./pkg/ecco/cost_sla_read.F |
116 |
COST_SLA_READ |
write(fnametmp(1:80),'(2a,i4)') |
|
./pkg/ecco/cost_sla_read.F |
118 |
COST_SLA_READ |
inquire( file=fnametmp, exist=exst ) |
|
./pkg/ecco/cost_sla_read.F |
122 |
COST_SLA_READ |
call MDSREADFIELD( fnametmp, cost_iprec, cost_yftype, |
|
./pkg/ecco/cost_sla_read.F |
73 |
COST_SLA_READ |
character*(80) fnametmp |
|
./pkg/ecco/cost_sla_read_yd.F |
105 |
COST_SLA_READ_YD |
write(fnametmp(1:80),'(2a,i4)') |
|
./pkg/ecco/cost_sla_read_yd.F |
107 |
COST_SLA_READ_YD |
inquire( file=fnametmp, exist=exst ) |
|
./pkg/ecco/cost_sla_read_yd.F |
112 |
COST_SLA_READ_YD |
call MDSREADFIELD( fnametmp, cost_iprec, cost_yftype, 1, sla_obs, |
|
./pkg/ecco/cost_sla_read_yd.F |
73 |
COST_SLA_READ_YD |
character*(80) fnametmp |