/[MITgcm]/MITgcm_contrib/ocean_inversion_project/code/ptracers_init.F
ViewVC logotype

Diff of /MITgcm_contrib/ocean_inversion_project/code/ptracers_init.F

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

revision 1.2 by dimitri, Tue Sep 23 04:34:23 2003 UTC revision 1.3 by dimitri, Sat Sep 27 07:45:51 2003 UTC
# Line 56  C Initialize arrays in common blocks : Line 56  C Initialize arrays in common blocks :
56             ENDDO             ENDDO
57            ENDDO            ENDDO
58           ENDDO           ENDDO
59             DO j=1-Oly,sNy+OLy
60              DO i=1-Olx,sNx+Olx
61               surfaceTendencyPtr(i,j,bi,bj,iTracer) = 0. _d 0
62              ENDDO
63             ENDDO
64    
65  C end bi,bj loops  C end bi,bj loops
66          ENDDO          ENDDO
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22