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

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

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

revision 1.18 by heimbach, Fri Jan 17 22:15:01 2014 UTC revision 1.19 by jmc, Fri Apr 4 21:16:09 2014 UTC
# Line 96  c--   tauu0. Line 96  c--   tauu0.
96          do bi = itlo,ithi          do bi = itlo,ithi
97            do j = jmin,jmax            do j = jmin,jmax
98              do i = imin,imax              do i = imin,imax
99  # ifdef ALLOW_AUTODIFF_OPENAD  # ifdef ALLOW_OPENAD
100                fu(i,j,bi,bj) = fu(i,j,bi,bj) +                fu(i,j,bi,bj) = fu(i,j,bi,bj) +
101       &                        xx_tauu0(i,j,bi,bj) +       &                        xx_tauu0(i,j,bi,bj) +
102       &                        tmpfld2d(i,j,bi,bj)       &                        tmpfld2d(i,j,bi,bj)
# Line 121  c--   tauv0. Line 121  c--   tauv0.
121          do bi = itlo,ithi          do bi = itlo,ithi
122            do j = jmin,jmax            do j = jmin,jmax
123              do i = imin,imax              do i = imin,imax
124  # ifdef ALLOW_AUTODIFF_OPENAD  # ifdef ALLOW_OPENAD
125                fv(i,j,bi,bj) = fv(i,j,bi,bj) +                fv(i,j,bi,bj) = fv(i,j,bi,bj) +
126       &                        xx_tauv0(i,j,bi,bj) +       &                        xx_tauv0(i,j,bi,bj) +
127       &                        tmpfld2d(i,j,bi,bj)       &                        tmpfld2d(i,j,bi,bj)
# Line 146  c--   sflux0. Line 146  c--   sflux0.
146          do bi = itlo,ithi          do bi = itlo,ithi
147            do j = jmin,jmax            do j = jmin,jmax
148              do i = imin,imax              do i = imin,imax
149  # ifdef ALLOW_AUTODIFF_OPENAD  # ifdef ALLOW_OPENAD
150                empmr(i,j,bi,bj) = empmr(i,j,bi,bj) +                empmr(i,j,bi,bj) = empmr(i,j,bi,bj) +
151       &                           xx_sflux0(i,j,bi,bj) +       &                           xx_sflux0(i,j,bi,bj) +
152       &                           tmpfld2d(i,j,bi,bj)       &                           tmpfld2d(i,j,bi,bj)
# Line 171  c--   hflux0. Line 171  c--   hflux0.
171          do bi = itlo,ithi          do bi = itlo,ithi
172            do j = jmin,jmax            do j = jmin,jmax
173              do i = imin,imax              do i = imin,imax
174  # ifdef ALLOW_AUTODIFF_OPENAD  # ifdef ALLOW_OPENAD
175                qnet(i,j,bi,bj) = qnet(i,j,bi,bj) +                qnet(i,j,bi,bj) = qnet(i,j,bi,bj) +
176       &                          xx_hflux0(i,j,bi,bj) +       &                          xx_hflux0(i,j,bi,bj) +
177       &                          tmpfld2d(i,j,bi,bj)       &                          tmpfld2d(i,j,bi,bj)
# Line 234  c--   hfluxm. Line 234  c--   hfluxm.
234          do bi = itlo,ithi          do bi = itlo,ithi
235            do j = jmin,jmax            do j = jmin,jmax
236              do i = imin,imax              do i = imin,imax
237  # ifdef ALLOW_AUTODIFF_OPENAD  # ifdef ALLOW_OPENAD
238                Qnetm(i,j,bi,bj) = Qnetm(i,j,bi,bj) +                Qnetm(i,j,bi,bj) = Qnetm(i,j,bi,bj) +
239       &                          xx_hfluxm(i,j,bi,bj) +       &                          xx_hfluxm(i,j,bi,bj) +
240       &                          tmpfld2d(i,j,bi,bj)       &                          tmpfld2d(i,j,bi,bj)
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22