| File |
Line number |
Procedure |
Code |
|
./pkg/cal/cal_subdates.F |
39 |
CAL_SUBDATES |
INTEGER initialdate(4) |
|
./pkg/cal/cal_subdates.F |
55 |
CAL_SUBDATES |
& initialdate(1),initialdate(2),initialdate(3),initialdate(4) |
|
./pkg/cal/cal_subdates.F |
63 |
CAL_SUBDATES |
if ((initialdate(4) .gt. 0) .eqv. |
|
./pkg/cal/cal_subdates.F |
66 |
CAL_SUBDATES |
if (initialdate(4) .eq. -1) then |
|
./pkg/cal/cal_subdates.F |
68 |
CAL_SUBDATES |
workdate(1) = -initialdate(1) |
|
./pkg/cal/cal_subdates.F |
69 |
CAL_SUBDATES |
workdate(2) = -initialdate(2) |
|
./pkg/cal/cal_subdates.F |
76 |
CAL_SUBDATES |
& initialdate, finaldate, diffdate, myThid ) |
|
./pkg/cal/cal_subdates.F |
8 |
CAL_SUBDATES |
I initialdate, |
|
./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 |
115 |
CAL_TIMEPASSED |
call CAL_CONVDATE( initialdate,yf,mf,df,sf,lf,wf,myThid ) |
|
./pkg/cal/cal_timepassed.F |
117 |
CAL_TIMEPASSED |
call CAL_CONVDATE( initialdate,yi,mi,di,si,li,wi,myThid ) |
|
./pkg/cal/cal_timepassed.F |
38 |
CAL_TIMEPASSED |
INTEGER initialdate(4) |
|
./pkg/cal/cal_timepassed.F |
71 |
CAL_TIMEPASSED |
& initialdate(1),initialdate(2),initialdate(3),initialdate(4) |
|
./pkg/cal/cal_timepassed.F |
7 |
CAL_TIMEPASSED |
I initialdate, |
|
./pkg/cal/cal_timepassed.F |
90 |
CAL_TIMEPASSED |
if ((initialdate(4) .gt. 0) .eqv. |
|
./pkg/cal/cal_timepassed.F |
93 |
CAL_TIMEPASSED |
caldates = (initialdate(4) .gt. 0) .and. |
|
./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 |