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

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

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

revision 1.20 by heimbach, Wed Feb 15 03:52:54 2006 UTC revision 1.21 by utke, Tue May 8 17:03:12 2007 UTC
# Line 110  c--   Temperature field. Line 110  c--   Temperature field.
110  #endif  #endif
111  #ifdef ALLOW_OPENAD  #ifdef ALLOW_OPENAD
112                  theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj) +                  theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj) +
113       &                               fac*xx_theta(i,j,k,bi,bj)       &                               fac*xx_theta(i,j,k,bi,bj) +
114         &                               fac*tmpfld3d(i,j,k,bi,bj)
115  #else  #else
116                  theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj) +                  theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj) +
117       &                               fac*tmpfld3d(i,j,k,bi,bj)       &                               fac*tmpfld3d(i,j,k,bi,bj)
# Line 147  c--   Temperature field. Line 148  c--   Temperature field.
148  #endif  #endif
149  #ifdef ALLOW_OPENAD  #ifdef ALLOW_OPENAD
150                  salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj) +                  salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj) +
151       &                               fac*xx_salt(i,j,k,bi,bj)       &                               fac*xx_salt(i,j,k,bi,bj) +
152         &                               fac*tmpfld3d(i,j,k,bi,bj)
153  #else  #else
154                  salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj) +                  salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj) +
155       &                               fac*tmpfld3d(i,j,k,bi,bj)       &                               fac*tmpfld3d(i,j,k,bi,bj)
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22