--- MITgcm/pkg/autodiff/active_file_control_slice.F	2001/12/14 17:39:21	1.3
+++ MITgcm/pkg/autodiff/active_file_control_slice.F	2002/09/16 18:11:58	1.4
@@ -212,6 +212,29 @@
         _END_MASTER( mythid )
       endif
 
+c     >>>>>>>>>>>>>>>>>>>             <<<<<<<<<<<<<<<<<<<
+c     >>>>>>>>>>>>>>>>>>> TANGENT RUN <<<<<<<<<<<<<<<<<<<
+c     >>>>>>>>>>>>>>>>>>>             <<<<<<<<<<<<<<<<<<<
+
+      if (theSimulationMode .eq. TANGENT_SIMULATION) then
+
+        _BEGIN_MASTER( mythid )
+
+c       Read the active variable from file.
+
+        call mdsreadfieldxz( 
+     &                     active_var_file, 
+     &                     prec, 
+     &                     'RL',
+     &                     mynr,      
+     &                     active_var,
+     &                     irec, 
+     &                     mythid )
+
+        _END_MASTER( mythid )
+
+      endif
+
 c     Reset default io precision.
       readBinaryPrec = oldPrec
 
@@ -349,6 +372,29 @@
 
       endif
 
+c     >>>>>>>>>>>>>>>>>>>             <<<<<<<<<<<<<<<<<<<
+c     >>>>>>>>>>>>>>>>>>> TANGENT RUN <<<<<<<<<<<<<<<<<<<
+c     >>>>>>>>>>>>>>>>>>>             <<<<<<<<<<<<<<<<<<<
+
+      if (theSimulationMode .eq. TANGENT_SIMULATION) then
+
+        _BEGIN_MASTER( mythid )
+
+          call mdswritefieldxz( 
+     &                        active_var_file, 
+     &                        prec, 
+     &                        globalfile,
+     &                        'RL', 
+     &                        mynr, 
+     &                        active_var, 
+     &                        irec, 
+     &                        myOptimIter,
+     &                        mythid )
+
+        _END_MASTER( mythid )
+
+      endif
+
 c     Reset default io precision.
       readBinaryPrec = oldPrec
 
@@ -550,6 +596,29 @@
         _END_MASTER( mythid )
       endif
 
+c     >>>>>>>>>>>>>>>>>>>             <<<<<<<<<<<<<<<<<<<
+c     >>>>>>>>>>>>>>>>>>> TANGENT RUN <<<<<<<<<<<<<<<<<<<
+c     >>>>>>>>>>>>>>>>>>>             <<<<<<<<<<<<<<<<<<<
+
+      if (theSimulationMode .eq. TANGENT_SIMULATION) then
+
+        _BEGIN_MASTER( mythid )
+
+c       Read the active variable from file.
+
+        call mdsreadfieldyz( 
+     &                     active_var_file, 
+     &                     prec, 
+     &                     'RL',
+     &                     mynr,      
+     &                     active_var,
+     &                     irec, 
+     &                     mythid )
+
+        _END_MASTER( mythid )
+
+      endif
+
 c     Reset default io precision.
       readBinaryPrec = oldPrec
 
@@ -685,6 +754,29 @@
 
         _END_MASTER( mythid )
 
+      endif
+
+c     >>>>>>>>>>>>>>>>>>>             <<<<<<<<<<<<<<<<<<<
+c     >>>>>>>>>>>>>>>>>>> TANGENTY RUN <<<<<<<<<<<<<<<<<<<
+c     >>>>>>>>>>>>>>>>>>>             <<<<<<<<<<<<<<<<<<<
+
+      if (theSimulationMode .eq. TANGENT_SIMULATION) then
+
+        _BEGIN_MASTER( mythid )
+
+          call mdswritefieldyz( 
+     &                        active_var_file, 
+     &                        prec, 
+     &                        globalfile,
+     &                        'RL', 
+     &                        mynr, 
+     &                        active_var, 
+     &                        irec, 
+     &                        myOptimIter,
+     &                        mythid )
+
+        _END_MASTER( mythid )
+
       endif
 
 c     Reset default io precision.