/[MITgcm]/MITgcm/pkg/diagnostics/diag_calc_psivel.F
ViewVC logotype

Diff of /MITgcm/pkg/diagnostics/diag_calc_psivel.F

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

revision 1.1 by jmc, Fri Jul 1 18:50:00 2011 UTC revision 1.2 by jmc, Wed Jul 6 01:45:32 2011 UTC
# Line 117  C--   step.2 : account for Psi @ tile or Line 117  C--   step.2 : account for Psi @ tile or
117        IF ( zeroPsi ) THEN        IF ( zeroPsi ) THEN
118  C--   step.3 : shift stream-function to satisfy Psi == 0 @ a particular location  C--   step.3 : shift stream-function to satisfy Psi == 0 @ a particular location
119          _GLOBAL_SUM_RL( offSet, myThid )          _GLOBAL_SUM_RL( offSet, myThid )
120            psiLoc(1) = psiLoc(1) + offSet
121            psiLoc(2) = psiLoc(2) + offSet
122          DO bj=myByLo(myThid),myByHi(myThid)          DO bj=myByLo(myThid),myByHi(myThid)
123           DO bi=myBxLo(myThid),myBxHi(myThid)           DO bi=myBxLo(myThid),myBxHi(myThid)
124            DO j=1,sNy+1            DO j=1,sNy+1
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22