/[MITgcm]/MITgcm/pkg/exf/exf_set_uv.F
ViewVC logotype

Diff of /MITgcm/pkg/exf/exf_set_uv.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.7 by dimitri, Mon Dec 20 23:32:52 2004 UTC revision 1.8 by dimitri, Mon Feb 21 05:32:55 2005 UTC
# Line 119  c     get record numbers and interpolati Line 119  c     get record numbers and interpolati
119    
120              if ( first ) then              if ( first ) then
121                 if (useExfYearlyFields) then                 if (useExfYearlyFields) then
122    C     Complete filenames with YR or _YEAR extension
123                    il = ilnblnk( uvecfile )                    il = ilnblnk( uvecfile )
124                    write(uvecfile0(1:128),'(2a,i4.4)')                    if (twoDigitYear) then
125       &                 uvecfile(1:il),'_',year0                       if (year0.ge.2000) then
126                            write(uvecfile0(1:128),'(a,i2.2)')
127         &                       uvecfile(1:il),year0-2000
128                         else
129                            write(uvecfile0(1:128),'(a,i2.2)')
130         &                       uvecfile(1:il),year0-1900
131                         endif
132                      else
133                         write(uvecfile0(1:128),'(2a,i4.4)')
134         &                    uvecfile(1:il),'_',year0
135                      endif
136                    il = ilnblnk( vvecfile )                    il = ilnblnk( vvecfile )
137                    write(vvecfile0(1:128),'(2a,i4.4)')                    if (twoDigitYear) then
138       &                 vvecfile(1:il),'_',year0                       if (year0.ge.2000) then
139                            write(vvecfile0(1:128),'(a,i2.2)')
140         &                       vvecfile(1:il),year0-2000
141                         else
142                            write(vvecfile0(1:128),'(a,i2.2)')
143         &                       vvecfile(1:il),year0-1900
144                         endif
145                      else
146                         write(vvecfile0(1:128),'(2a,i4.4)')
147         &                    vvecfile(1:il),'_',year0
148                      endif
149                 else                 else
150                    uvecfile0 = uvecfile                    uvecfile0 = uvecfile
151                    vvecfile0 = vvecfile                    vvecfile0 = vvecfile
# Line 189  c     apply mask Line 210  c     apply mask
210                 call exf_SwapFFields( uvec0, uvec1, mythid )                 call exf_SwapFFields( uvec0, uvec1, mythid )
211                 call exf_SwapFFields( vvec0, vvec1, mythid )                 call exf_SwapFFields( vvec0, vvec1, mythid )
212                 if (useExfYearlyFields) then                 if (useExfYearlyFields) then
213    C     Complete filenames with YR or _YEAR extension
214                    il = ilnblnk( uvecfile )                    il = ilnblnk( uvecfile )
215                    write(uvecfile1(1:128),'(2a,i4.4)')                    if (twoDigitYear) then
216       &                 uvecfile(1:il),'_',year0                       if (year1.ge.2000) then
217                            write(uvecfile1(1:128),'(a,i2.2)')
218         &                       uvecfile(1:il),year1-2000
219                         else
220                            write(uvecfile1(1:128),'(a,i2.2)')
221         &                       uvecfile(1:il),year1-1900
222                         endif
223                      else
224                         write(uvecfile1(1:128),'(2a,i4.4)')
225         &                    uvecfile(1:il),'_',year1
226                      endif
227                    il = ilnblnk( vvecfile )                    il = ilnblnk( vvecfile )
228                    write(vvecfile1(1:128),'(2a,i4.4)')                    if (twoDigitYear) then
229       &                 vvecfile(1:il),'_',year0                       if (year1.ge.2000) then
230                            write(vvecfile1(1:128),'(a,i2.2)')
231         &                       vvecfile(1:il),year1-2000
232                         else
233                            write(vvecfile1(1:128),'(a,i2.2)')
234         &                       vvecfile(1:il),year1-1900
235                         endif
236                      else
237                         write(vvecfile1(1:128),'(2a,i4.4)')
238         &                    vvecfile(1:il),'_',year1
239                      endif
240                 else                 else
241                    uvecfile1 = uvecfile                    uvecfile1 = uvecfile
242                    vvecfile1 = vvecfile                    vvecfile1 = vvecfile
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22