| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_getffieldrec.F |
140 |
EXF_GETFFIELDREC |
yearStartDate(1) = year0 * 10000 + 101 |
|
./pkg/exf/exf_getffieldrec.F |
141 |
EXF_GETFFIELDREC |
yearStartDate(2) = 0 |
|
./pkg/exf/exf_getffieldrec.F |
142 |
EXF_GETFFIELDREC |
yearStartDate(3) = mydate(3) |
|
./pkg/exf/exf_getffieldrec.F |
143 |
EXF_GETFFIELDREC |
yearStartDate(4) = mydate(4) |
|
./pkg/exf/exf_getffieldrec.F |
144 |
EXF_GETFFIELDREC |
CALL CAL_TIMEPASSED(yearStartDate,mydate,difftime,myThid) |
|
./pkg/exf/exf_getffieldrec.F |
68 |
EXF_GETFFIELDREC |
integer yearStartDate(4) |
|
./pkg/exf/exf_init_fixed.F |
100 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
|
./pkg/exf/exf_init_fixed.F |
112 |
EXF_INIT_FIXED |
yearStartDate(1) = int(date_array(1)/10000.) * 10000 + 101 |
|
./pkg/exf/exf_init_fixed.F |
113 |
EXF_INIT_FIXED |
yearStartDate(2) = 0 |
|
./pkg/exf/exf_init_fixed.F |
114 |
EXF_INIT_FIXED |
yearStartDate(3) = date_array(3) |
|
./pkg/exf/exf_init_fixed.F |
115 |
EXF_INIT_FIXED |
yearStartDate(4) = date_array(4) |
|
./pkg/exf/exf_init_fixed.F |
116 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
|
./pkg/exf/exf_init_fixed.F |
128 |
EXF_INIT_FIXED |
yearStartDate(1) = int(date_array(1)/10000.) * 10000 + 101 |
|
./pkg/exf/exf_init_fixed.F |
129 |
EXF_INIT_FIXED |
yearStartDate(2) = 0 |
|
./pkg/exf/exf_init_fixed.F |
130 |
EXF_INIT_FIXED |
yearStartDate(3) = date_array(3) |
|
./pkg/exf/exf_init_fixed.F |
131 |
EXF_INIT_FIXED |
yearStartDate(4) = date_array(4) |
|
./pkg/exf/exf_init_fixed.F |
132 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
|
./pkg/exf/exf_init_fixed.F |
146 |
EXF_INIT_FIXED |
yearStartDate(1) = int(date_array(1)/10000.) * 10000 + 101 |
|
./pkg/exf/exf_init_fixed.F |
147 |
EXF_INIT_FIXED |
yearStartDate(2) = 0 |
|
./pkg/exf/exf_init_fixed.F |
148 |
EXF_INIT_FIXED |
yearStartDate(3) = date_array(3) |
|
./pkg/exf/exf_init_fixed.F |
149 |
EXF_INIT_FIXED |
yearStartDate(4) = date_array(4) |
|
./pkg/exf/exf_init_fixed.F |
150 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
|
./pkg/exf/exf_init_fixed.F |
162 |
EXF_INIT_FIXED |
yearStartDate(1) = int(date_array(1)/10000.) * 10000 + 101 |
|
./pkg/exf/exf_init_fixed.F |
163 |
EXF_INIT_FIXED |
yearStartDate(2) = 0 |
|
./pkg/exf/exf_init_fixed.F |
164 |
EXF_INIT_FIXED |
yearStartDate(3) = date_array(3) |
|
./pkg/exf/exf_init_fixed.F |
165 |
EXF_INIT_FIXED |
yearStartDate(4) = date_array(4) |
|
./pkg/exf/exf_init_fixed.F |
166 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
|
./pkg/exf/exf_init_fixed.F |
178 |
EXF_INIT_FIXED |
yearStartDate(1) = int(date_array(1)/10000.) * 10000 + 101 |
|
./pkg/exf/exf_init_fixed.F |
179 |
EXF_INIT_FIXED |
yearStartDate(2) = 0 |
|
./pkg/exf/exf_init_fixed.F |
180 |
EXF_INIT_FIXED |
yearStartDate(3) = date_array(3) |
|
./pkg/exf/exf_init_fixed.F |
181 |
EXF_INIT_FIXED |
yearStartDate(4) = date_array(4) |
|
./pkg/exf/exf_init_fixed.F |
182 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
|
./pkg/exf/exf_init_fixed.F |
194 |
EXF_INIT_FIXED |
yearStartDate(1) = int(date_array(1)/10000.) * 10000 + 101 |
|
./pkg/exf/exf_init_fixed.F |
195 |
EXF_INIT_FIXED |
yearStartDate(2) = 0 |
|
./pkg/exf/exf_init_fixed.F |
196 |
EXF_INIT_FIXED |
yearStartDate(3) = date_array(3) |
|
./pkg/exf/exf_init_fixed.F |
197 |
EXF_INIT_FIXED |
yearStartDate(4) = date_array(4) |
|
./pkg/exf/exf_init_fixed.F |
198 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
|
./pkg/exf/exf_init_fixed.F |
210 |
EXF_INIT_FIXED |
yearStartDate(1) = int(date_array(1)/10000.) * 10000 + 101 |
|
./pkg/exf/exf_init_fixed.F |
211 |
EXF_INIT_FIXED |
yearStartDate(2) = 0 |
|
./pkg/exf/exf_init_fixed.F |
212 |
EXF_INIT_FIXED |
yearStartDate(3) = date_array(3) |
|
./pkg/exf/exf_init_fixed.F |
213 |
EXF_INIT_FIXED |
yearStartDate(4) = date_array(4) |
|
./pkg/exf/exf_init_fixed.F |
214 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
|
./pkg/exf/exf_init_fixed.F |
227 |
EXF_INIT_FIXED |
yearStartDate(1) = int(date_array(1)/10000.) * 10000 + 101 |
|
./pkg/exf/exf_init_fixed.F |
228 |
EXF_INIT_FIXED |
yearStartDate(2) = 0 |
|
./pkg/exf/exf_init_fixed.F |
229 |
EXF_INIT_FIXED |
yearStartDate(3) = date_array(3) |
|
./pkg/exf/exf_init_fixed.F |
230 |
EXF_INIT_FIXED |
yearStartDate(4) = date_array(4) |
|
./pkg/exf/exf_init_fixed.F |
231 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
|
./pkg/exf/exf_init_fixed.F |
243 |
EXF_INIT_FIXED |
yearStartDate(1) = int(date_array(1)/10000.) * 10000 + 101 |
|
./pkg/exf/exf_init_fixed.F |
244 |
EXF_INIT_FIXED |
yearStartDate(2) = 0 |
|
./pkg/exf/exf_init_fixed.F |
245 |
EXF_INIT_FIXED |
yearStartDate(3) = date_array(3) |
|
./pkg/exf/exf_init_fixed.F |
246 |
EXF_INIT_FIXED |
yearStartDate(4) = date_array(4) |
|
./pkg/exf/exf_init_fixed.F |
247 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
|
./pkg/exf/exf_init_fixed.F |
262 |
EXF_INIT_FIXED |
yearStartDate(1) = int(date_array(1)/10000.) * 10000 + 101 |
|
./pkg/exf/exf_init_fixed.F |
263 |
EXF_INIT_FIXED |
yearStartDate(2) = 0 |
|
./pkg/exf/exf_init_fixed.F |
264 |
EXF_INIT_FIXED |
yearStartDate(3) = date_array(3) |
|
./pkg/exf/exf_init_fixed.F |
265 |
EXF_INIT_FIXED |
yearStartDate(4) = date_array(4) |
|
./pkg/exf/exf_init_fixed.F |
266 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
|
./pkg/exf/exf_init_fixed.F |
281 |
EXF_INIT_FIXED |
yearStartDate(1) = int(date_array(1)/10000.) * 10000 + 101 |
|
./pkg/exf/exf_init_fixed.F |
282 |
EXF_INIT_FIXED |
yearStartDate(2) = 0 |
|
./pkg/exf/exf_init_fixed.F |
283 |
EXF_INIT_FIXED |
yearStartDate(3) = date_array(3) |
|
./pkg/exf/exf_init_fixed.F |
284 |
EXF_INIT_FIXED |
yearStartDate(4) = date_array(4) |
|
./pkg/exf/exf_init_fixed.F |
285 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
|
./pkg/exf/exf_init_fixed.F |
300 |
EXF_INIT_FIXED |
yearStartDate(1) = int(date_array(1)/10000.) * 10000 + 101 |
|
./pkg/exf/exf_init_fixed.F |
301 |
EXF_INIT_FIXED |
yearStartDate(2) = 0 |
|
./pkg/exf/exf_init_fixed.F |
302 |
EXF_INIT_FIXED |
yearStartDate(3) = date_array(3) |
|
./pkg/exf/exf_init_fixed.F |
303 |
EXF_INIT_FIXED |
yearStartDate(4) = date_array(4) |
|
./pkg/exf/exf_init_fixed.F |
304 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
|
./pkg/exf/exf_init_fixed.F |
319 |
EXF_INIT_FIXED |
yearStartDate(1) = int(date_array(1)/10000.) * 10000 + 101 |
|
./pkg/exf/exf_init_fixed.F |
320 |
EXF_INIT_FIXED |
yearStartDate(2) = 0 |
|
./pkg/exf/exf_init_fixed.F |
321 |
EXF_INIT_FIXED |
yearStartDate(3) = date_array(3) |
|
./pkg/exf/exf_init_fixed.F |
322 |
EXF_INIT_FIXED |
yearStartDate(4) = date_array(4) |
|
./pkg/exf/exf_init_fixed.F |
323 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
|
./pkg/exf/exf_init_fixed.F |
338 |
EXF_INIT_FIXED |
yearStartDate(1) = int(date_array(1)/10000.) * 10000 + 101 |
|
./pkg/exf/exf_init_fixed.F |
339 |
EXF_INIT_FIXED |
yearStartDate(2) = 0 |
|
./pkg/exf/exf_init_fixed.F |
340 |
EXF_INIT_FIXED |
yearStartDate(3) = date_array(3) |
|
./pkg/exf/exf_init_fixed.F |
341 |
EXF_INIT_FIXED |
yearStartDate(4) = date_array(4) |
|
./pkg/exf/exf_init_fixed.F |
342 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
|
./pkg/exf/exf_init_fixed.F |
354 |
EXF_INIT_FIXED |
yearStartDate(1) = int(date_array(1)/10000.) * 10000 + 101 |
|
./pkg/exf/exf_init_fixed.F |
355 |
EXF_INIT_FIXED |
yearStartDate(2) = 0 |
|
./pkg/exf/exf_init_fixed.F |
356 |
EXF_INIT_FIXED |
yearStartDate(3) = date_array(3) |
|
./pkg/exf/exf_init_fixed.F |
357 |
EXF_INIT_FIXED |
yearStartDate(4) = date_array(4) |
|
./pkg/exf/exf_init_fixed.F |
358 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
|
./pkg/exf/exf_init_fixed.F |
373 |
EXF_INIT_FIXED |
yearStartDate(1) = int(date_array(1)/10000.) * 10000 + 101 |
|
./pkg/exf/exf_init_fixed.F |
374 |
EXF_INIT_FIXED |
yearStartDate(2) = 0 |
|
./pkg/exf/exf_init_fixed.F |
375 |
EXF_INIT_FIXED |
yearStartDate(3) = date_array(3) |
|
./pkg/exf/exf_init_fixed.F |
376 |
EXF_INIT_FIXED |
yearStartDate(4) = date_array(4) |
|
./pkg/exf/exf_init_fixed.F |
377 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
|
./pkg/exf/exf_init_fixed.F |
392 |
EXF_INIT_FIXED |
yearStartDate(1) = int(date_array(1)/10000.) * 10000 + 101 |
|
./pkg/exf/exf_init_fixed.F |
393 |
EXF_INIT_FIXED |
yearStartDate(2) = 0 |
|
./pkg/exf/exf_init_fixed.F |
394 |
EXF_INIT_FIXED |
yearStartDate(3) = date_array(3) |
|
./pkg/exf/exf_init_fixed.F |
395 |
EXF_INIT_FIXED |
yearStartDate(4) = date_array(4) |
|
./pkg/exf/exf_init_fixed.F |
396 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
|
./pkg/exf/exf_init_fixed.F |
412 |
EXF_INIT_FIXED |
yearStartDate(1) = int(date_array(1)/10000.) * 10000 + 101 |
|
./pkg/exf/exf_init_fixed.F |
413 |
EXF_INIT_FIXED |
yearStartDate(2) = 0 |
|
./pkg/exf/exf_init_fixed.F |
414 |
EXF_INIT_FIXED |
yearStartDate(3) = date_array(3) |
|
./pkg/exf/exf_init_fixed.F |
415 |
EXF_INIT_FIXED |
yearStartDate(4) = date_array(4) |
|
./pkg/exf/exf_init_fixed.F |
416 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
|
./pkg/exf/exf_init_fixed.F |
430 |
EXF_INIT_FIXED |
yearStartDate(1) = int(date_array(1)/10000.) * 10000 + 101 |
|
./pkg/exf/exf_init_fixed.F |
431 |
EXF_INIT_FIXED |
yearStartDate(2) = 0 |
|
./pkg/exf/exf_init_fixed.F |
432 |
EXF_INIT_FIXED |
yearStartDate(3) = date_array(3) |
|
./pkg/exf/exf_init_fixed.F |
433 |
EXF_INIT_FIXED |
yearStartDate(4) = date_array(4) |
|
./pkg/exf/exf_init_fixed.F |
434 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
|
./pkg/exf/exf_init_fixed.F |
448 |
EXF_INIT_FIXED |
yearStartDate(1) = int(date_array(1)/10000.) * 10000 + 101 |
|
./pkg/exf/exf_init_fixed.F |
449 |
EXF_INIT_FIXED |
yearStartDate(2) = 0 |
|
./pkg/exf/exf_init_fixed.F |
450 |
EXF_INIT_FIXED |
yearStartDate(3) = date_array(3) |
|
./pkg/exf/exf_init_fixed.F |
451 |
EXF_INIT_FIXED |
yearStartDate(4) = date_array(4) |
|
./pkg/exf/exf_init_fixed.F |
452 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
|
./pkg/exf/exf_init_fixed.F |
466 |
EXF_INIT_FIXED |
yearStartDate(1) = int(date_array(1)/10000.) * 10000 + 101 |
|
./pkg/exf/exf_init_fixed.F |
467 |
EXF_INIT_FIXED |
yearStartDate(2) = 0 |
|
./pkg/exf/exf_init_fixed.F |
468 |
EXF_INIT_FIXED |
yearStartDate(3) = date_array(3) |
|
./pkg/exf/exf_init_fixed.F |
469 |
EXF_INIT_FIXED |
yearStartDate(4) = date_array(4) |
|
./pkg/exf/exf_init_fixed.F |
470 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
|
./pkg/exf/exf_init_fixed.F |
47 |
EXF_INIT_FIXED |
INTEGER date_array(4), difftime(4), yearStartDate(4) |
|
./pkg/exf/exf_init_fixed.F |
485 |
EXF_INIT_FIXED |
yearStartDate(1) = int(date_array(1)/10000.) * 10000 + 101 |
|
./pkg/exf/exf_init_fixed.F |
486 |
EXF_INIT_FIXED |
yearStartDate(2) = 0 |
|
./pkg/exf/exf_init_fixed.F |
487 |
EXF_INIT_FIXED |
yearStartDate(3) = date_array(3) |
|
./pkg/exf/exf_init_fixed.F |
488 |
EXF_INIT_FIXED |
yearStartDate(4) = date_array(4) |
|
./pkg/exf/exf_init_fixed.F |
489 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
|
./pkg/exf/exf_init_fixed.F |
503 |
EXF_INIT_FIXED |
yearStartDate(1) = int(date_array(1)/10000.) * 10000 + 101 |
|
./pkg/exf/exf_init_fixed.F |
504 |
EXF_INIT_FIXED |
yearStartDate(2) = 0 |
|
./pkg/exf/exf_init_fixed.F |
505 |
EXF_INIT_FIXED |
yearStartDate(3) = date_array(3) |
|
./pkg/exf/exf_init_fixed.F |
506 |
EXF_INIT_FIXED |
yearStartDate(4) = date_array(4) |
|
./pkg/exf/exf_init_fixed.F |
507 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
|
./pkg/exf/exf_init_fixed.F |
521 |
EXF_INIT_FIXED |
yearStartDate(1) = int(date_array(1)/10000.) * 10000 + 101 |
|
./pkg/exf/exf_init_fixed.F |
522 |
EXF_INIT_FIXED |
yearStartDate(2) = 0 |
|
./pkg/exf/exf_init_fixed.F |
523 |
EXF_INIT_FIXED |
yearStartDate(3) = date_array(3) |
|
./pkg/exf/exf_init_fixed.F |
524 |
EXF_INIT_FIXED |
yearStartDate(4) = date_array(4) |
|
./pkg/exf/exf_init_fixed.F |
525 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
|
./pkg/exf/exf_init_fixed.F |
539 |
EXF_INIT_FIXED |
yearStartDate(1) = int(date_array(1)/10000.) * 10000 + 101 |
|
./pkg/exf/exf_init_fixed.F |
540 |
EXF_INIT_FIXED |
yearStartDate(2) = 0 |
|
./pkg/exf/exf_init_fixed.F |
541 |
EXF_INIT_FIXED |
yearStartDate(3) = date_array(3) |
|
./pkg/exf/exf_init_fixed.F |
542 |
EXF_INIT_FIXED |
yearStartDate(4) = date_array(4) |
|
./pkg/exf/exf_init_fixed.F |
543 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
|
./pkg/exf/exf_init_fixed.F |
560 |
EXF_INIT_FIXED |
yearStartDate(1) = int(date_array(1)/10000.) * 10000 + 101 |
|
./pkg/exf/exf_init_fixed.F |
561 |
EXF_INIT_FIXED |
yearStartDate(2) = 0 |
|
./pkg/exf/exf_init_fixed.F |
562 |
EXF_INIT_FIXED |
yearStartDate(3) = date_array(3) |
|
./pkg/exf/exf_init_fixed.F |
563 |
EXF_INIT_FIXED |
yearStartDate(4) = date_array(4) |
|
./pkg/exf/exf_init_fixed.F |
564 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
|
./pkg/exf/exf_init_fixed.F |
579 |
EXF_INIT_FIXED |
yearStartDate(1) = int(date_array(1)/10000.) * 10000 + 101 |
|
./pkg/exf/exf_init_fixed.F |
580 |
EXF_INIT_FIXED |
yearStartDate(2) = 0 |
|
./pkg/exf/exf_init_fixed.F |
581 |
EXF_INIT_FIXED |
yearStartDate(3) = date_array(3) |
|
./pkg/exf/exf_init_fixed.F |
582 |
EXF_INIT_FIXED |
yearStartDate(4) = date_array(4) |
|
./pkg/exf/exf_init_fixed.F |
583 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
|
./pkg/exf/exf_init_fixed.F |
598 |
EXF_INIT_FIXED |
yearStartDate(1) = int(date_array(1)/10000.) * 10000 + 101 |
|
./pkg/exf/exf_init_fixed.F |
599 |
EXF_INIT_FIXED |
yearStartDate(2) = 0 |
|
./pkg/exf/exf_init_fixed.F |
600 |
EXF_INIT_FIXED |
yearStartDate(3) = date_array(3) |
|
./pkg/exf/exf_init_fixed.F |
601 |
EXF_INIT_FIXED |
yearStartDate(4) = date_array(4) |
|
./pkg/exf/exf_init_fixed.F |
602 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
|
./pkg/exf/exf_init_fixed.F |
615 |
EXF_INIT_FIXED |
yearStartDate(1) = int(date_array(1)/10000.) * 10000 + 101 |
|
./pkg/exf/exf_init_fixed.F |
616 |
EXF_INIT_FIXED |
yearStartDate(2) = 0 |
|
./pkg/exf/exf_init_fixed.F |
617 |
EXF_INIT_FIXED |
yearStartDate(3) = date_array(3) |
|
./pkg/exf/exf_init_fixed.F |
618 |
EXF_INIT_FIXED |
yearStartDate(4) = date_array(4) |
|
./pkg/exf/exf_init_fixed.F |
619 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
|
./pkg/exf/exf_init_fixed.F |
63 |
EXF_INIT_FIXED |
yearStartDate(1) = int(date_array(1)/10000.) * 10000 + 101 |
|
./pkg/exf/exf_init_fixed.F |
64 |
EXF_INIT_FIXED |
yearStartDate(2) = 0 |
|
./pkg/exf/exf_init_fixed.F |
65 |
EXF_INIT_FIXED |
yearStartDate(3) = date_array(3) |
|
./pkg/exf/exf_init_fixed.F |
66 |
EXF_INIT_FIXED |
yearStartDate(4) = date_array(4) |
|
./pkg/exf/exf_init_fixed.F |
67 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
|
./pkg/exf/exf_init_fixed.F |
79 |
EXF_INIT_FIXED |
yearStartDate(1) = int(date_array(1)/10000.) * 10000 + 101 |
|
./pkg/exf/exf_init_fixed.F |
80 |
EXF_INIT_FIXED |
yearStartDate(2) = 0 |
|
./pkg/exf/exf_init_fixed.F |
81 |
EXF_INIT_FIXED |
yearStartDate(3) = date_array(3) |
|
./pkg/exf/exf_init_fixed.F |
82 |
EXF_INIT_FIXED |
yearStartDate(4) = date_array(4) |
|
./pkg/exf/exf_init_fixed.F |
83 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
|
./pkg/exf/exf_init_fixed.F |
96 |
EXF_INIT_FIXED |
yearStartDate(1) = int(date_array(1)/10000.) * 10000 + 101 |
|
./pkg/exf/exf_init_fixed.F |
97 |
EXF_INIT_FIXED |
yearStartDate(2) = 0 |
|
./pkg/exf/exf_init_fixed.F |
98 |
EXF_INIT_FIXED |
yearStartDate(3) = date_array(3) |
|
./pkg/exf/exf_init_fixed.F |
99 |
EXF_INIT_FIXED |
yearStartDate(4) = date_array(4) |
|
./pkg/exf/exf_zenithangle.F |
55 |
EXF_ZENITHANGLE |
integer dayStartDate(4),yearStartDate(4) |
|
./pkg/exf/exf_zenithangle.F |
77 |
EXF_ZENITHANGLE |
yearStartDate(1) = year0 * 10000 + 101 |
|
./pkg/exf/exf_zenithangle.F |
78 |
EXF_ZENITHANGLE |
yearStartDate(2) = 0 |
|
./pkg/exf/exf_zenithangle.F |
79 |
EXF_ZENITHANGLE |
yearStartDate(3) = mydate(3) |
|
./pkg/exf/exf_zenithangle.F |
80 |
EXF_ZENITHANGLE |
yearStartDate(4) = mydate(4) |
|
./pkg/exf/exf_zenithangle.F |
81 |
EXF_ZENITHANGLE |
CALL CAL_TIMEPASSED(yearStartDate,mydate,difftime,myThid) |