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

Diff of /MITgcm_contrib/natl_12/code/gad_biharm_y.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 54  C     Difference of meridional fluxes .. Line 54  C     Difference of meridional fluxes ..
54        ENDDO        ENDDO
55        DO j=1-Oly+1,sNy+Oly        DO j=1-Oly+1,sNy+Oly
56         DO i=1-Olx,sNx+Olx         DO i=1-Olx,sNx+Olx
57           gridScalingK4 = (_dyC(i,j,bi,bj)**4)/(5000.**4)           gridScalingK4 = (_dyC(i,j,bi,bj)**4. _d 0)/(5000. _d 0**4. _d 0)
58           dfy(i,j) = diffK4           dfy(i,j) = diffK4
59       &    *gridScalingK4       &    *gridScalingK4
60       &    *yA(i,j)       &    *yA(i,j)
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22