| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/cost_ice_test.F |
85 |
COST_ICE_TEST |
if ( myTime .GT. (endTime - lastinterval) ) then |
|
./pkg/seaice/cost_ice_test.F |
87 |
COST_ICE_TEST |
& ( ( 1. _d 0 + min(endTime-startTime,lastinterval) ) |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
46 |
SEAICE_COST_ACCUMULATE_MEAN |
IF ( myTime .GT. (EndTime - lastinterval) ) THEN |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
57 |
SEAICE_COST_ACCUMULATE_MEAN |
& *_dyG(i,j,bi,bj)/lastinterval*deltaTClock |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
62 |
SEAICE_COST_ACCUMULATE_MEAN |
& *_dxG(i,j,bi,bj)/lastinterval*deltaTClock |
|
./pkg/shelfice/shelfice_cost_final.F |
87 |
SHELFICE_COST_FINAL |
& + cMeanSHIforS(i,j,bi,bj)/lastinterval/rhoConstFresh |
|
./pkg/thsice/thsice_cost_test.F |
81 |
THSICE_COST_TEST |
if ( myTime .GT. (endTime - lastinterval) ) then |
|
./pkg/thsice/thsice_cost_test.F |
83 |
THSICE_COST_TEST |
& ( ( 1. _d 0 + min(endTime-startTime,lastinterval) ) |
|
./pkg/cost/cost.h |
82 |
NO PROCEDURE |
& lastinterval |
|
./pkg/cost/cost.h |
83 |
NO PROCEDURE |
_RL lastinterval |
|
./pkg/cost/cost_accumulate_mean.F |
51 |
COST_ACCUMULATE_MEAN |
& /lastinterval*deltaTClock |
|
./pkg/cost/cost_accumulate_mean.F |
54 |
COST_ACCUMULATE_MEAN |
& /lastinterval*deltaTClock |
|
./pkg/cost/cost_accumulate_mean.F |
57 |
COST_ACCUMULATE_MEAN |
& /lastinterval*deltaTClock |
|
./pkg/cost/cost_accumulate_mean.F |
64 |
COST_ACCUMULATE_MEAN |
& /lastinterval*deltaTClock |
|
./pkg/cost/cost_accumulate_mean.F |
70 |
COST_ACCUMULATE_MEAN |
& /lastinterval*deltaTClock |
|
./pkg/cost/cost_readparms.F |
102 |
COST_READPARMS |
IF ( MOD(lastinterval,deltaTclock) .GT. 0. ) |
|
./pkg/cost/cost_readparms.F |
103 |
COST_READPARMS |
& lastinterval = MAX( |
|
./pkg/cost/cost_readparms.F |
104 |
COST_READPARMS |
& INT(lastinterval/deltaTclock-1)*deltaTclock,deltaTclock) |
|
./pkg/cost/cost_readparms.F |
50 |
COST_READPARMS |
& , lastinterval |
|
./pkg/cost/cost_readparms.F |
78 |
COST_READPARMS |
lastinterval = 2592000. |
|
./pkg/cost/cost_tile.F |
123 |
COST_TILE |
IF ( myTime .GT. (EndTime - lastinterval) ) THEN |