/[MITgcm]/MITgcm_contrib/natl_12/code/gad_biharm_x.F
ViewVC logotype

Diff of /MITgcm_contrib/natl_12/code/gad_biharm_x.F

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

revision 1.1 by cnh, Tue Aug 5 21:22:43 2003 UTC revision 1.2 by cnh, Thu Aug 7 13:03:31 2003 UTC
# Line 52  C     Difference of zonal fluxes ... Line 52  C     Difference of zonal fluxes ...
52        DO j=1-Oly,sNy+Oly        DO j=1-Oly,sNy+Oly
53         dfx(1-Olx,j) = 0.         dfx(1-Olx,j) = 0.
54         DO i=1-Olx+1,sNx+Olx         DO i=1-Olx+1,sNx+Olx
55           gridScalingK4 = (_dxC(i,j,bi,bj)**4)/(5000.**4)           gridScalingK4 = (_dxC(i,j,bi,bj)**4. _d 0)/(5000. _d 0**4. _d 0)
56           dfx(i,j) = diffK4           dfx(i,j) = diffK4
57       &    *gridScalingK4       &    *gridScalingK4
58       &    *xA(i,j)       &    *xA(i,j)
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22