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 |
|
|