/[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.3 by heimbach, Fri Mar 7 23:49:55 2003 UTC
# Line 8  C     !INTERFACE: Line 8  C     !INTERFACE:
8  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
9  C     *==========================================================*  C     *==========================================================*
10  C     | SUBROUTINE INI_AUTODIFF                                      C     | SUBROUTINE INI_AUTODIFF                                    
11  C     | o Initialise to zero some active arrays                    C     | o Initialise to zero some active arrays  
12    C     |   These ini                
13  C     *==========================================================*  C     *==========================================================*
14  C     \ev  C     \ev
15    
# Line 18  C     === Global variables === Line 19  C     === Global variables ===
19  #include "SIZE.h"  #include "SIZE.h"
20  #include "EEPARAMS.h"  #include "EEPARAMS.h"
21  #include "PARAMS.h"  #include "PARAMS.h"
22  #include "SURFACE.h"  #ifdef EXACT_CONSERV
23    # include "SURFACE.h"
24    #endif
25    #ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE
26    # include "FFIELDS.h"
27    #endif
28    
29  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
30  C     == Routine arguments ==  C     == Routine arguments ==
# Line 47  C-      2D arrays Line 53  C-      2D arrays
53  #ifdef EXACT_CONSERV  #ifdef EXACT_CONSERV
54            hDivFlow(I,J,bi,bj)=0. _d 0            hDivFlow(I,J,bi,bj)=0. _d 0
55  #endif  #endif
56    #ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE
57              EmPmR(I,J,bi,bj) = 0. _d 0
58    #endif
59           ENDDO           ENDDO
60          ENDDO          ENDDO
61    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22