/[MITgcm]/MITgcm/verification/global1x1_tot/code_seaice_adj/autodiff_inadmode_set_ad.F
ViewVC logotype

Diff of /MITgcm/verification/global1x1_tot/code_seaice_adj/autodiff_inadmode_set_ad.F

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

revision 1.1 by heimbach, Sat Jun 4 05:36:06 2005 UTC revision 1.2 by heimbach, Thu Jun 16 15:40:07 2005 UTC
# Line 0  Line 1 
1    C $Header$
2    
3    #include "AUTODIFF_OPTIONS.h"
4    
5          subroutine adautodiff_inadmode_set( myThid )
6          IMPLICIT NONE
7    C     /==========================================================\
8    C     | SUBROUTINE adautodiff_inadmode_set                       |
9    C     |==========================================================|
10    C     == Global variables ===
11    
12    #include "SIZE.h"
13    #include "EEPARAMS.h"
14    #include "PARAMS.h"
15    
16    C     == Routine arguments ==
17    C     myThid - Thread number for this instance of the routine.
18          integer myThid
19    
20          inAdmode = inAdTrue
21    
22          useGMREDI = .FALSE.
23          useKPP    = .FALSE.
24          useSEAICE = .FALSE.
25    
26          end
27    
28    
29    
30    
31    
32    
33    
34    
35    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22