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

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

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

revision 1.7 by jmc, Mon Aug 1 20:39:47 2011 UTC revision 1.8 by jmc, Wed Aug 24 02:24:12 2011 UTC
# Line 86  C     psiLoc  :: horizontal stream-funct Line 86  C     psiLoc  :: horizontal stream-funct
86    
87  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
88    
89    #ifdef ALLOW_DEBUG
90          IF (debugMode) CALL DEBUG_ENTER('DIAGNOSTICS_CALC_PHIVEL',myThid)
91    #endif
92    
93        DO ks = 1,nlevels(listId)        DO ks = 1,nlevels(listId)
94          k = NINT(levs(ks,listId))          k = NINT(levs(ks,listId))
95  C--   Solve for velocity potential for each level:  C--   Solve for velocity potential for each level:
# Line 298  C-    Put the results back in qtmp[1,2] Line 302  C-    Put the results back in qtmp[1,2]
302    
303        ENDDO        ENDDO
304    
305    #ifdef ALLOW_DEBUG
306          IF (debugMode) CALL DEBUG_LEAVE('DIAGNOSTICS_CALC_PHIVEL',myThid)
307    #endif
308    
309        RETURN        RETURN
310        END        END
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22