--- MITgcm/model/src/dynamics.F	2003/07/08 15:00:26	1.98
+++ MITgcm/model/src/dynamics.F	2003/10/02 21:33:54	1.99
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/dynamics.F,v 1.98 2003/07/08 15:00:26 heimbach Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/dynamics.F,v 1.99 2003/10/02 21:33:54 heimbach Exp $
 C $Name:  $
 
 #include "CPP_OPTIONS.h"
@@ -334,8 +334,17 @@
 
 #ifdef ALLOW_AUTODIFF_TAMC 
          kkey = (idynkey-1)*Nr + k
+c
 CADJ STORE totphihyd (:,:,k,bi,bj) 
 CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte
+CADJ STORE gt (:,:,k,bi,bj) 
+CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte
+CADJ STORE gs (:,:,k,bi,bj) 
+CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte
+CADJ STORE theta (:,:,k,bi,bj) 
+CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte
+CADJ STORE salt  (:,:,k,bi,bj) 
+CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte
 #endif /* ALLOW_AUTODIFF_TAMC */
 
 C--      Integrate hydrostatic balance for phiHyd with BC of