28 |
|
|
29 |
DO bj=myByLo(myThid),myByHi(myThid) |
DO bj=myByLo(myThid),myByHi(myThid) |
30 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
DO bi=myBxLo(myThid),myBxHi(myThid) |
31 |
DO j=1,sNy |
DO j=1,sNy |
32 |
DO i=1,sNx |
DO i=1,sNx |
33 |
adobjf_state_final(i,j,bi,bj,1) = |
DO k=1,4*Nr |
34 |
& g_objf_state_final(i,j,bi,bj,1) |
adobjf_state_final(i,j,bi,bj,k) = |
35 |
adobjf_state_final(i,j,bi,bj,2) = |
& g_objf_state_final(i,j,bi,bj,k) |
|
& g_objf_state_final(i,j,bi,bj,2) |
|
36 |
END DO |
END DO |
37 |
|
adobjf_state_final(i,j,bi,bj,4*Nr+1) = |
38 |
|
& g_objf_state_final(i,j,bi,bj,4*Nr+1) |
39 |
END DO |
END DO |
40 |
|
END DO |
41 |
END DO |
END DO |
42 |
END DO |
END DO |
43 |
|
|