/[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.3 by heimbach, Fri Mar 7 23:49:55 2003 UTC revision 1.6 by heimbach, Wed Jun 30 23:45:35 2004 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 22  C     === Global variables === Line 24  C     === Global variables ===
24  #ifdef EXACT_CONSERV  #ifdef EXACT_CONSERV
25  # include "SURFACE.h"  # include "SURFACE.h"
26  #endif  #endif
27  #ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE  #ifdef ALLOW_EXF
28  # include "FFIELDS.h"  # include "FFIELDS.h"
29  #endif  #endif
30    
# Line 51  C-      2D arrays Line 53  C-      2D arrays
53          DO J=1-Oly,sNy+Oly          DO J=1-Oly,sNy+Oly
54           DO I=1-Olx,sNx+Olx           DO I=1-Olx,sNx+Olx
55  #ifdef EXACT_CONSERV  #ifdef EXACT_CONSERV
56            hDivFlow(I,J,bi,bj)=0. _d 0           dEtaHdt(i,j,bi,bj) = 0. _d 0
57    cph          hDivFlow(I,J,bi,bj)=0. _d 0
58  #endif  #endif
59  #ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE  #ifdef ALLOW_EXF
60            EmPmR(I,J,bi,bj) = 0. _d 0            EmPmR(I,J,bi,bj) = 0. _d 0
61  #endif  #endif
62           ENDDO           ENDDO
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22