42 |
DO j=jMin,jMax |
DO j=jMin,jMax |
43 |
DO i=iMin,iMax |
DO i=iMin,iMax |
44 |
KappaRT(i,j,k) = KappaRT(i,j,k)+maskUp(i,j)*Kwz(i,j,k,bi,bj) |
KappaRT(i,j,k) = KappaRT(i,j,k)+maskUp(i,j)*Kwz(i,j,k,bi,bj) |
|
cph & *GM_adjointRescale*GM_adjointRescale |
|
45 |
ENDDO |
ENDDO |
46 |
ENDDO |
ENDDO |
47 |
|
|
48 |
DO j=jMin,jMax |
DO j=jMin,jMax |
49 |
DO i=iMin,iMax |
DO i=iMin,iMax |
50 |
KappaRS(i,j,k) = KappaRS(i,j,k)+maskUp(i,j)*Kwz(i,j,k,bi,bj) |
KappaRS(i,j,k) = KappaRS(i,j,k)+maskUp(i,j)*Kwz(i,j,k,bi,bj) |
|
cph & *GM_adjointRescale*GM_adjointRescale |
|
51 |
ENDDO |
ENDDO |
52 |
ENDDO |
ENDDO |
53 |
|
|