/[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.8 by heimbach, Mon Feb 28 17:34:36 2005 UTC revision 1.9 by heimbach, Thu Aug 16 04:15:18 2007 UTC
# Line 22  C     === Global variables === Line 22  C     === Global variables ===
22  #include "EEPARAMS.h"  #include "EEPARAMS.h"
23  #include "PARAMS.h"  #include "PARAMS.h"
24  #include "FFIELDS.h"  #include "FFIELDS.h"
25  #ifdef EXACT_CONSERV  #include "SURFACE.h"
 # include "SURFACE.h"  
 #endif  
26    
27  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
28  C     == Routine arguments ==  C     == Routine arguments ==
# Line 41  C     I,J,K Line 39  C     I,J,K
39        INTEGER  I, J, K        INTEGER  I, J, K
40  CEOP  CEOP
41    
42    C--   Scalar fields
43          TsurfCor=0. _d 0
44          SsurfCor=0. _d 0
45    
46  C--   Over all tiles  C--   Over all tiles
47        DO bj = myByLo(myThid), myByHi(myThid)        DO bj = myByLo(myThid), myByHi(myThid)
48         DO bi = myBxLo(myThid), myBxHi(myThid)         DO bi = myBxLo(myThid), myBxHi(myThid)

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

  ViewVC Help
Powered by ViewVC 1.1.22