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

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

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

revision 1.2 by heimbach, Fri Nov 9 19:59:30 2001 UTC revision 1.5 by edhill, Sat Nov 1 04:50:02 2003 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "AUTODIFF_OPTIONS.h"
5    
6  CBOP  CBOP
7  C     !ROUTINE: INI_AUTODIFF  C     !ROUTINE: INI_AUTODIFF
# Line 8  C     !INTERFACE: Line 10  C     !INTERFACE:
10  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
11  C     *==========================================================*  C     *==========================================================*
12  C     | SUBROUTINE INI_AUTODIFF                                      C     | SUBROUTINE INI_AUTODIFF                                    
13  C     | o Initialise to zero some active arrays                    C     | o Initialise to zero some active arrays  
14    C     |   These ini                
15  C     *==========================================================*  C     *==========================================================*
16  C     \ev  C     \ev
17    
# Line 18  C     === Global variables === Line 21  C     === Global variables ===
21  #include "SIZE.h"  #include "SIZE.h"
22  #include "EEPARAMS.h"  #include "EEPARAMS.h"
23  #include "PARAMS.h"  #include "PARAMS.h"
24  #include "SURFACE.h"  #ifdef EXACT_CONSERV
25    # include "SURFACE.h"
26    #endif
27    #ifdef ALLOW_EXF
28    # include "FFIELDS.h"
29    #endif
30    
31  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
32  C     == Routine arguments ==  C     == Routine arguments ==
# Line 47  C-      2D arrays Line 55  C-      2D arrays
55  #ifdef EXACT_CONSERV  #ifdef EXACT_CONSERV
56            hDivFlow(I,J,bi,bj)=0. _d 0            hDivFlow(I,J,bi,bj)=0. _d 0
57  #endif  #endif
58    #ifdef ALLOW_EXF
59              EmPmR(I,J,bi,bj) = 0. _d 0
60    #endif
61           ENDDO           ENDDO
62          ENDDO          ENDDO
63    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22