| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_cost_export.F |
29 |
SEAICE_COST_EXPORT |
integer isecbeg , isecend , jsec |
|
./pkg/cost/cost_atlantic_heat.F |
29 |
COST_ATLANTIC_HEAT |
integer isecbeg , isecend , jsec |
|
./pkg/cost/cost_atlantic_heat.F |
45 |
COST_ATLANTIC_HEAT |
parameter( isecbeg = 69, isecend = 87, jsec = 28 ) |
|
./pkg/cost/cost_atlantic_heat.F |
90 |
COST_ATLANTIC_HEAT |
if (jg .eq. jsec) then |
|
./pkg/cost/cost_vector.F |
30 |
COST_VECTOR |
integer isecbeg , isecend , jsec |
|
./pkg/cost/cost_vector.F |
42 |
COST_VECTOR |
parameter( isecbeg = 70, isecend = 90, jsec = 27 ) |
|
./pkg/cost/cost_vector.F |
62 |
COST_VECTOR |
if (jg .eq. jsec) then |