| 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 |
100 |
COST_ATLANTIC_HEAT |
if ((ig .ge. isecbeg) .and. (ig .le. isecend)) then |
|
./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 |
75 |
COST_ATLANTIC_HEAT |
if ((ig .ge. isecbeg) .and. (ig .le. isecend)) 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 |
66 |
COST_VECTOR |
if ((ig .ge. isecbeg) .and. (ig .le. isecend)) then |