| File |
Line number |
Procedure |
Code |
|
./pkg/cost/cost_vector.F |
34 |
COST_VECTOR |
_RL vVel_bar(Nr), theta_bar(Nr), count(Nr) |
|
./pkg/cost/cost_atlantic_heat.F |
102 |
COST_ATLANTIC_HEAT |
theta_bar(k) = theta_bar(k) + |
|
./pkg/cost/cost_atlantic_heat.F |
120 |
COST_ATLANTIC_HEAT |
& + vVel_bar(k) * theta_bar(k) * drF(k) |
|
./pkg/cost/cost_atlantic_heat.F |
135 |
COST_ATLANTIC_HEAT |
theta_bar(k) = 0.0 |
|
./pkg/cost/cost_atlantic_heat.F |
146 |
COST_ATLANTIC_HEAT |
theta_bar(k) = theta_bar(k) + |
|
./pkg/cost/cost_atlantic_heat.F |
164 |
COST_ATLANTIC_HEAT |
& + uVel_bar(k) * theta_bar(k) * drF(k) |
|
./pkg/cost/cost_atlantic_heat.F |
34 |
COST_ATLANTIC_HEAT |
_RL uVel_bar(Nr), vVel_bar(Nr), theta_bar(Nr) |
|
./pkg/cost/cost_atlantic_heat.F |
91 |
COST_ATLANTIC_HEAT |
theta_bar(k) = 0.0 |