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

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

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

revision 1.5 by molod, Fri Nov 18 20:25:18 2005 UTC revision 1.6 by jmc, Sun Nov 19 22:03:13 2006 UTC
# Line 113  c If nonlinear free surf is active, need Line 113  c If nonlinear free surf is active, need
113            if(select_rStar.GT.0)then            if(select_rStar.GT.0)then
114             call diagnostics_get_pointers('RSURF   ',ipoint1,jpoint1,             call diagnostics_get_pointers('RSURF   ',ipoint1,jpoint1,
115       .                                                           myThid)       .                                                           myThid)
116             call diagnostics_get_pointers('PRESSURE',ipoint2,jpoint2,             call diagnostics_get_pointers('RCENTER ',ipoint2,jpoint2,
117       .                                                           myThid)       .                                                           myThid)
118  C if fizhi is being  used, may need to get physics grid pressures  C if fizhi is being  used, may need to get physics grid pressures
119  #ifdef ALLOW_FIZHI  #ifdef ALLOW_FIZHI
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22