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

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

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

revision 1.16 by adcroft, Tue May 29 14:01:36 2001 UTC revision 1.17 by heimbach, Mon Jul 30 20:20:43 2001 UTC
# Line 58  C     == Local variables == Line 58  C     == Local variables ==
58  C     I, J, K - Loop counters  C     I, J, K - Loop counters
59        INTEGER i,j        INTEGER i,j
60    
61    C--   Initialisation
62          DO j=1-OLy,sNy+OLy
63           DO i=1-OLx,sNx+OLx
64            xA(i,j)      = 0. _d 0
65            yA(i,j)      = 0. _d 0
66            uTrans(i,j)  = 0. _d 0
67            vTrans(i,j)  = 0. _d 0
68            rTrans(i,j)  = 0. _d 0
69           ENDDO
70          ENDDO      
71    
72  C--   Calculate mask for tracer cells  (0 => land, 1 => water)  C--   Calculate mask for tracer cells  (0 => land, 1 => water)
73        IF (K .EQ. 1) THEN        IF (K .EQ. 1) THEN
74          DO j=jMin,jMax          DO j=jMin,jMax
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22