/[MITgcm]/MITgcm/pkg/ggl90/ggl90_calc_diff.F
ViewVC logotype

Diff of /MITgcm/pkg/ggl90/ggl90_calc_diff.F

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

revision 1.4 by dfer, Fri Jan 30 02:23:56 2009 UTC revision 1.5 by jmc, Sun Aug 2 19:30:19 2009 UTC
# Line 35  C     KappaRx   :: vertical diffusivity Line 35  C     KappaRx   :: vertical diffusivity
35  C     myThid    :: Instance number for this innvocation of GGL90_CALC_DIFF  C     myThid    :: Instance number for this innvocation of GGL90_CALC_DIFF
36    
37        INTEGER bi,bj,iMin,iMax,jMin,jMax,kArg,kSize        INTEGER bi,bj,iMin,iMax,jMin,jMax,kArg,kSize
38        _RL KappaRx(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr)        _RL KappaRx(1-Olx:sNx+Olx,1-Oly:sNy+Oly,kSize)
39        INTEGER myThid        INTEGER myThid
40    
41  #ifdef ALLOW_GGL90  #ifdef ALLOW_GGL90
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22