| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_getclim.F |
191 |
EXF_GETCLIM |
IF ( myIter .EQ. niter0 ) THEN |
|
./pkg/gmredi/gmredi_init_varia.F |
113 |
GMREDI_INIT_VARIA |
IF (GM_useK3D) CALL GMREDI_READ_PICKUP( niter0, myThid ) |
|
./pkg/ecco/cost_averagesfields.F |
163 |
COST_AVERAGESFIELDS |
myiter = niter0 + INT((mytime-starttime)/deltaTClock+0.5) |
|
./pkg/ecco/cost_gencost_assignperiod.F |
85 |
COST_GENCOST_ASSIGNPERIOD |
genrec(k) = 1+ myiter - niter0 |
|
./pkg/ecco/cost_gencost_assignperiod.F |
89 |
COST_GENCOST_ASSIGNPERIOD |
endofgen(k) = (myiter.EQ.niter0) |
|
./pkg/ecco/cost_gencost_assignperiod.F |
90 |
COST_GENCOST_ASSIGNPERIOD |
ingen(k) = (myiter.EQ.niter0) |
|
./pkg/ecco/cost_gencost_assignperiod.F |
93 |
COST_GENCOST_ASSIGNPERIOD |
print*,'gf-const ',startofgen(k),myiter,niter0 |