81 |
character*(MAX_LEN_MBUF) msgbuf |
character*(MAX_LEN_MBUF) msgbuf |
82 |
|
|
83 |
#ifdef GENERIC_BAR_MONTH |
#ifdef GENERIC_BAR_MONTH |
84 |
integer mrec, nyears, iyear |
integer mrec, nyears, iyear, tmpmon |
85 |
#endif |
#endif |
86 |
c == external functions == |
c == external functions == |
87 |
|
|
132 |
|
|
133 |
#ifdef GENERIC_BAR_MONTH |
#ifdef GENERIC_BAR_MONTH |
134 |
c-- Loop over month |
c-- Loop over month |
135 |
|
if (nmonsrec.GT.12) then |
136 |
|
tmpmon = 12 |
137 |
|
else |
138 |
|
tmpmon = nmonsrec |
139 |
|
endif |
140 |
do irec = 1,12 |
do irec = 1,12 |
141 |
nyears=int((nmonsrec-irec)/12)+1 |
nyears=int((nmonsrec-irec)/12)+1 |
142 |
if(nyears.gt.0) then |
if(nyears.gt.0) then |