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

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

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

revision 1.7 by dimitri, Sat Apr 14 18:32:32 2007 UTC revision 1.8 by gforget, Sat Feb 2 02:37:20 2008 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  # if (defined (ALLOW_GMREDI) && defined (ALLOW_KAPGM_CONTROL))  # if (defined (ALLOW_GMREDI) && (defined (ALLOW_KAPGM_CONTROL)||defined (ALLOW_KAPREDI_CONTROL)))
6  # include "GMREDI_OPTIONS.h"  # include "GMREDI_OPTIONS.h"
7  #endif  #endif
8    
# Line 26  C     === Global variables === Line 26  C     === Global variables ===
26  #include "PARAMS.h"  #include "PARAMS.h"
27  #include "GRID.h"  #include "GRID.h"
28  #include "DYNVARS.h"  #include "DYNVARS.h"
29  # if (defined (ALLOW_GMREDI) && defined (ALLOW_KAPGM_CONTROL))  # if (defined (ALLOW_GMREDI) && (defined (ALLOW_KAPGM_CONTROL)||defined (ALLOW_KAPREDI_CONTROL)))
30  # include "GMREDI.h"  # include "GMREDI.h"
31  #endif  #endif
32    
# Line 55  CEOP Line 55  CEOP
55  #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_KAPGM_CONTROL))  #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_KAPGM_CONTROL))
56              KapGM(i,j,k,bi,bj) = GM_background_K              KapGM(i,j,k,bi,bj) = GM_background_K
57  #endif  #endif
58    #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_KAPREDI_CONTROL))
59                kapredi(i,j,k,bi,bj) = GM_isopycK
60    #endif
61             ENDDO             ENDDO
62            ENDDO            ENDDO
63           ENDDO           ENDDO
# Line 86  CEOP Line 89  CEOP
89  #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_KAPGM_CONTROL))  #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_KAPGM_CONTROL))
90        _EXCH_XYZ_R8(KapGM,   myThid )        _EXCH_XYZ_R8(KapGM,   myThid )
91  #endif  #endif
92    #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_KAPREDI_CONTROL))
93          _EXCH_XYZ_R8(kapredi,   myThid )
94    #endif
95        RETURN        RETURN
96        END        END
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22