/[MITgcm]/MITgcm/pkg/ctrl/ctrl_set_globfld_xyz.F
ViewVC logotype

Diff of /MITgcm/pkg/ctrl/ctrl_set_globfld_xyz.F

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

revision 1.3 by heimbach, Mon Sep 16 18:11:58 2002 UTC revision 1.4 by heimbach, Tue Jun 24 16:07:07 2003 UTC
# Line 74  c     Initialise temporary file Line 74  c     Initialise temporary file
74                    do ip = 1,nPx                    do ip = 1,nPx
75                       do bi = itlo,ithi                       do bi = itlo,ithi
76                          do i = imin,imax                          do i = imin,imax
 #ifdef ALLOW_TANGENTLINEAR_RUN  
77                             globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0                             globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
 #else  
                            globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0  
 #endif  
78                          enddo                          enddo
79                       enddo                       enddo
80                    enddo                    enddo
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22