/[MITgcm]/MITgcm/pkg/rbcs/rbcs_fields_load.F
ViewVC logotype

Diff of /MITgcm/pkg/rbcs/rbcs_fields_load.F

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

revision 1.3 by heimbach, Mon Jan 2 21:17:02 2006 UTC revision 1.4 by heimbach, Tue Jul 11 23:57:37 2006 UTC
# Line 53  C     === Local arrays === Line 53  C     === Local arrays ===
53  C     [01]      :: End points for interpolation  C     [01]      :: End points for interpolation
54  C     Above use static heap storage to allow exchange.  C     Above use static heap storage to allow exchange.
55  C     aWght, bWght :: Interpolation weights  C     aWght, bWght :: Interpolation weights
       COMMON /RBCFFIELDS/  
      &                 rbct0, rbcs0,    
      &                 rbct1, rbcs1  
       _RS  rbct0    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)  
       _RS  rbct1    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)  
       _RS  rbcs0    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)  
       _RS  rbcs1    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)  
   
 #ifdef ALLOW_PTRACERS  
        COMMON /RBCFFTRACER/  
      &               rbcptracer0, rbcptracer1  
        _RS rbcptracer0(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,  
      &              PTRACERS_num)  
        _RS rbcptracer1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,  
      &              PTRACERS_num)  
 #endif  
56    
57        INTEGER bi,bj,i,j,k,intime0,intime1        INTEGER bi,bj,i,j,k,intime0,intime1
58        _RL aWght,bWght,rdt        _RL aWght,bWght,rdt
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22