--- MITgcm/verification/hs94.1x64x5/code_ad/adcommon.h	2003/10/26 01:58:09	1.1
+++ MITgcm/verification/hs94.1x64x5/code_ad/adcommon.h	2008/05/09 18:42:27	1.3
@@ -1,13 +1,21 @@
-C--   copied stuff from _ad.f file
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/verification/hs94.1x64x5/code_ad/adcommon.h,v 1.3 2008/05/09 18:42:27 dfer Exp $
+C $Name:  $
 
-      common /addynvars_r/ 
-     &                     adetan, adetah, 
-     &                     aduvel, advvel, adwvel, 
-     &                     adtheta, adsalt, 
-     &                     adgu, adgv, adgt, adgs, 
+C--   These common blocks are extracted from the
+C--   automatically created tangent linear code.
+C--   You need to make sure that they are up-to-date
+C--   (i.e. in right order), and customize them
+C--   accordingly.
+C--
+C--   heimbach@mit.edu 11-Jan-2001
+
+      common /addynvars_r/
+     &                     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 adetah(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)
@@ -22,34 +30,51 @@
       _RL advvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
       _RL adwvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
 
-      common /adffields/
-     &                   adfu, adfv, adqnet, adempmr, 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_PASSIVE_TRACER
-      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)
+      common /addynvars_r_2/
+     &                     adetah
+      _RL adetah(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
+
+      COMMON /adffields_fu/ adfu
+      COMMON /adffields_fv/ adfv
+      COMMON /adffields_Qnet/ adQnet
+      COMMON /adffields_Qsw/ adQsw
+      COMMON /adffields_dQdT/ addQdT
+      COMMON /adffields_EmPmR/ adEmPmR
+      COMMON /adffields_saltFlux/ adsaltFlux
+      COMMON /adffields_SST/ adSST
+      COMMON /adffields_SSS/ adSSS
+      COMMON /adffields_lambdaThetaClimRelax/ adlambdaThetaClimRelax
+      COMMON /adffields_lambdaSaltClimRelax/ adlambdaSaltClimRelax
+#ifdef ATMOSPHERIC_LOADING
+      COMMON /adffields_pload/ adpload
+      COMMON /adffields_sIceLoad/ adsIceLoad
 #endif
 
-#ifdef ALLOW_DIFFKR_CONTROL
-      common /addynvars_diffkr/ 
-     &                          addiffkr
-      _RL addiffkr(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
+      _RS  adfu       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
+      _RS  adfv       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
+      _RS  adQnet     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
+      _RS  adQsw      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
+      _RS  addQdT     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
+      _RS  adEmPmR    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
+      _RS  adsaltFlux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
+      _RS  adSST      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
+      _RS  adSSS      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
+      _RS  adlambdaThetaClimRelax
+     &    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
+      _RS  adlambdaSaltClimRelax
+     &    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
+#ifdef ATMOSPHERIC_LOADING
+      _RS  adpload    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
+      _RS  adsIceLoad (1-OLx:sNx+OLx,1-OLy:sNy+OLy,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)
+      COMMON /ADDYNVARS_KAPGM/
+     &                       adkapgm
+      _RL  adkapgm (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
 #endif
-
-
-