/[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.7 by heimbach, Fri Sep 17 23:02:01 2004 UTC revision 1.8 by heimbach, Mon Feb 28 17:34:36 2005 UTC
# Line 21  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 "FFIELDS.h"
25  #ifdef EXACT_CONSERV  #ifdef EXACT_CONSERV
26  # include "SURFACE.h"  # include "SURFACE.h"
27  #endif  #endif
 #ifdef ALLOW_EXF  
 # include "FFIELDS.h"  
 #endif  
28    
29  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
30  C     == Routine arguments ==  C     == Routine arguments ==
# Line 40  C     == Local variables == Line 38  C     == Local variables ==
38  C     bi,bj  - Loop counters  C     bi,bj  - Loop counters
39  C     I,J,K  C     I,J,K
40        INTEGER bi, bj        INTEGER bi, bj
41        INTEGER  I,  J, K        INTEGER  I, J, K
42  CEOP  CEOP
43    
44  C--   Over all tiles  C--   Over all tiles
# Line 48  C--   Over all tiles Line 46  C--   Over all tiles
46         DO bi = myBxLo(myThid), myBxHi(myThid)         DO bi = myBxLo(myThid), myBxHi(myThid)
47    
48  C-      3D arrays  C-      3D arrays
49            DO K=1,Nr
50             DO J=1-Oly,sNy+Oly
51              DO I=1-Olx,sNx+Olx
52    #ifdef ALLOW_EP_FLUX
53               EfluxY(i,j,k,bi,bj)=0.
54               EfluxP(i,j,k,bi,bj)=0.
55    #endif
56              ENDDO
57             ENDDO
58            ENDDO
59    
60  C-      2D arrays  C-      2D arrays
61          DO J=1-Oly,sNy+Oly          DO J=1-Oly,sNy+Oly
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22