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