/[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.24 by molod, Mon Mar 12 21:53:14 2007 UTC revision 1.25 by molod, Mon Mar 12 21:59:10 2007 UTC
# Line 106  c -------------------------------- Line 106  c --------------------------------
106         return         return
107         end         end
108    
109         subroutine getsice(iunit,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2,         subroutine getsice(iunit,clim,idim1,idim2,jdim1,jdim2,im1,im2,
110       .      nSumx,nSumy,xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms,       .   jm1,jm2,nSumx,nSumy,xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms,
111       .      sicebc1,sicebc2,first,nymdbc1,nymdbc2,nhmsbc1,nhmsbc2,       .   sicebc1,sicebc2,first,nymdbc1,nymdbc2,nhmsbc1,nhmsbc2,
112       .      nymdbc,nhmsbc,sice,mythid)       .   nymdbc,nhmsbc,sice,mythid)
113  C***********************************************************************  C***********************************************************************
114  C  C
115  C!ROUTINE:      GETSICE  C!ROUTINE:      GETSICE
# Line 155  C--------------------------------------- Line 155  C---------------------------------------
155    
156        integer iunit,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2,nSumx,nSumy        integer iunit,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2,nSumx,nSumy
157        integer xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms,mythid        integer xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms,mythid
158          logical clim
159    
160        _RL sicebc1(xsize,ysize)        _RL sicebc1(xsize,ysize)
161        _RL sicebc2(xsize,ysize)        _RL sicebc2(xsize,ysize)
# Line 358  C--------------------------------------- Line 359  C---------------------------------------
359    
360        return        return
361        end        end
362        subroutine getsst(iunit,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2,        subroutine getsst(iunit,clim,idim1,idim2,jdim1,jdim2,im1,im2,
363       .      nSumx,nSumy,xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms,       .   jm1,jm2,nSumx,nSumy,xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms,
364       .      sstbc1,sstbc2,first,nymdbc1,nymdbc2,nhmsbc1,nhmsbc2,       .   sstbc1,sstbc2,first,nymdbc1,nymdbc2,nhmsbc1,nhmsbc2,
365       .      nymdbc,nhmsbc,sst,mythid)       .   nymdbc,nhmsbc,sst,mythid)
366  C***********************************************************************  C***********************************************************************
367  C  C
368  C!ROUTINE:      GETSST  C!ROUTINE:      GETSST
# Line 407  C--------------------------------------- Line 408  C---------------------------------------
408    
409        integer iunit,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2,nSumx,nSumy        integer iunit,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2,nSumx,nSumy
410        integer xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms,mythid        integer xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms,mythid
411          logical clim
412    
413        _RL sstbc1(xsize,ysize)        _RL sstbc1(xsize,ysize)
414        _RL sstbc2(xsize,ysize)        _RL sstbc2(xsize,ysize)
Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25
  ViewVC Help
Powered by ViewVC 1.1.22