| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_cost_final.F |
198 |
ECCO_COST_FINAL |
fc = fc |
|
./pkg/ecco/ecco_cost_final.F |
342 |
ECCO_COST_FINAL |
_GLOBAL_SUM_R8( fc , myThid ) |
|
./pkg/ecco/ecco_cost_final.F |
556 |
ECCO_COST_FINAL |
fc = fc + mult_hmean*objf_hmean |
|
./pkg/ecco/ecco_cost_final.F |
557 |
ECCO_COST_FINAL |
fc = fc + 0.*mult_hflux*f_hfluxmm |
|
./pkg/ecco/ecco_cost_final.F |
558 |
ECCO_COST_FINAL |
fc = fc + 0.*mult_sflux*f_sfluxmm |
|
./pkg/ecco/ecco_cost_final.F |
562 |
ECCO_COST_FINAL |
& ' --> fc =', fc |
|
./pkg/ecco/ecco_cost_final.F |
568 |
ECCO_COST_FINAL |
write(ifc,*) 'fc =', fc |
|
./pkg/ecco/ecco_cost_final.F |
634 |
ECCO_COST_FINAL |
& ' cost_Final: final cost function = ',fc |
|
./pkg/grdchk/grdchk_main.F |
157 |
GRDCHK_MAIN |
fcref = fc |
|
./pkg/grdchk/grdchk_main.F |
306 |
GRDCHK_MAIN |
fcpertplus = fc |
|
./pkg/grdchk/grdchk_main.F |
346 |
GRDCHK_MAIN |
fcpertminus = fc |
|
./lsopt/instore.F |
1 |
INSTORE |
subroutine INSTORE( n, fc, gnorm0, is, m, jmin, jmax, |
|
./lsopt/instore.F |
31 |
INSTORE |
read( itape, *, end=800, err=900 ) n, fc, gnorm0, |
|
./lsopt/instore.F |
7 |
INSTORE |
double precision fc, gnorm0 |
|
./lsopt/outstore.F |
18 |
OUTSTORE |
write( itape, * ) n, fc, gnorm0, isize, m, jmin, jmax |
|
./lsopt/outstore.F |
1 |
OUTSTORE |
subroutine OUTSTORE( n, fc, gnorm0, m, jmin, jmax ) |
|
./lsopt/outstore.F |
6 |
OUTSTORE |
double precision fc, gnorm0 |
|
./pkg/cost/cost.h |
36 |
NO PROCEDURE |
& fc |
|
./pkg/cost/cost.h |
37 |
NO PROCEDURE |
_RL fc |
|
./pkg/cost/cost_final.F |
83 |
COST_FINAL |
fc = fc |
|
./pkg/cost/cost_final.F |
90 |
COST_FINAL |
write(standardmessageunit,'(A,D22.15)') ' local fc = ', fc |
|
./pkg/cost/cost_final.F |
93 |
COST_FINAL |
_GLOBAL_SUM_R8( fc , myThid ) |
|
./pkg/cost/cost_final.F |
95 |
COST_FINAL |
write(standardmessageunit,'(A,D22.15)') ' global fc = ', fc |
|
./pkg/cost/cost_final_store.F |
46 |
COST_FINAL_STORE |
write(76,*) fc |
|
./pkg/cost/cost_final_restore.F |
58 |
COST_FINAL_RESTORE |
read(76,*) fc |
|
./pkg/cost/cost_dependent_init.F |
52 |
COST_DEPENDENT_INIT |
fc = 0.0 |
|
./pkg/cost/cost_initvaria.F |
96 |
COST_INITVARIA |
fc = 0. _d 0 |
|
./pkg/ctrl/ctrl_pack.F |
154 |
CTRL_PACK |
fcloc = fc |
|
./pkg/ctrl/ctrl_pack.F |
172 |
CTRL_PACK |
write(cunit) fc |