/[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.2 by cnh, Wed Sep 26 18:09:15 2001 UTC revision 1.3 by jmc, Sun Oct 17 23:03:38 2004 UTC
# Line 38  CEOP Line 38  CEOP
38    
39         DO bj = myByLo(myThid), myByHi(myThid)         DO bj = myByLo(myThid), myByHi(myThid)
40          DO bi = myBxLo(myThid), myBxHi(myThid)          DO bi = myBxLo(myThid), myBxHi(myThid)
41           DO j=1,sNy           DO k=1,Nr
42            DO i=1,sNx            DO j=1,sNy
43             DO k=1,Nr             DO i=1,sNx
44  #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_DIFFKR_CONTROL))  #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_DIFFKR_CONTROL))
45              diffKr(i,j,k,bi,bj) = diffKrS              diffKr(i,j,k,bi,bj) = diffKrNrS(k)
46  #endif  #endif
47  #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_KAPGM_CONTROL))  #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_KAPGM_CONTROL))
48              KapGM(i,j,k,bi,bj) = GMkbackground              KapGM(i,j,k,bi,bj) = GMkbackground
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22