/[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.26 by molod, Tue Mar 13 01:38:18 2007 UTC revision 1.27 by molod, Thu Jun 21 22:11:57 2007 UTC
# Line 196  c  this only works for between 1950-2050 Line 196  c  this only works for between 1950-2050
196    
197        iyear   = nymdmod/10000        iyear   = nymdmod/10000
198        if(clim) then        if(clim) then
199         sicedata='sice19232.weekly.clim'         if(xsize.eq.192)sicedata='sice19232.weekly.clim'
200           if(xsize.eq.612)sicedata='sice612102.weekly.clim'
201        else        else
202         WRITE(sicedata,'(A,I4)') 'sice19232.weekly.y',iyear         if(xsize.eq.192)
203         .           WRITE(sicedata,'(A,I4)')'sice19232.weekly.y',iyear
204           if(xsize.eq.612)
205         .           WRITE(sicedata,'(A,I4)')'sice612102.weekly.y',iyear
206        endif        endif
207    
208  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
# Line 453  c  this only works for between 1950-2050 Line 457  c  this only works for between 1950-2050
457    
458        iyear   = nymdmod/10000        iyear   = nymdmod/10000
459        if(clim) then        if(clim) then
460         sstdata='sst19232.weekly.clim'         if(xsize.eq.192)sstdata='sst19232.weekly.clim'
461           if(xsize.eq.612)sstdata='sst612102.weekly.clim'
462        else        else
463         WRITE(sstdata,'(A,I4)') 'sst19232.weekly.y',iyear         if(xsize.eq.192)
464         .           WRITE(sstdata,'(A,I4)')'sst19232.weekly.y',iyear
465           if(xsize.eq.612)
466         .           WRITE(sstdata,'(A,I4)')'sst612102.weekly.y',iyear
467        endif        endif
468    
469  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
Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27
  ViewVC Help
Powered by ViewVC 1.1.22