/[MITgcm]/MITgcm/pkg/fizhi/update_ocean_exports.F
ViewVC logotype

Diff of /MITgcm/pkg/fizhi/update_ocean_exports.F

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

revision 1.25 by molod, Mon Mar 12 21:59:10 2007 UTC revision 1.26 by molod, Tue Mar 13 01:38:18 2007 UTC
# Line 170  C Maximum number of dates in one year fo Line 170  C Maximum number of dates in one year fo
170    
171        character*8  cname        character*8  cname
172        character*80 cdscrip        character*80 cdscrip
173        character*40 sicedata        character*22 sicedata
174        _RL fac1, fac2, lat0, lon0, timebc1, timebc2, timemod, undef        _RL fac1, fac2, lat0, lon0, timebc1, timebc2, timemod, undef
175        logical found, error        logical found, error
176        integer i,j,n,nn,iyear,iyearbc,nd,ndby3,imbc,jmbc        integer i,j,n,nn,iyear,iyearbc,nd,ndby3,imbc,jmbc
# Line 194  c  this only works for between 1950-2050 Line 194  c  this only works for between 1950-2050
194          nymdmod = nymd          nymdmod = nymd
195        endif        endif
196    
197        sicedata='sice19232.weekly.clim'        iyear   = nymdmod/10000
198          if(clim) then
199           sicedata='sice19232.weekly.clim'
200          else
201           WRITE(sicedata,'(A,I4)') 'sice19232.weekly.y',iyear
202          endif
203    
204  c  initialize so that first time through they have values for the check  c  initialize so that first time through they have values for the check
205  c  these values make the iyear .ne. iyearbc true anyways for  c  these values make the iyear .ne. iyearbc true anyways for
# Line 211  c  for the first time so first isnt chec Line 216  c  for the first time so first isnt chec
216    
217  C---------- Read in Header file ----------------------------------  C---------- Read in Header file ----------------------------------
218    
       iyear   = nymdmod/10000  
219        iyearbc = nymdbc(2)/10000        iyearbc = nymdbc(2)/10000
220    
221        if( iyear.ne.iyearbc ) then        if( iyear.ne.iyearbc ) then
# Line 423  C Maximum number of dates in one year fo Line 427  C Maximum number of dates in one year fo
427    
428        character*8  cname        character*8  cname
429        character*80 cdscrip        character*80 cdscrip
430        character*20 sstdata        character*21 sstdata
431        _RL fac1, fac2, lat0, lon0, timebc1, timebc2, timemod, undef        _RL fac1, fac2, lat0, lon0, timebc1, timebc2, timemod, undef
432        logical found, error        logical found, error
433        integer i,j,n,nn,iyear,iyearbc,nd,ndby3,imbc,jmbc        integer i,j,n,nn,iyear,iyearbc,nd,ndby3,imbc,jmbc
# Line 447  c  this only works for between 1950-2050 Line 451  c  this only works for between 1950-2050
451          nymdmod = nymd          nymdmod = nymd
452        endif        endif
453    
454        sstdata='sst19232.weekly.clim'        iyear   = nymdmod/10000
455          if(clim) then
456           sstdata='sst19232.weekly.clim'
457          else
458           WRITE(sstdata,'(A,I4)') 'sst19232.weekly.y',iyear
459          endif
460    
461  c  initialize so that first time through they have values for the check  c  initialize so that first time through they have values for the check
462  c  these vaules make the iyear .ne. iyearbc true anyways for  c  these vaules make the iyear .ne. iyearbc true anyways for
# Line 463  c  for the first time so first isnt chec Line 472  c  for the first time so first isnt chec
472    
473  C---------- Read in Header file ----------------------------------  C---------- Read in Header file ----------------------------------
474    
       iyear   = nymdmod/10000  
475        iyearbc = nymdbc(2)/10000        iyearbc = nymdbc(2)/10000
476    
477        if( iyear.ne.iyearbc ) then        if( iyear.ne.iyearbc ) then
Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26
  ViewVC Help
Powered by ViewVC 1.1.22