/[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.4 by jmc, Fri Nov 4 01:30:33 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
# Line 129  C if fizhi is being  used, may need to g Line 129  C if fizhi is being  used, may need to g
129             endif             endif
130    
131             if(.not. foundp) then             if(.not. foundp) then
132              WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_INTERP_VERT: ',              WRITE(msgBuf,'(4A)') 'DIAGNOSTICS_INTERP_VERT: ',
133       .    ' Have asked for pressure interpolation but have not ',       .    ' Have asked for pressure interpolation but have not ',
134       .    ' Activated surface and 3D pressure diagnostic, ',       .    ' Activated surface and 3D pressure diagnostic, ',
135       .    ' RSURF and PRESSURE'       .    ' RSURF and PRESSURE'
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22