| File |
Line number |
Procedure |
Code |
|
./pkg/atm2d/atm2d_finish.F |
30 |
ATM2D_FINISH |
INTEGER rc |
|
./pkg/atm2d/atm2d_finish.F |
34 |
ATM2D_FINISH |
CALL MPI_BARRIER( MPI_COMM_WORLD, rc ) |
|
./pkg/atm2d/atm2d_finish.F |
35 |
ATM2D_FINISH |
CALL MPI_FINALIZE(rc) |
|
./pkg/atm_ocn_coupler/coupler.F |
23 |
NO PROCEDURE |
INTEGER rc |
|
./pkg/atm_ocn_coupler/coupler.F |
55 |
NO PROCEDURE |
CALL MPI_BARRIER( MPI_COMM_WORLD, rc ) |
|
./pkg/atm_ocn_coupler/coupler.F |
56 |
NO PROCEDURE |
CALL MPI_FINALIZE(rc) |
|
./pkg/compon_communic/mitcomponent_init.F |
14 |
MITCOMPONENT_INIT |
integer myid, numprocs, ierr, rc |
|
./pkg/compon_communic/mitcomponent_register.F |
13 |
MITCOMPONENT_REGISTER |
integer myid, numprocs, ierr, rc |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
15 |
MITCOMPONENT_TILE_REGISTER |
integer myid, numprocs, ierr, rc |
|
./pkg/compon_communic/mitcoupler_init.F |
14 |
MITCOUPLER_INIT |
integer myid, numprocs, ierr, rc |
|
./pkg/compon_communic/mitcoupler_register.F |
26 |
MITCOUPLER_REGISTER |
integer ierr, rc |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
26 |
MITCOUPLER_TILE_REGISTER |
integer ierr, rc |
|
./pkg/compon_communic/mitcplr_init1.F |
14 |
MITCPLR_INIT1 |
integer myid, numprocs, ierr, rc |
|
./pkg/diagnostics/diagnostics_fill_state.F |
430 |
DIAGNOSTICS_FILL_STATE |
dummy1 = theta(i,j,k,bi,bj) * ((rc(k)/100.)/1000.)**kappa |
|
./pkg/diagnostics/diagnostics_fill_state.F |
431 |
DIAGNOSTICS_FILL_STATE |
dummy2 = rc(k) / 100. |
|
./pkg/ecco/cost_argo_theta.F |
173 |
COST_ARGO_THETA |
$ argotobs(i,j,k,bi,bj),ztop*rc(k),rl_0) |
|
./pkg/ecco/cost_xbt.F |
185 |
COST_XBT |
$ xbtobs(i,j,k,bi,bj),ztop*rc(k),rl_0) |