/[MITgcm]/MITgcm/verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F
ViewVC logotype

Diff of /MITgcm/verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F

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

revision 1.6 by heimbach, Fri Jun 21 16:24:39 2013 UTC revision 1.7 by jmc, Sat Apr 5 21:44:33 2014 UTC
# Line 93  C--   generic - user-defined control var Line 93  C--   generic - user-defined control var
93          DO bi=myBxLo(myThid), myBxHi(myThid)          DO bi=myBxLo(myThid), myBxHi(myThid)
94            do j = jmin,jmax            do j = jmin,jmax
95              do i = imin,imax              do i = imin,imax
96  #ifndef ALLOW_AUTODIFF_OPENAD  #ifndef ALLOW_OPENAD
97                if ( iarr .eq. 1 ) then                if ( iarr .eq. 1 ) then
98  # ifdef ALLOW_BOTTOMDRAG_CONTROL  # ifdef ALLOW_BOTTOMDRAG_CONTROL
99                  bottomdragfld(i,j,bi,bj) = bottomdragfld(i,j,bi,bj)                  bottomdragfld(i,j,bi,bj) = bottomdragfld(i,j,bi,bj)
# Line 122  C--   generic - user-defined control var Line 122  C--   generic - user-defined control var
122       &           + xx_genarr2d(i,j,bi,bj,iarr)       &           + xx_genarr2d(i,j,bi,bj,iarr)
123       &           + tmpfld2d(i,j,bi,bj)       &           + tmpfld2d(i,j,bi,bj)
124                endif                endif
125  #endif /* ALLOW_AUTODIFF_OPENAD */  #endif /* ALLOW_OPENAD */
126              enddo              enddo
127            enddo            enddo
128          ENDDO          ENDDO
# Line 159  C--   generic - user-defined control var Line 159  C--   generic - user-defined control var
159            do k = 1,Nr            do k = 1,Nr
160             do j = jmin,jmax             do j = jmin,jmax
161              do i = imin,imax              do i = imin,imax
162  #ifndef ALLOW_AUTODIFF_OPENAD  #ifndef ALLOW_OPENAD
163                if ( iarr .eq. 1 ) then                if ( iarr .eq. 1 ) then
164                  theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj)                  theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj)
165       &                             + fac*tmpfld3d(i,j,k,bi,bj)       &                             + fac*tmpfld3d(i,j,k,bi,bj)
# Line 177  C--   generic - user-defined control var Line 177  C--   generic - user-defined control var
177       &           + fac*xx_genarr3d(i,j,k,bi,bj,iarr)       &           + fac*xx_genarr3d(i,j,k,bi,bj,iarr)
178       &           + fac*tmpfld3d(i,j,k,bi,bj)       &           + fac*tmpfld3d(i,j,k,bi,bj)
179                endif                endif
180  #endif /* ALLOW_AUTODIFF_OPENAD */  #endif /* ALLOW_OPENAD */
181              enddo              enddo
182             enddo             enddo
183            enddo            enddo
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22