/[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.3 by jmc, Sun Oct 17 23:03:38 2004 UTC revision 1.4 by heimbach, Wed Feb 7 13:38:28 2007 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))
6    # include "GMREDI_OPTIONS.h"
7    #endif
8    
9    
10  CBOP  CBOP
11  C     !ROUTINE: INI_MIXING  C     !ROUTINE: INI_MIXING
# Line 22  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))
30    # include "GMREDI.h"
31    #endif
32    
33  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
34  C     == Routine arguments ==  C     == Routine arguments ==
# Line 45  CEOP Line 52  CEOP
52              diffKr(i,j,k,bi,bj) = diffKrNrS(k)              diffKr(i,j,k,bi,bj) = diffKrNrS(k)
53  #endif  #endif
54  #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_KAPGM_CONTROL))  #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_KAPGM_CONTROL))
55              KapGM(i,j,k,bi,bj) = GMkbackground              KapGM(i,j,k,bi,bj) = GM_background_K
56  #endif  #endif
57             ENDDO             ENDDO
58            ENDDO            ENDDO
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22