/[MITgcm]/MITgcm/model/src/thermodynamics.F
ViewVC logotype

Diff of /MITgcm/model/src/thermodynamics.F

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

revision 1.20 by heimbach, Sun Mar 24 02:36:39 2002 UTC revision 1.21 by jmc, Tue Apr 30 22:53:17 2002 UTC
# Line 2  C $Header$ Line 2  C $Header$
2  C $Name$  C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5  #ifdef ALLOW_GMREDI  #ifdef ALLOW_AUTODIFF_TAMC
6  # include "GMREDI_OPTIONS.h"  # ifdef ALLOW_GMREDI
7  #endif  #  include "GMREDI_OPTIONS.h"
8  #ifdef ALLOW_KPP  # endif
9  # include "KPP_OPTIONS.h"  # ifdef ALLOW_KPP
10  #endif  #  include "KPP_OPTIONS.h"
11    # endif
12    #endif /* ALLOW_AUTODIFF_TAMC */
13    
14  CBOP  CBOP
15  C     !ROUTINE: THERMODYNAMICS  C     !ROUTINE: THERMODYNAMICS
# Line 257  C This is currently also used by IVDC an Line 259  C This is currently also used by IVDC an
259           ENDDO           ENDDO
260          ENDDO          ENDDO
261    
262          iMin = 1-OLx+1          iMin = 1-OLx
263          iMax = sNx+OLx          iMax = sNx+OLx
264          jMin = 1-OLy+1          jMin = 1-OLy
265          jMax = sNy+OLy          jMax = sNy+OLy
266    
267    
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22