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

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

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

revision 1.15 by heimbach, Sat May 27 17:07:21 2006 UTC revision 1.16 by gforget, Sat Jul 15 00:27:37 2006 UTC
# Line 193  cph( Line 193  cph(
193  cph)  cph)
194  #ifdef ALLOW_NONDIMENSIONAL_CONTROL_IO  #ifdef ALLOW_NONDIMENSIONAL_CONTROL_IO
195                       if (lxxadxx) then                       if (lxxadxx) then
196                          cbuff(cbuffindex) = delZnorm                          cbuff(cbuffindex) = 1/delZnorm
197       &                       * globfld3d(i,bi,ip,j,bj,jp,k)       &                       * globfld3d(i,bi,ip,j,bj,jp,k)
198  # ifdef CTRL_PACK_PRECISE  # ifdef CTRL_PACK_PRECISE
199       &                       * sqrt(weightfld3d(i,bi,ip,j,bj,jp,k))       &                       * sqrt(weightfld3d(i,bi,ip,j,bj,jp,k))
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22