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

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

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

revision 1.11 by dimitri, Mon Dec 20 23:32:52 2004 UTC revision 1.12 by dimitri, Mon Feb 21 05:32:55 2005 UTC
# Line 102  c     get record numbers and interpolati Line 102  c     get record numbers and interpolati
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
# Line 132  c     get record numbers and interpolati Line 143  c     get record numbers and interpolati
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
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22