/[MITgcm]/MITgcm/pkg/mom_fluxform/mom_u_metric_sphere.F
ViewVC logotype

Diff of /MITgcm/pkg/mom_fluxform/mom_u_metric_sphere.F

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

revision 1.4 by edhill, Thu Oct 9 04:19:20 2003 UTC revision 1.5 by jmc, Tue Dec 5 05:30:38 2006 UTC
# Line 11  C !INTERFACE: ========================== Line 11  C !INTERFACE: ==========================
11       I        bi,bj,k,       I        bi,bj,k,
12       I        uFld, vFld,       I        uFld, vFld,
13       O        uMetricTerms,       O        uMetricTerms,
14       I        myThid)       I        myThid )
15    
16  C !DESCRIPTION:  C !DESCRIPTION:
17  C Calculates the zonal metric term due to sphericity:  C Calculates the zonal metric term due to sphericity:
# Line 48  CEOP Line 48  CEOP
48    
49        DO j=1-Olx,sNy+Oly-1        DO j=1-Olx,sNy+Oly-1
50         DO i=1-Olx+1,sNx+Olx         DO i=1-Olx+1,sNx+Olx
51           uMetricTerms(i,j) =           uMetricTerms(i,j) =
52       &    uFld(i,j)*recip_RSphere       &    uFld(i,j)*recip_rSphere*recip_deepFacC(k)
53       &    *0.25*( vFld(i,j  )+vFld(i-1,j  )       &    *0.25*( vFld(i,j  )+vFld(i-1,j  )
54       &           +vFld(i,j+1)+vFld(i-1,j+1)       &           +vFld(i,j+1)+vFld(i-1,j+1)
55       &          )*_tanPhiAtU(i,j,bi,bj)       &          )*_tanPhiAtU(i,j,bi,bj)
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22