| File |
Line number |
Procedure |
Code |
|
./pkg/cost/cost_vector.F |
28 |
COST_VECTOR |
integer isecbeg , isecend , jsec |
|
./pkg/cost/cost_vector.F |
40 |
COST_VECTOR |
parameter( isecbeg = 70, isecend = 90, jsec = 27 ) |
|
./pkg/cost/cost_vector.F |
64 |
COST_VECTOR |
if ((ig .ge. isecbeg) .and. (ig .le. isecend)) then |
|
./pkg/cost/cost_atlantic_heat.F |
27 |
COST_ATLANTIC_HEAT |
integer isecbeg , isecend , jsec |
|
./pkg/cost/cost_atlantic_heat.F |
41 |
COST_ATLANTIC_HEAT |
parameter( isecbeg = 69, isecend = 87, jsec = 28 ) |
|
./pkg/cost/cost_atlantic_heat.F |
72 |
COST_ATLANTIC_HEAT |
if ((ig .ge. isecbeg) .and. (ig .le. isecend)) then |
|
./pkg/cost/cost_atlantic_heat.F |
97 |
COST_ATLANTIC_HEAT |
if ((ig .ge. isecbeg) .and. (ig .le. isecend)) then |