File |
Line number |
Procedure |
Code |
./pkg/ecco/cost_readargos.F |
53 |
COST_READARGOS |
integer beginrun |
./pkg/ecco/cost_readargos.F |
73 |
COST_READARGOS |
beginrun = modelstartdate(1)/10000 |
./pkg/ecco/cost_readargos.F |
74 |
COST_READARGOS |
if ( beginargos .eq. beginrun ) then |
./pkg/ecco/cost_readargos.F |
78 |
COST_READARGOS |
argosrec = ( beginrun - beginargos - 1)*nmonthyear + |
./pkg/ecco/cost_readscatyfields.F |
56 |
COST_READSCATYFIELDS |
integer beginrun |
./pkg/ecco/cost_readsstfields.F |
56 |
COST_READSSTFIELDS |
integer beginrun |
./pkg/ecco/cost_readargot.F |
53 |
COST_READARGOT |
integer beginrun |
./pkg/ecco/cost_readargot.F |
73 |
COST_READARGOT |
beginrun = modelstartdate(1)/10000 |
./pkg/ecco/cost_readargot.F |
74 |
COST_READARGOT |
if ( beginargot .eq. beginrun ) then |
./pkg/ecco/cost_readargot.F |
78 |
COST_READARGOT |
argotrec = ( beginrun - beginargot - 1)*nmonthyear + |
./pkg/ecco/cost_readsssfields.F |
56 |
COST_READSSSFIELDS |
integer beginrun |
./pkg/ecco/cost_readtmifields.F |
56 |
COST_READTMIFIELDS |
integer beginrun |
./pkg/ecco/cost_readtmifields.F |
89 |
COST_READTMIFIELDS |
beginrun = modelstartdate(1)/10000 |
./pkg/ecco/cost_readtmifields.F |
90 |
COST_READTMIFIELDS |
if ( begintmi .eq. beginrun ) then |
./pkg/ecco/cost_readtmifields.F |
94 |
COST_READTMIFIELDS |
tmirec = ( beginrun - begintmi - 1)*nmonthyear + |
./pkg/ecco/cost_readscatxfields.F |
56 |
COST_READSCATXFIELDS |
integer beginrun |