--- MITgcm/model/src/dynamics.F	2010/08/10 17:58:30	1.147
+++ MITgcm/model/src/dynamics.F	2010/09/15 03:41:59	1.148
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/dynamics.F,v 1.147 2010/08/10 17:58:30 gforget Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/dynamics.F,v 1.148 2010/09/15 03:41:59 heimbach Exp $
 C $Name:  $
 
 #include "PACKAGES_CONFIG.h"
@@ -444,10 +444,21 @@
 CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte
 CADJ STORE gv(:,:,k,bi,bj) 
 CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte
+#  ifndef ALLOW_ADAMSBASHFORTH_3
 CADJ STORE gunm1(:,:,k,bi,bj) 
 CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte
 CADJ STORE gvnm1(:,:,k,bi,bj) 
 CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte
+#  else
+CADJ STORE gunm(:,:,k,bi,bj,1) 
+CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte
+CADJ STORE gunm(:,:,k,bi,bj,2) 
+CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte
+CADJ STORE gvnm(:,:,k,bi,bj,1) 
+CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte
+CADJ STORE gvnm(:,:,k,bi,bj,2) 
+CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte
+#  endif
 #  ifdef ALLOW_CD_CODE
 CADJ STORE unm1(:,:,k,bi,bj) 
 CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte