| File |
Line number |
Procedure |
Code |
|
./pkg/cal/cal_subdates.F |
38 |
CAL_SUBDATES |
INTEGER finaldate(4) |
|
./pkg/cal/cal_subdates.F |
52 |
CAL_SUBDATES |
& finaldate(1),finaldate(2),finaldate(3),finaldate(4) |
|
./pkg/cal/cal_subdates.F |
64 |
CAL_SUBDATES |
& ( finaldate(4) .gt. 0)) then |
|
./pkg/cal/cal_subdates.F |
72 |
CAL_SUBDATES |
call CAL_ADDTIME( finaldate, workdate, diffdate, myThid ) |
|
./pkg/cal/cal_subdates.F |
76 |
CAL_SUBDATES |
& initialdate, finaldate, diffdate, myThid ) |
|
./pkg/cal/cal_subdates.F |
7 |
CAL_SUBDATES |
I finaldate, |
|
./pkg/cal/cal_timepassed.F |
100 |
CAL_TIMEPASSED |
else if (initialdate(2) .gt. finaldate(2)) then |
|
./pkg/cal/cal_timepassed.F |
105 |
CAL_TIMEPASSED |
else if (initialdate(1) .gt. finaldate(1)) then |
|
./pkg/cal/cal_timepassed.F |
114 |
CAL_TIMEPASSED |
call CAL_CONVDATE( finaldate,yi,mi,di,si,li,wi,myThid ) |
|
./pkg/cal/cal_timepassed.F |
118 |
CAL_TIMEPASSED |
call CAL_CONVDATE( finaldate,yf,mf,df,sf,lf,wf,myThid ) |
|
./pkg/cal/cal_timepassed.F |
39 |
CAL_TIMEPASSED |
INTEGER finaldate(4) |
|
./pkg/cal/cal_timepassed.F |
74 |
CAL_TIMEPASSED |
& finaldate(1),finaldate(2),finaldate(3),finaldate(4) |
|
./pkg/cal/cal_timepassed.F |
8 |
CAL_TIMEPASSED |
I finaldate, |
|
./pkg/cal/cal_timepassed.F |
91 |
CAL_TIMEPASSED |
& ( finaldate(4) .gt. 0)) then |
|
./pkg/cal/cal_timepassed.F |
94 |
CAL_TIMEPASSED |
& ( finaldate(4) .gt. 0) |
|
./pkg/cal/cal_timepassed.F |
97 |
CAL_TIMEPASSED |
if (initialdate(1) .eq. finaldate(1)) then |
|
./pkg/cal/cal_timepassed.F |
98 |
CAL_TIMEPASSED |
if (initialdate(2) .eq. finaldate(2)) then |