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

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

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

revision 1.18 by molod, Wed Jul 13 17:47:21 2005 UTC revision 1.19 by molod, Mon Jul 18 18:35:19 2005 UTC
# Line 337  C if fizhi is being  used, may need to g Line 337  C if fizhi is being  used, may need to g
337    
338             DO bj = myByLo(myThid), myByHi(myThid)             DO bj = myByLo(myThid), myByHi(myThid)
339              DO bi = myBxLo(myThid), myBxHi(myThid)              DO bi = myBxLo(myThid), myBxHi(myThid)
340               call getdiag(1,undef,qtmpsrf(1-OLx,1-OLy,bi,bj),               call getdiag(1.,undef,qtmpsrf(1-OLx,1-OLy,bi,bj),
341       .                       jpoint1,0,ipoint1,0,bi,bj,myThid)       .                       jpoint1,0,ipoint1,0,bi,bj,myThid)
342              ENDDO              ENDDO
343             ENDDO             ENDDO
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22