79 |
|
|
80 |
#ifdef ALLOW_CAL |
#ifdef ALLOW_CAL |
81 |
ceh3 this should have an IF ( useCALENDAR ) THEN |
ceh3 this should have an IF ( useCALENDAR ) THEN |
82 |
myiter=0 |
CML( |
83 |
call cal_GetMonthsRec( |
C myIter = 0 makes cal_getMonthsRec always return count0=12 |
84 |
O fac, first, changed, count0, count1, |
C so that jerl(count0) = 2. |
85 |
I mytime, myiter, mythid ) |
C The following lines are meant to be an example of how to |
86 |
jwtype=jerl(count0) |
C include time dependent water types. However, it would probably |
87 |
|
C make more sense to first think about a regionally varying |
88 |
|
C water type before implementing a time dependence. |
89 |
|
CML myiter=0 |
90 |
|
CML call cal_GetMonthsRec( |
91 |
|
CML O fac, first, changed, count0, count1, |
92 |
|
CML I mytime, myiter, mythid ) |
93 |
|
CML jwtype=jerl(count0) |
94 |
|
CML) |
95 |
|
jwtype=2 |
96 |
#else /* ALLOW_CAL undef */ |
#else /* ALLOW_CAL undef */ |
97 |
jwtype=2 |
jwtype=2 |
98 |
#endif /* ALLOW_CAL */ |
#endif /* ALLOW_CAL */ |