/[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.3 by heimbach, Fri Apr 29 10:36:45 2005 UTC revision 1.4 by jmc, Mon Oct 8 23:45:51 2007 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
# Line 31  C     ========= Local variables ======== Line 33  C     ========= Local variables ========
33          DO j=1,sNy          DO j=1,sNy
34           DO i=1,sNx           DO i=1,sNx
35            DO k=1,4*Nr            DO k=1,4*Nr
36              adobjf_state_final(i,j,bi,bj,k) =              adobjf_state_final(i,j,bi,bj,k) =
37       &       g_objf_state_final(i,j,bi,bj,k)       &       g_objf_state_final(i,j,bi,bj,k)
38            END DO            END DO
39             adobjf_state_final(i,j,bi,bj,4*Nr+1) =             adobjf_state_final(i,j,bi,bj,4*Nr+1) =
40       &      g_objf_state_final(i,j,bi,bj,4*Nr+1)       &      g_objf_state_final(i,j,bi,bj,4*Nr+1)
41           END DO           END DO
42          END DO          END DO
# Line 42  C     ========= Local variables ======== Line 44  C     ========= Local variables ========
44        END DO        END DO
45    
46  #endif  #endif
47          
48        end        end
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22