| File |
Line number |
Procedure |
Code |
|
./pkg/grdchk/grdchk_main.F |
169 |
GRDCHK_MAIN |
fcref = fcv |
|
./pkg/grdchk/grdchk_main.F |
171 |
GRDCHK_MAIN |
fcref = fc |
|
./pkg/grdchk/grdchk_main.F |
341 |
GRDCHK_MAIN |
fcpertplus = fcv |
|
./pkg/grdchk/grdchk_main.F |
343 |
GRDCHK_MAIN |
fcpertplus = fc |
|
./pkg/grdchk/grdchk_main.F |
380 |
GRDCHK_MAIN |
fcpertminus = fcv |
|
./pkg/grdchk/grdchk_main.F |
382 |
GRDCHK_MAIN |
fcpertminus = fc |
|
./pkg/openad/the_model_main.F |
457 |
THE_MODEL_MAIN |
fcd=1.0 |
|
./pkg/seaice/seaice_cost_final.F |
123 |
SEAICE_COST_FINAL |
WRITE(ifc,*) 'fc =', fc |
|
./pkg/shelfice/shelfice_cost_final.F |
124 |
SHELFICE_COST_FINAL |
WRITE(ifc,*) 'fc =', fc |
|
./pkg/admtlm/admtlm_model2dsvd.F |
170 |
ADMTLM_MODEL2DSVD |
fcloc = fc |
|
./pkg/admtlm/admtlm_model2dsvd.F |
209 |
ADMTLM_MODEL2DSVD |
write(cunit) fc |
|
./pkg/cost/cost.h |
38 |
NO PROCEDURE |
& fc, glofc |
|
./pkg/cost/cost.h |
39 |
NO PROCEDURE |
_RL fc |
|
./pkg/cost/cost_dependent_init.F |
50 |
COST_DEPENDENT_INIT |
fcv = 0.0 |
|
./pkg/cost/cost_dependent_init.F |
52 |
COST_DEPENDENT_INIT |
fc = 0. _d 0 |
|
./pkg/cost/cost_final.F |
107 |
COST_FINAL |
write(msgBuf,'(A,D22.15)') ' early fc = ', fc |
|
./pkg/cost/cost_final.F |
189 |
COST_FINAL |
fc = fc + glob_fc |
|
./pkg/cost/cost_final.F |
194 |
COST_FINAL |
fc = fc + glofc |
|
./pkg/cost/cost_final.F |
199 |
COST_FINAL |
fc = totcost |
|
./pkg/cost/cost_final.F |
202 |
COST_FINAL |
write(msgBuf,'(A,D22.15)') ' global fc = ', fc |
|
./pkg/cost/cost_final_restore.F |
61 |
COST_FINAL_RESTORE |
read(76,*) fc |
|
./pkg/cost/cost_final_store.F |
49 |
COST_FINAL_STORE |
write(76,*) fc |
|
./pkg/cost/cost_init_varia.F |
113 |
COST_INIT_VARIA |
fc = 0. _d 0 |
|
./pkg/ctrl/ctrl_pack.F |
200 |
CTRL_PACK |
fcloc = fcv |
|
./pkg/ctrl/ctrl_pack.F |
202 |
CTRL_PACK |
fcloc = fc |
|
./pkg/ctrl/ctrl_pack.F |
228 |
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 |
1307 |
ECCO_COST_FINAL |
fc = fc + glofc |
|
./pkg/ecco/ecco_cost_final.F |
78 |
ECCO_COST_FINAL |
_RL fc, glofc |
|
./pkg/ecco/ecco_cost_final.F |
803 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( fc , myThid ) |