| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_cost_export.F |
30 |
SEAICE_COST_EXPORT |
integer jsecbeg , jsecend , isec |
|
./pkg/seaice/seaice_cost_export.F |
37 |
SEAICE_COST_EXPORT |
parameter ( isec = 74, jsecbeg = 60, jsecend = 89 ) |
|
./pkg/seaice/seaice_cost_export.F |
39 |
SEAICE_COST_EXPORT |
parameter ( isec = 202, jsecbeg = 236, jsecend = 242 ) |
|
./pkg/seaice/seaice_cost_export.F |
41 |
SEAICE_COST_EXPORT |
parameter ( isec = 1, jsecbeg = 1, jsecend = 1) |
|
./pkg/seaice/seaice_cost_export.F |
53 |
SEAICE_COST_EXPORT |
if ((jg .ge. jsecbeg) .and. (jg .le. jsecend)) then |
|
./pkg/cost/cost_atlantic_heat.F |
152 |
COST_ATLANTIC_HEAT |
if ((jg .ge. jsecbeg) .and. (jg .le. jsecend)) then |
|
./pkg/cost/cost_atlantic_heat.F |
30 |
COST_ATLANTIC_HEAT |
integer jsecbeg , jsecend , isec |
|
./pkg/cost/cost_atlantic_heat.F |
47 |
COST_ATLANTIC_HEAT |
parameter( jsecbeg = 10, jsecend = 27, isec = 59 ) |