--- MITgcm/pkg/admtlm/admtlm_map.F	2005/01/26 14:39:20	1.2
+++ MITgcm/pkg/admtlm/admtlm_map.F	2005/04/29 10:36:45	1.3
@@ -28,14 +28,16 @@
 
       DO bj=myByLo(myThid),myByHi(myThid)
        DO bi=myBxLo(myThid),myBxHi(myThid)
-         DO j=1,sNy
-          DO i=1,sNx
-           adobjf_state_final(i,j,bi,bj,1) = 
-     &      g_objf_state_final(i,j,bi,bj,1)
-           adobjf_state_final(i,j,bi,bj,2) = 
-     &      g_objf_state_final(i,j,bi,bj,2)
+        DO j=1,sNy
+         DO i=1,sNx
+          DO k=1,4*Nr
+            adobjf_state_final(i,j,bi,bj,k) = 
+     &       g_objf_state_final(i,j,bi,bj,k)
           END DO
+           adobjf_state_final(i,j,bi,bj,4*Nr+1) = 
+     &      g_objf_state_final(i,j,bi,bj,4*Nr+1)
          END DO
+        END DO
        END DO
       END DO