| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_gencost_sshv4.F |
1006 |
COST_GENCOST_SSHV4 |
if ( (2*jrec.EQ.ndaysave).OR.(2*jrec-1.EQ.ndaysave) ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1018 |
COST_GENCOST_SSHV4 |
if ( (2*jrec.EQ.ndaysave).OR.(2*jrec-1.EQ.ndaysave) ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1219 |
COST_GENCOST_SSHV4 |
krec = irec + (ndaysave/2) |
|
./pkg/ecco/cost_gencost_sshv4.F |
156 |
COST_GENCOST_SSHV4 |
integer ndaysave |
|
./pkg/ecco/cost_gencost_sshv4.F |
889 |
COST_GENCOST_SSHV4 |
ndaysave=35 |
|
./pkg/ecco/cost_gencost_sshv4.F |
890 |
COST_GENCOST_SSHV4 |
ndaysaveRL=ndaysave |
|
./pkg/ecco/cost_gencost_sshv4.F |
893 |
COST_GENCOST_SSHV4 |
tempinteger=ndaysrec-ndaysave+1 |
|
./pkg/ecco/cost_gencost_sshv4.F |
896 |
COST_GENCOST_SSHV4 |
& '** WARNING ** S/R COST_GENCOST_SSHV4: There are < ',ndaysave |
|
./pkg/ecco/cost_gencost_sshv4.F |
914 |
COST_GENCOST_SSHV4 |
do irec = 1, ndaysrec-ndaysave+1 |
|
./pkg/ecco/cost_gencost_sshv4.F |
934 |
COST_GENCOST_SSHV4 |
do jrec=1,ndaysave |
|
./pkg/ecco/cost_gencost_sshv4.F |
994 |
COST_GENCOST_SSHV4 |
if ( (2*jrec.EQ.ndaysave).OR.(2*jrec-1.EQ.ndaysave) ) |
|
./pkg/ecco/cost_gencost_sstv4.F |
167 |
COST_GENCOST_SSTV4 |
ndaysave=7 |
|
./pkg/ecco/cost_gencost_sstv4.F |
168 |
COST_GENCOST_SSTV4 |
ndaysaveRL=ndaysave |
|
./pkg/ecco/cost_gencost_sstv4.F |
170 |
COST_GENCOST_SSTV4 |
do irec = 1, ndaysrec-ndaysave+1, 7 |
|
./pkg/ecco/cost_gencost_sstv4.F |
188 |
COST_GENCOST_SSTV4 |
do jrec=1,ndaysave |
|
./pkg/ecco/cost_gencost_sstv4.F |
74 |
COST_GENCOST_SSTV4 |
integer ndaysave |