| File |
Line number |
Procedure |
Code |
|
./pkg/ctrl/ctrl_init_rec.F |
105 |
CTRL_INIT_REC |
if ( nfac .ne. 1 ) then |
|
./pkg/ctrl/ctrl_init_rec.F |
107 |
CTRL_INIT_REC |
startrec = (startrec - 1)*nfac + 1 |
|
./pkg/ctrl/ctrl_init_rec.F |
108 |
CTRL_INIT_REC |
endrec = endrec*nfac |
|
./pkg/ctrl/ctrl_init_rec.F |
10 |
CTRL_INIT_REC |
I fldstartdate1, fldstartdate2, fldperiod, nfac, |
|
./pkg/ctrl/ctrl_init_rec.F |
112 |
CTRL_INIT_REC |
endrec = (int((endTime - startTime)/fldperiod) + 1)*nfac |
|
./pkg/ctrl/ctrl_init_rec.F |
47 |
CTRL_INIT_REC |
integer nfac |
|
./pkg/ctrl/ctrl_init_rec.F |
90 |
CTRL_INIT_REC |
endrec = 12*nfac |
|
./pkg/ctrl/ctrl_init_rec.F |
93 |
CTRL_INIT_REC |
endrec = 1*nfac |