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

Diff of /MITgcm/pkg/mom_fluxform/mom_v_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,       I        uFld,
13       O        vMetricTerms,       O        vMetricTerms,
14       I        myThid)       I        myThid )
15    
16  C !DESCRIPTION:  C !DESCRIPTION:
17  C Calculates the meridional metric term due to sphericity:  C Calculates the meridional metric term due to sphericity:
# Line 29  C !USES: =============================== Line 29  C !USES: ===============================
29  C !INPUT PARAMETERS: ===================================================  C !INPUT PARAMETERS: ===================================================
30  C  bi,bj                :: tile indices  C  bi,bj                :: tile indices
31  C  k                    :: vertical level  C  k                    :: vertical level
32  C  uFld                 :: zonal flow  C  uFld                 :: zonal flow
33  C  myThid               :: thread number  C  myThid               :: thread number
34        INTEGER bi,bj,k        INTEGER bi,bj,k
35        _RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
# Line 46  CEOP Line 46  CEOP
46    
47        DO j=1-Olx+1,sNy+Oly        DO j=1-Olx+1,sNy+Oly
48         DO i=1-Olx,sNx+Olx-1         DO i=1-Olx,sNx+Olx-1
49           vMetricTerms(i,j) = -recip_RSphere           vMetricTerms(i,j) = -recip_rSphere*recip_deepFacC(k)
50       &    *0.25*( uFld(i,j  )+uFld(i+1,j  )       &    *0.25*( uFld(i,j  )+uFld(i+1,j  )
51       &           +uFld(i,j-1)+uFld(i+1,j-1)       &           +uFld(i,j-1)+uFld(i+1,j-1)
52       &          )       &          )
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22