/[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.20 by molod, Tue Mar 8 22:14:20 2005 UTC revision 1.21 by molod, Wed May 4 22:13:46 2005 UTC
# Line 198  C---------- Read in Header file -------- Line 198  C---------- Read in Header file --------
198    
199        if( iyear.ne.iyearbc ) then        if( iyear.ne.iyearbc ) then
200    
        close(iunit)  
201         open (iunit,file=sicedata,form='unformatted',access='direct',         open (iunit,file=sicedata,form='unformatted',access='direct',
202       .                                         recl=xsize*ysize*4)       .                                         recl=xsize*ysize*4)
203         nrec = 1         nrec = 1
# Line 336  C---------- Fill sice with depth of ice Line 335  C---------- Fill sice with depth of ice
335        enddo        enddo
336        enddo        enddo
337  C---------------------------------------------------------------------------  C---------------------------------------------------------------------------
338          close(iunit)
339    
340        return        return
341        end        end
# Line 446  C---------- Read in Header file -------- Line 446  C---------- Read in Header file --------
446    
447        if( iyear.ne.iyearbc ) then        if( iyear.ne.iyearbc ) then
448    
        close(iunit)  
449         open (iunit,file=sstdata,form='unformatted',access='direct',         open (iunit,file=sstdata,form='unformatted',access='direct',
450       .                                        recl=xsize*ysize*4)       .                                        recl=xsize*ysize*4)
451         nrec = 1         nrec = 1
# Line 569  C---------- Interpolate SST data ------- Line 568  C---------- Interpolate SST data -------
568        enddo        enddo
569        enddo        enddo
570    
571          close(iunit)
572    
573        return        return
574        end        end
575    
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22