| File |
Line number |
Procedure |
Code |
|
./pkg/grdchk/grdchk_main.F |
166 |
GRDCHK_MAIN |
fcref = fc |
|
./pkg/grdchk/grdchk_main.F |
331 |
GRDCHK_MAIN |
fcpertplus = fc |
|
./pkg/grdchk/grdchk_main.F |
373 |
GRDCHK_MAIN |
fcpertminus = fc |
|
./pkg/seaice/seaice_cost_final.F |
140 |
SEAICE_COST_FINAL |
write(ifc,*) 'fc =', fc |
|
./pkg/seaice/seaice_cost_final.F |
89 |
SEAICE_COST_FINAL |
fc = fc |
|
./verification/OpenAD/code_oad_all/cost_dependent_init.F |
52 |
COST_DEPENDENT_INIT |
fcv = 0.0 |
|
./verification/OpenAD/code_oad_all/ctrl_pack.F |
171 |
CTRL_PACK |
fcloc = fcv |
|
./verification/OpenAD/code_oad_all/ctrl_pack.F |
189 |
CTRL_PACK |
write(cunit) fc |
|
./verification/OpenAD/code_oad_all/grdchk_main.F |
165 |
GRDCHK_MAIN |
fcref = fcv |
|
./verification/OpenAD/code_oad_all/grdchk_main.F |
330 |
GRDCHK_MAIN |
fcpertplus = fcv |
|
./verification/OpenAD/code_oad_all/grdchk_main.F |
372 |
GRDCHK_MAIN |
fcpertminus = fcv |
|
./verification/OpenAD/code_oad_all/the_model_main.F |
623 |
THE_MODEL_MAIN |
fcd=1.0 |
|
./pkg/admtlm/admtlm_model2dsvd.F |
168 |
ADMTLM_MODEL2DSVD |
fcloc = fc |
|
./pkg/admtlm/admtlm_model2dsvd.F |
207 |
ADMTLM_MODEL2DSVD |
write(cunit) fc |
|
./pkg/cost/cost.h |
38 |
NO PROCEDURE |
& fc |
|
./pkg/cost/cost.h |
39 |
NO PROCEDURE |
_RL fc |
|
./pkg/cost/cost_dependent_init.F |
52 |
COST_DEPENDENT_INIT |
fc = 0. _d 0 |
|
./pkg/cost/cost_final.F |
120 |
COST_FINAL |
fc = fc |
|
./pkg/cost/cost_final.F |
139 |
COST_FINAL |
write(standardmessageunit,'(A,D22.15)') ' local fc = ', fc |
|
./pkg/cost/cost_final.F |
142 |
COST_FINAL |
_GLOBAL_SUM_RL( fc , myThid ) |
|
./pkg/cost/cost_final.F |
146 |
COST_FINAL |
fc = totcost |
|
./pkg/cost/cost_final.F |
149 |
COST_FINAL |
write(standardmessageunit,'(A,D22.15)') ' global fc = ', fc |
|
./pkg/cost/cost_final_restore.F |
59 |
COST_FINAL_RESTORE |
read(76,*) fc |
|
./pkg/cost/cost_final_store.F |
47 |
COST_FINAL_STORE |
write(76,*) fc |
|
./pkg/cost/cost_init_varia.F |
111 |
COST_INIT_VARIA |
fc = 0. _d 0 |
|
./pkg/ctrl/ctrl_pack.F |
171 |
CTRL_PACK |
fcloc = fc |
|
./pkg/ctrl/ctrl_pack.F |
192 |
CTRL_PACK |
write(cunit) fc |
|
./lsopt/instore.F |
1 |
INSTORE |
subroutine INSTORE( n, fc, gnorm0, is, m, jmin, jmax, |
|
./lsopt/instore.F |
32 |
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/ecco/ecco_cost_final.F |
1002 |
ECCO_COST_FINAL |
fc = fc |
|
./pkg/ecco/ecco_cost_final.F |
1018 |
ECCO_COST_FINAL |
& ' --> fc =', fc |
|
./pkg/ecco/ecco_cost_final.F |
1024 |
ECCO_COST_FINAL |
& 'fc =', fc, 0. |
|
./pkg/ecco/ecco_cost_final.F |
1241 |
ECCO_COST_FINAL |
& ' cost_Final: final cost function = ',fc |
|
./pkg/ecco/ecco_cost_final.F |
326 |
ECCO_COST_FINAL |
fc = fc |
|
./pkg/ecco/ecco_cost_final.F |
394 |
ECCO_COST_FINAL |
fc = fc |
|
./pkg/ecco/ecco_cost_final.F |
402 |
ECCO_COST_FINAL |
fc = fc |
|
./pkg/ecco/ecco_cost_final.F |
409 |
ECCO_COST_FINAL |
fc = fc |
|
./pkg/ecco/ecco_cost_final.F |
416 |
ECCO_COST_FINAL |
fc = fc |
|
./pkg/ecco/ecco_cost_final.F |
611 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( fc , myThid ) |
|
./pkg/ecco/ecco_cost_final.F |
985 |
ECCO_COST_FINAL |
fc = fc |