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

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

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

revision 1.17 by heimbach, Thu Jun 14 18:55:36 2007 UTC revision 1.18 by gforget, Tue Jun 19 03:42:30 2007 UTC
# Line 231  cph( Line 231  cph(
231       &                 phtmpadmtlm(nveccount)       &                 phtmpadmtlm(nveccount)
232  cph)  cph)
233  #endif  #endif
234    #ifndef ALLOW_SMOOTH_CORREL3D
235  #ifdef ALLOW_NONDIMENSIONAL_CONTROL_IO  #ifdef ALLOW_NONDIMENSIONAL_CONTROL_IO
236                       if ( lxxadxx ) then                       if ( lxxadxx ) then
237                          globfld3d(i,bi,ip,j,bj,jp,k) = delZnorm                          globfld3d(i,bi,ip,j,bj,jp,k) = delZnorm
# Line 250  cph) Line 251  cph)
251  # endif  # endif
252                       endif                       endif
253  #endif /* ALLOW_NONDIMENSIONAL_CONTROL_IO */  #endif /* ALLOW_NONDIMENSIONAL_CONTROL_IO */
254    #endif / * ALLOW_SMOOTH_CORREL3D * /
255                    else                    else
256                       globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0                       globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
257                    endif                    endif
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22