| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_curmtr.F |
120 |
COST_CURMTR |
write(fnameuvel(1:80),'(2a,i10.10)') |
|
./pkg/ecco/cost_curmtr.F |
137 |
COST_CURMTR |
call ACTIVE_READ_XYZ( fnameuvel, ubar, irec, |
|
./pkg/ecco/cost_curmtr.F |
73 |
COST_CURMTR |
character*(80) fnameuvel |
|
./pkg/ecco/cost_obcs_ageos.F |
140 |
COST_OBCS_AGEOS |
write(fnameuvel(1:80),'(2a,i10.10)') |
|
./pkg/ecco/cost_obcs_ageos.F |
196 |
COST_OBCS_AGEOS |
call ACTIVE_READ_XYZ( fnameuvel, ubar, irec, |
|
./pkg/ecco/cost_obcs_ageos.F |
87 |
COST_OBCS_AGEOS |
character*(80) fnameuvel |
|
./pkg/ecco/cost_obcse.F |
185 |
COST_OBCSE |
write(fnameuvel(1:80),'(2a,i10.10)') |
|
./pkg/ecco/cost_obcse.F |
187 |
COST_OBCSE |
call ACTIVE_READ_XYZ( fnameuvel, ubar, irec, |
|
./pkg/ecco/cost_obcse.F |
69 |
COST_OBCSE |
character*(80) fnameuvel |
|
./pkg/ecco/cost_obcsn.F |
185 |
COST_OBCSN |
write(fnameuvel(1:80),'(2a,i10.10)') |
|
./pkg/ecco/cost_obcsn.F |
187 |
COST_OBCSN |
call ACTIVE_READ_XYZ( fnameuvel, ubar, irec, |
|
./pkg/ecco/cost_obcsn.F |
69 |
COST_OBCSN |
character*(80) fnameuvel |
|
./pkg/ecco/cost_obcss.F |
185 |
COST_OBCSS |
write(fnameuvel(1:80),'(2a,i10.10)') |
|
./pkg/ecco/cost_obcss.F |
187 |
COST_OBCSS |
call ACTIVE_READ_XYZ( fnameuvel, ubar, irec, |
|
./pkg/ecco/cost_obcss.F |
69 |
COST_OBCSS |
character*(80) fnameuvel |
|
./pkg/ecco/cost_obcsw.F |
185 |
COST_OBCSW |
write(fnameuvel(1:80),'(2a,i10.10)') |
|
./pkg/ecco/cost_obcsw.F |
187 |
COST_OBCSW |
call ACTIVE_READ_XYZ( fnameuvel, ubar, irec, |
|
./pkg/ecco/cost_obcsw.F |
69 |
COST_OBCSW |
character*(80) fnameuvel |
|
./pkg/ecco/cost_trans_merid.F |
138 |
COST_TRANS_MERID |
write(fnameuvel(1:80),'(2a,i10.10)') |
|
./pkg/ecco/cost_trans_merid.F |
171 |
COST_TRANS_MERID |
call ACTIVE_READ_XYZ( fnameuvel, ubar, irec, |
|
./pkg/ecco/cost_trans_merid.F |
61 |
COST_TRANS_MERID |
character*(80) fnameuvel |
|
./pkg/ecco/cost_trans_zonal.F |
127 |
COST_TRANS_ZONAL |
write(fnameuvel(1:80),'(2a,i10.10)') |
|
./pkg/ecco/cost_trans_zonal.F |
160 |
COST_TRANS_ZONAL |
call ACTIVE_READ_XYZ( fnameuvel, ubar, irec, |
|
./pkg/ecco/cost_trans_zonal.F |
61 |
COST_TRANS_ZONAL |
character*(80) fnameuvel |