/[MITgcm]/MITgcm/pkg/gmredi/gmredi_ytransport.F
ViewVC logotype

Diff of /MITgcm/pkg/gmredi/gmredi_ytransport.F

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

revision 1.1 by adcroft, Wed Jun 21 19:42:54 2000 UTC revision 1.4 by cnh, Sun Feb 4 14:38:49 2001 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    C $Name$
3    
4  #include "GMREDI_OPTIONS.h"  #include "GMREDI_OPTIONS.h"
5    
# Line 40  C     == Local variables == Line 41  C     == Local variables ==
41  C     I, J - Loop counters  C     I, J - Loop counters
42        INTEGER I, J        INTEGER I, J
43    
44        IF (use_GMRedi) THEN        IF (useGMRedi) THEN
45    
46  C--   Area integrated meridional flux  C--   Area integrated meridional flux
47        DO j=jMin,jMax        DO j=jMin,jMax
# Line 49  C--   Area integrated meridional flux Line 50  C--   Area integrated meridional flux
50       &    -yA(i,j)       &    -yA(i,j)
51       &    *(GM_background_K       &    *(GM_background_K
52  #ifdef GM_VISBECK_VARIABLE_K  #ifdef GM_VISBECK_VARIABLE_K
53       &    +0.5*(VisbeckK(i,j,myThid)+VisbeckK(i,j-1,myThid))       &    +0.5*(VisbeckK(i,j,bi,bj)+VisbeckK(i,j-1,bi,bj))
54  #endif  #endif
55       &    )       &    )
56  #ifdef GM_NON_UNITY_DIAGONAL  #ifdef GM_NON_UNITY_DIAGONAL
57       &    *Kvy(i,j,k,myThid)       &    *Kvy(i,j,k,bi,bj)
58  #endif  #endif
59       &    *_recip_dyC(i,j,bi,bj)       &    *_recip_dyC(i,j,bi,bj)
60       &    *(Tracer(i,j,k,bi,bj)-Tracer(i,j-1,k,bi,bj))       &    *(Tracer(i,j,k,bi,bj)-Tracer(i,j-1,k,bi,bj))
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22