/[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.15 by heimbach, Tue Jul 31 16:05:57 2012 UTC revision 1.16 by jmc, Fri Aug 10 19:38:57 2012 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4  #include "CTRL_CPPOPTIONS.h"  #include "CTRL_OPTIONS.h"
5    
6  CBOP  CBOP
7  C     !ROUTINE: ctrl_map_ini  C     !ROUTINE: ctrl_map_ini
# Line 97  c--   tauu0. Line 97  c--   tauu0.
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_AUTODIFF_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)
103  #else  #else
# Line 122  c--   tauv0. Line 122  c--   tauv0.
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_AUTODIFF_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)
128  #else  #else
# Line 148  c--   sflux0. Line 148  c--   sflux0.
148              do i = imin,imax              do i = imin,imax
149  # ifdef ALLOW_AUTODIFF_OPENAD  # ifdef ALLOW_AUTODIFF_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)
153  #else  #else
154                empmr(i,j,bi,bj) = empmr(i,j,bi,bj) + tmpfld2d(i,j,bi,bj)                empmr(i,j,bi,bj) = empmr(i,j,bi,bj) + tmpfld2d(i,j,bi,bj)
# Line 172  c--   hflux0. Line 172  c--   hflux0.
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_AUTODIFF_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)
178  #else  #else
179                qnet(i,j,bi,bj) = qnet(i,j,bi,bj) + tmpfld2d(i,j,bi,bj)                qnet(i,j,bi,bj) = qnet(i,j,bi,bj) + tmpfld2d(i,j,bi,bj)
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22