102 |
|
|
103 |
if ( first ) then |
if ( first ) then |
104 |
if (useExfYearlyFields) then |
if (useExfYearlyFields) then |
105 |
|
C Complete filename with YR or _YEAR extension |
106 |
il = ilnblnk( genfile ) |
il = ilnblnk( genfile ) |
107 |
write(genfile0(1:128),'(2a,i4.4)') |
if (twoDigitYear) then |
108 |
& genfile(1:il),'_',year0 |
if (year0.ge.2000) then |
109 |
|
write(genfile0(1:128),'(a,i2.2)') |
110 |
|
& genfile(1:il),year0-2000 |
111 |
|
else |
112 |
|
write(genfile0(1:128),'(a,i2.2)') |
113 |
|
& genfile(1:il),year0-1900 |
114 |
|
endif |
115 |
|
else |
116 |
|
write(genfile0(1:128),'(2a,i4.4)') |
117 |
|
& genfile(1:il),'_',year0 |
118 |
|
endif |
119 |
else |
else |
120 |
genfile0 = genfile |
genfile0 = genfile |
121 |
endif |
endif |
143 |
call exf_SwapFFields( gen0, gen1, mythid ) |
call exf_SwapFFields( gen0, gen1, mythid ) |
144 |
|
|
145 |
if (useExfYearlyFields) then |
if (useExfYearlyFields) then |
146 |
|
C Complete filename with YR or _YEAR extension |
147 |
il = ilnblnk( genfile ) |
il = ilnblnk( genfile ) |
148 |
write(genfile1(1:128),'(2a,i4.4)') |
if (twoDigitYear) then |
149 |
& genfile(1:il),'_',year1 |
if (year1.ge.2000) then |
150 |
|
write(genfile1(1:128),'(a,i2.2)') |
151 |
|
& genfile(1:il),year1-2000 |
152 |
|
else |
153 |
|
write(genfile1(1:128),'(a,i2.2)') |
154 |
|
& genfile(1:il),year1-1900 |
155 |
|
endif |
156 |
|
else |
157 |
|
write(genfile1(1:128),'(2a,i4.4)') |
158 |
|
& genfile(1:il),'_',year1 |
159 |
|
endif |
160 |
else |
else |
161 |
genfile1 = genfile |
genfile1 = genfile |
162 |
endif |
endif |