/[MITgcm]/MITgcm/pkg/sphere/sphere.F
ViewVC logotype

Diff of /MITgcm/pkg/sphere/sphere.F

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

revision 1.2 by heimbach, Thu May 5 23:47:57 2005 UTC revision 1.3 by jmc, Tue Oct 9 00:11:39 2007 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
# Line 445  cadj loop = parallel Line 447  cadj loop = parallel
447              SHC(K+M) = SHC(K+M) + P(I1) * CE              SHC(K+M) = SHC(K+M) + P(I1) * CE
448              SHC(K-M) = SHC(K-M) + P(I1) * SE              SHC(K-M) = SHC(K-M) + P(I1) * SE
449              K = K+L+L+2              K = K+L+L+2
450              SHC(K+M) = SHC(K+M) + P(I2) * CO                                  SHC(K+M) = SHC(K+M) + P(I2) * CO
451              SHC(K-M) = SHC(K-M) + P(I2) * SO              SHC(K-M) = SHC(K-M) + P(I2) * SO
452           ENDDO           ENDDO
453           I = I + 2           I = I + 2
# Line 524  C Line 526  C
526        END DO        END DO
527    
528        RETURN        RETURN
529        END        END
530    
531  c     ==================================================================  c     ==================================================================
532    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22