/[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.23 by molod, Tue Jun 14 18:14:21 2005 UTC revision 1.24 by molod, Mon Mar 12 21:53:14 2007 UTC
# Line 78  C*************************************** Line 78  C***************************************
78         bjslot = myYGlobalLo-1+(bj-1)*sNy         bjslot = myYGlobalLo-1+(bj-1)*sNy
79  #endif  #endif
80    
81         call getsst(ksst,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2,nSx,         call getsst(ksst,sstclim,idim1,idim2,jdim1,jdim2,im1,im2,
82       .  nSy,xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms,sst1,sst2,       .  jm1,jm2,nSx,nSy,xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms,
83       .  first(bi,bj),nymd1sst(bi,bj),nymd2sst(bi,bj),       .  sst1,sst2,first(bi,bj),nymd1sst(bi,bj),nymd2sst(bi,bj),
84       .  nhms1sst(bi,bj),nhms2sst(bi,bj),sstdates(1,bi,bj),       .  nhms1sst(bi,bj),nhms2sst(bi,bj),sstdates(1,bi,bj),
85       .  ssttimes(1,bi,bj),sst,myThid)       .  ssttimes(1,bi,bj),sst,myThid)
86         call getsice(kice,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2,nSx,         call getsice(kice,siceclim,idim1,idim2,jdim1,jdim2,im1,im2,
87       .  nSy,xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms,sice1,sice2,       .  jm1,jm2,nSx,nSy,xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms,
88       .  first(bi,bj),nymd1sice(bi,bj),nymd2sice(bi,bj),       .  sice1,sice2,first(bi,bj),nymd1sice(bi,bj),nymd2sice(bi,bj),
89       .  nhms1sice(bi,bj),nhms2sice(bi,bj),sicedates(1,bi,bj),       .  nhms1sice(bi,bj),nhms2sice(bi,bj),sicedates(1,bi,bj),
90       .  sicetimes(1,bi,bj),sice,myThid)       .  sicetimes(1,bi,bj),sice,myThid)
91    
Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24
  ViewVC Help
Powered by ViewVC 1.1.22