149 |
& SQUEEZE_RIGHT , mythid) |
& SQUEEZE_RIGHT , mythid) |
150 |
#endif |
#endif |
151 |
|
|
152 |
|
#ifdef ALLOW_RUNOFF |
153 |
|
il = ilnblnk(runofffile) |
154 |
|
call cal_TimeInterval( runoffperiod, 'secs', timeint, mythid ) |
155 |
|
|
156 |
|
write(msgbuf,'(a)') |
157 |
|
&' ' |
158 |
|
call print_message( msgbuf, standardmessageunit, |
159 |
|
& SQUEEZE_RIGHT , mythid) |
160 |
|
write(msgbuf,'(a,i9.8,i7.6,1x,a,a)') |
161 |
|
&' Runnoff starts at ', |
162 |
|
& (runoffstartdate(i), i=1,2), dayofweek(runoffstartdate(4)), |
163 |
|
& '.' |
164 |
|
call print_message( msgbuf, standardmessageunit, |
165 |
|
& SQUEEZE_RIGHT , mythid) |
166 |
|
write(msgbuf,'(a,i9.8,i7.6)') |
167 |
|
&' Runoff period is ', |
168 |
|
& (timeint(i), i=1,2) |
169 |
|
call print_message( msgbuf, standardmessageunit, |
170 |
|
& SQUEEZE_RIGHT , mythid) |
171 |
|
write(msgbuf,'(a)') |
172 |
|
&' Runoff is read from file:' |
173 |
|
call print_message( msgbuf, standardmessageunit, |
174 |
|
& SQUEEZE_RIGHT , mythid) |
175 |
|
write(msgbuf,'(a,a,a)') |
176 |
|
&' >> ',runofffile(1:il),' <<' |
177 |
|
call print_message( msgbuf, standardmessageunit, |
178 |
|
& SQUEEZE_RIGHT , mythid) |
179 |
|
#endif |
180 |
|
|
181 |
#ifdef ALLOW_BULKFORMULAE |
#ifdef ALLOW_BULKFORMULAE |
182 |
|
|
183 |
#ifdef ALLOW_ATM_TEMP |
#ifdef ALLOW_ATM_TEMP |