/[MITgcm]/MITgcm/pkg/autodiff/active_file_control_slice.F
ViewVC logotype

Diff of /MITgcm/pkg/autodiff/active_file_control_slice.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.3 by heimbach, Fri Dec 14 17:39:21 2001 UTC revision 1.4 by heimbach, Mon Sep 16 18:11:58 2002 UTC
# Line 212  c       Set active_var to zero. Line 212  c       Set active_var to zero.
212          _END_MASTER( mythid )          _END_MASTER( mythid )
213        endif        endif
214    
215    c     >>>>>>>>>>>>>>>>>>>             <<<<<<<<<<<<<<<<<<<
216    c     >>>>>>>>>>>>>>>>>>> TANGENT RUN <<<<<<<<<<<<<<<<<<<
217    c     >>>>>>>>>>>>>>>>>>>             <<<<<<<<<<<<<<<<<<<
218    
219          if (theSimulationMode .eq. TANGENT_SIMULATION) then
220    
221            _BEGIN_MASTER( mythid )
222    
223    c       Read the active variable from file.
224    
225            call mdsreadfieldxz(
226         &                     active_var_file,
227         &                     prec,
228         &                     'RL',
229         &                     mynr,      
230         &                     active_var,
231         &                     irec,
232         &                     mythid )
233    
234            _END_MASTER( mythid )
235    
236          endif
237    
238  c     Reset default io precision.  c     Reset default io precision.
239        readBinaryPrec = oldPrec        readBinaryPrec = oldPrec
240    
# Line 349  c             Add active_var from approp Line 372  c             Add active_var from approp
372    
373        endif        endif
374    
375    c     >>>>>>>>>>>>>>>>>>>             <<<<<<<<<<<<<<<<<<<
376    c     >>>>>>>>>>>>>>>>>>> TANGENT RUN <<<<<<<<<<<<<<<<<<<
377    c     >>>>>>>>>>>>>>>>>>>             <<<<<<<<<<<<<<<<<<<
378    
379          if (theSimulationMode .eq. TANGENT_SIMULATION) then
380    
381            _BEGIN_MASTER( mythid )
382    
383              call mdswritefieldxz(
384         &                        active_var_file,
385         &                        prec,
386         &                        globalfile,
387         &                        'RL',
388         &                        mynr,
389         &                        active_var,
390         &                        irec,
391         &                        myOptimIter,
392         &                        mythid )
393    
394            _END_MASTER( mythid )
395    
396          endif
397    
398  c     Reset default io precision.  c     Reset default io precision.
399        readBinaryPrec = oldPrec        readBinaryPrec = oldPrec
400    
# Line 550  c       Set active_var to zero. Line 596  c       Set active_var to zero.
596          _END_MASTER( mythid )          _END_MASTER( mythid )
597        endif        endif
598    
599    c     >>>>>>>>>>>>>>>>>>>             <<<<<<<<<<<<<<<<<<<
600    c     >>>>>>>>>>>>>>>>>>> TANGENT RUN <<<<<<<<<<<<<<<<<<<
601    c     >>>>>>>>>>>>>>>>>>>             <<<<<<<<<<<<<<<<<<<
602    
603          if (theSimulationMode .eq. TANGENT_SIMULATION) then
604    
605            _BEGIN_MASTER( mythid )
606    
607    c       Read the active variable from file.
608    
609            call mdsreadfieldyz(
610         &                     active_var_file,
611         &                     prec,
612         &                     'RL',
613         &                     mynr,      
614         &                     active_var,
615         &                     irec,
616         &                     mythid )
617    
618            _END_MASTER( mythid )
619    
620          endif
621    
622  c     Reset default io precision.  c     Reset default io precision.
623        readBinaryPrec = oldPrec        readBinaryPrec = oldPrec
624    
# Line 685  c             Add active_var from approp Line 754  c             Add active_var from approp
754    
755          _END_MASTER( mythid )          _END_MASTER( mythid )
756    
757          endif
758    
759    c     >>>>>>>>>>>>>>>>>>>             <<<<<<<<<<<<<<<<<<<
760    c     >>>>>>>>>>>>>>>>>>> TANGENTY RUN <<<<<<<<<<<<<<<<<<<
761    c     >>>>>>>>>>>>>>>>>>>             <<<<<<<<<<<<<<<<<<<
762    
763          if (theSimulationMode .eq. TANGENT_SIMULATION) then
764    
765            _BEGIN_MASTER( mythid )
766    
767              call mdswritefieldyz(
768         &                        active_var_file,
769         &                        prec,
770         &                        globalfile,
771         &                        'RL',
772         &                        mynr,
773         &                        active_var,
774         &                        irec,
775         &                        myOptimIter,
776         &                        mythid )
777    
778            _END_MASTER( mythid )
779    
780        endif        endif
781    
782  c     Reset default io precision.  c     Reset default io precision.
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22