/[MITgcm]/MITgcm/pkg/admtlm/admtlm_map.F
ViewVC logotype

Diff of /MITgcm/pkg/admtlm/admtlm_map.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by heimbach, Wed Jan 26 14:39:20 2005 UTC revision 1.3 by heimbach, Fri Apr 29 10:36:45 2005 UTC
# Line 28  C     ========= Local variables ======== Line 28  C     ========= Local variables ========
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    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22