/[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.21 by jmc, Thu Dec 23 23:51:22 2004 UTC revision 1.22 by jmc, Sun Jun 19 21:40:08 2005 UTC
# Line 328  C--     Cosine(lat) scaling Line 328  C--     Cosine(lat) scaling
328       &                    **cosPower       &                    **cosPower
329            cosFacV(J,bi,bj)=COS((yC(1,J,bi,bj)-0.5*delY(jG))*deg2rad)            cosFacV(J,bi,bj)=COS((yC(1,J,bi,bj)-0.5*delY(jG))*deg2rad)
330       &                    **cosPower       &                    **cosPower
331              cosFacU(J,bi,bj)=ABS(cosFacU(J,bi,bj))
332              cosFacV(J,bi,bj)=ABS(cosFacV(J,bi,bj))
333            sqcosFacU(J,bi,bj)=sqrt(cosFacU(J,bi,bj))            sqcosFacU(J,bi,bj)=sqrt(cosFacU(J,bi,bj))
334            sqcosFacV(J,bi,bj)=sqrt(cosFacV(J,bi,bj))            sqcosFacV(J,bi,bj)=sqrt(cosFacV(J,bi,bj))
335           ELSE           ELSE
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22