--- MITgcm/pkg/autodiff/adcommon.h	2001/09/28 04:18:58	1.1
+++ MITgcm/pkg/autodiff/adcommon.h	2002/01/11 18:52:13	1.3
@@ -1,30 +1,21 @@
+   These lines are uncommented on purpose to provoke
+   a model crash. You need to customize this header file
+   to your problem.
+   These common blocks are extracted from the
+   automatically created tangent linear code.
+   You need to make sure that they are up-to-date
+   (i.e. in right order), and customize them
+   accordingly.
 
-CBOP
-C     !ROUTINE: adcommon.h 
-C     !INTERFACE:
-C     include "adcommon.h "
-C     !DESCRIPTION: \bv
-C     *==========================================================*
-C     | CPP_EEMACROS.h                                            
-C     *==========================================================*
-C--   | common blocks of adjoint variables extracted from
-C     | TAMC-/TAF- generated code for use in adjoint support;
-C     | Make sure that adjoint common blocks below are up-to-date
-C     | w.r.t. current adjoint code.
-C     *==========================================================*
-C     | CPP_EEMACROS.h                                            
-C     *==========================================================*
-C     \ev
-CEOP
+   heimbach@mit.edu 11-Jan-2001
 
       common /addynvars_r/ 
-     &                     adetan, adetanm1, 
+     &                     adetan,
      &                     aduvel, advvel, adwvel, 
      &                     adtheta, adsalt, 
      &                     adgu, adgv, adgt, adgs, 
      &                     adgunm1, adgvnm1, adgtnm1, adgsnm1
       _RL adetan(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
-      _RL adetanm1(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
       _RL adgs(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
       _RL adgsnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
       _RL adgt(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
@@ -41,43 +32,30 @@
 
       common /addynvars_cd/ 
      &                      aduveld, advveld,
+     &                       adetanm1, 
      &                      adunm1, advnm1, 
      &                      adgucd, adgvcd
       _RL aduveld(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
       _RL advveld(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
+      _RL adetanm1(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
       _RL adunm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
       _RL advnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
       _RL adgucd(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
       _RL adgvcd(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
 
+cph      common /adtr1_r/ 
+cph     &                 adtr1, adgtr1, adgtr1nm1
+cph      _RL adgtr1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
+cph      _RL adgtr1nm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
+cph      _RL adtr1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
+
       common /adffields/
-     &                   adfu, adfv, adqnet, adempmr, adsst, adsss
+     &                   adfu, adfv
+     &                 , adqnet, adempmr
+cph     &                 , adsst, adsss
       _RL adfu(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
       _RL adfv(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
       _RL adqnet(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
       _RL adempmr(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
-      _RL adsst(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
-      _RL adsss(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
-
-#ifdef ALLOW_TR10_CONTROL
-      common /adtr1_r/ 
-     &                 adtr1, adgtr1, adgtr1nm1
-      _RL adgtr1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
-      _RL adgtr1nm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
-      _RL adtr1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
-#endif
-
-#ifdef ALLOW_DIFFKR_CONTROL
-      common /addynvars_diffkr/ 
-     &                          addiffkr
-      _RL addiffkr(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
-#endif
-
-#ifdef ALLOW_KAPGM_CONTROL
-      common /addynvars_kapgm/ 
-     &                          adkapgm
-      _RL adkapgm(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
-#endif
-
-
-
+cph      _RL adsst(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
+cph      _RL adsss(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)