| File |
Line number |
Procedure |
Code |
|
./pkg/cost/cost_atlantic_heat.F |
107 |
COST_ATLANTIC_HEAT |
countT(k) = countT(k) + maskS(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
118 |
COST_ATLANTIC_HEAT |
& countT(k) .NE. 0 .AND. countV(k) .NE. 0) then |
|
./pkg/cost/cost_atlantic_heat.F |
121 |
COST_ATLANTIC_HEAT |
& / ( countT(k) * countV(k) ) |
|
./pkg/cost/cost_atlantic_heat.F |
136 |
COST_ATLANTIC_HEAT |
countT(k) = 0.0 |
|
./pkg/cost/cost_atlantic_heat.F |
151 |
COST_ATLANTIC_HEAT |
countT(k) = countT(k) + maskW(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
162 |
COST_ATLANTIC_HEAT |
& countT(k) .NE. 0 .AND. countU(k) .NE. 0) then |
|
./pkg/cost/cost_atlantic_heat.F |
165 |
COST_ATLANTIC_HEAT |
& / ( countT(k) * countU(k) ) |
|
./pkg/cost/cost_atlantic_heat.F |
35 |
COST_ATLANTIC_HEAT |
_RL countU(Nr), countV(Nr), countT(Nr) |
|
./pkg/cost/cost_atlantic_heat.F |
92 |
COST_ATLANTIC_HEAT |
countT(k) = 0.0 |