/[MITgcm]/MITgcm/model/src/ini_spherical_polar_grid.F
ViewVC logotype

Diff of /MITgcm/model/src/ini_spherical_polar_grid.F

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

revision 1.16 by cnh, Sun Feb 4 14:38:47 2001 UTC revision 1.17 by cnh, Sun Feb 4 16:46:44 2001 UTC
# Line 312  C--     Calculate trigonometric terms Line 312  C--     Calculate trigonometric terms
312         ENDDO ! bi         ENDDO ! bi
313        ENDDO ! bj        ENDDO ! bj
314    
       write(0,*) ' yC=', (yC(1,j,1,1),j=1,sNy)  
       write(0,*) 'dxF=', (dXF(1,j,1,1),j=1,sNy)  
       write(0,*) 'dyF=', (dYF(1,j,1,1),j=1,sNy)  
       write(0,*) 'dxG=', (dXG(1,j,1,1),j=1,sNy)  
       write(0,*) 'dyG=', (dYG(1,j,1,1),j=1,sNy)  
       write(0,*) 'dxC=', (dXC(1,j,1,1),j=1,sNy)  
       write(0,*) 'dyC=', (dYC(1,j,1,1),j=1,sNy)  
       write(0,*) 'dxV=', (dXV(1,j,1,1),j=1,sNy)  
       write(0,*) 'dyU=', (dYU(1,j,1,1),j=1,sNy)  
       write(0,*) ' rA=', (rA(1,j,1,1),j=1,sNy)  
       write(0,*) 'rAw=', (rAw(1,j,1,1),j=1,sNy)  
       write(0,*) 'rAs=', (rAs(1,j,1,1),j=1,sNy)  
   
315        RETURN        RETURN
316        END        END
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22