| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_atemp.F |
103 |
COST_ATEMP |
call ACTIVE_READ_XY_LOC( fnamefld, tmpfld2d, irec, doglobalread, |
|
./pkg/ecco/cost_atemp.F |
63 |
COST_ATEMP |
character*(80) fnamefld |
|
./pkg/ecco/cost_atemp.F |
94 |
COST_ATEMP |
write(fnamefld(1:80),'(2a,i10.10)') |
|
./pkg/ecco/cost_heatflux.F |
107 |
COST_HEATFLUX |
write(fnamefld(1:80),'(2a,i10.10)') |
|
./pkg/ecco/cost_heatflux.F |
126 |
COST_HEATFLUX |
call ACTIVE_READ_XY_LOC( fnamefld, tmpfld2d, irec, doglobalread, |
|
./pkg/ecco/cost_heatflux.F |
194 |
COST_HEATFLUX |
call ACTIVE_READ_XY_LOC( fnamefld, tmpfld2d, irec, doglobalread, |
|
./pkg/ecco/cost_heatflux.F |
76 |
COST_HEATFLUX |
character*(80) fnamefld |
|
./pkg/ecco/cost_salt0.F |
103 |
COST_SALT0 |
call ACTIVE_READ_XYZ_LOC( fnamefld, tmpfld3d, irec, doglobalread, |
|
./pkg/ecco/cost_salt0.F |
67 |
COST_SALT0 |
character*(80) fnamefld |
|
./pkg/ecco/cost_salt0.F |
97 |
COST_SALT0 |
write(fnamefld(1:80),'(2a,i10.10)') |
|
./pkg/ecco/cost_uwind.F |
103 |
COST_UWIND |
call ACTIVE_READ_XY_LOC( fnamefld, tmpfld2d, irec, doglobalread, |
|
./pkg/ecco/cost_uwind.F |
63 |
COST_UWIND |
character*(80) fnamefld |
|
./pkg/ecco/cost_uwind.F |
94 |
COST_UWIND |
write(fnamefld(1:80),'(2a,i10.10)') |
|
./pkg/ecco/cost_kapgm.F |
101 |
COST_KAPGM |
write(fnamefld(1:80),'(2a,i10.10)') |
|
./pkg/ecco/cost_kapgm.F |
107 |
COST_KAPGM |
call ACTIVE_READ_XYZ_LOC( fnamefld, tmpfld3d, irec, doglobalread, |
|
./pkg/ecco/cost_kapgm.F |
71 |
COST_KAPGM |
character*(80) fnamefld |
|
./pkg/ecco/cost_zonstress.F |
107 |
COST_ZONSTRESS |
write(fnamefld(1:80),'(2a,i10.10)') |
|
./pkg/ecco/cost_zonstress.F |
126 |
COST_ZONSTRESS |
call ACTIVE_READ_XY_LOC( fnamefld, tmpfld2d, irec, doglobalread, |
|
./pkg/ecco/cost_zonstress.F |
194 |
COST_ZONSTRESS |
call ACTIVE_READ_XY_LOC( fnamefld, tmpfld2d, irec, doglobalread, |
|
./pkg/ecco/cost_zonstress.F |
76 |
COST_ZONSTRESS |
character*(80) fnamefld |
|
./pkg/ecco/cost_theta0.F |
103 |
COST_THETA0 |
call ACTIVE_READ_XYZ_LOC( fnamefld, tmpfld3d, irec, doglobalread, |
|
./pkg/ecco/cost_theta0.F |
67 |
COST_THETA0 |
character*(80) fnamefld |
|
./pkg/ecco/cost_theta0.F |
97 |
COST_THETA0 |
write(fnamefld(1:80),'(2a,i10.10)') |
|
./pkg/ecco/cost_theta_ini_fin.F |
59 |
COST_THETA_INI_FIN |
character*(80) fnamefld |
|
./pkg/ecco/cost_theta_ini_fin.F |
88 |
COST_THETA_INI_FIN |
write(fnamefld(1:80),'(2a,i10.10)') |
|
./pkg/ecco/cost_theta_ini_fin.F |
93 |
COST_THETA_INI_FIN |
call ACTIVE_READ_XYZ( fnamefld, tmpfld3d, irec, doglobalread, |
|
./pkg/ecco/cost_saltflux.F |
107 |
COST_SALTFLUX |
write(fnamefld(1:80),'(2a,i10.10)') |
|
./pkg/ecco/cost_saltflux.F |
126 |
COST_SALTFLUX |
call ACTIVE_READ_XY_LOC( fnamefld, tmpfld2d, irec, doglobalread, |
|
./pkg/ecco/cost_saltflux.F |
194 |
COST_SALTFLUX |
call ACTIVE_READ_XY_LOC( fnamefld, tmpfld2d, irec, doglobalread, |
|
./pkg/ecco/cost_saltflux.F |
76 |
COST_SALTFLUX |
character*(80) fnamefld |
|
./pkg/ecco/cost_aqh.F |
103 |
COST_AQH |
call ACTIVE_READ_XY_LOC( fnamefld, tmpfld2d, irec, doglobalread, |
|
./pkg/ecco/cost_aqh.F |
63 |
COST_AQH |
character*(80) fnamefld |
|
./pkg/ecco/cost_aqh.F |
94 |
COST_AQH |
write(fnamefld(1:80),'(2a,i10.10)') |
|
./pkg/ecco/cost_merstress.F |
107 |
COST_MERSTRESS |
write(fnamefld(1:80),'(2a,i10.10)') |
|
./pkg/ecco/cost_merstress.F |
126 |
COST_MERSTRESS |
call ACTIVE_READ_XY_LOC( fnamefld, tmpfld2d, irec, doglobalread, |
|
./pkg/ecco/cost_merstress.F |
196 |
COST_MERSTRESS |
call ACTIVE_READ_XY_LOC( fnamefld, tmpfld2d, irec, doglobalread, |
|
./pkg/ecco/cost_merstress.F |
76 |
COST_MERSTRESS |
character*(80) fnamefld |
|
./pkg/ecco/cost_salt_ini_fin.F |
59 |
COST_SALT_INI_FIN |
character*(80) fnamefld |
|
./pkg/ecco/cost_salt_ini_fin.F |
88 |
COST_SALT_INI_FIN |
write(fnamefld(1:80),'(2a,i10.10)') |
|
./pkg/ecco/cost_salt_ini_fin.F |
93 |
COST_SALT_INI_FIN |
call ACTIVE_READ_XYZ( fnamefld, tmpfld3d, irec, doglobalread, |
|
./pkg/ecco/cost_vwind.F |
103 |
COST_VWIND |
call ACTIVE_READ_XY_LOC( fnamefld, tmpfld2d, irec, doglobalread, |
|
./pkg/ecco/cost_vwind.F |
63 |
COST_VWIND |
character*(80) fnamefld |
|
./pkg/ecco/cost_vwind.F |
94 |
COST_VWIND |
write(fnamefld(1:80),'(2a,i10.10)') |