/[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.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 192  cph( Line 192  cph(
192                       globfldtmp3(i,bi,ip,j,bj,jp) =                       globfldtmp3(i,bi,ip,j,bj,jp) =
193       &                    globfld3d(i,bi,ip,j,bj,jp,k)       &                    globfld3d(i,bi,ip,j,bj,jp,k)
194  cph)  cph)
195    #ifndef ALLOW_SMOOTH_CORREL3D
196  #ifdef ALLOW_NONDIMENSIONAL_CONTROL_IO  #ifdef ALLOW_NONDIMENSIONAL_CONTROL_IO
197                       if (lxxadxx) then                       if (lxxadxx) then
198                          cbuff(cbuffindex) = 1/delZnorm                          cbuff(cbuffindex) = 1/delZnorm
# Line 216  cph) Line 217  cph)
217  #else /* ALLOW_NONDIMENSIONAL_CONTROL_IO undef */  #else /* ALLOW_NONDIMENSIONAL_CONTROL_IO undef */
218                       cbuff(cbuffindex) = globfld3d(i,bi,ip,j,bj,jp,k)                       cbuff(cbuffindex) = globfld3d(i,bi,ip,j,bj,jp,k)
219  #endif /* ALLOW_NONDIMENSIONAL_CONTROL_IO */  #endif /* ALLOW_NONDIMENSIONAL_CONTROL_IO */
220    #else  /* ALLOW_SMOOTH_CORREL3D */
221                         cbuff(cbuffindex) = globfld3d(i,bi,ip,j,bj,jp,k)
222    #endif /* ALLOW_SMOOTH_CORREL3D */
223  #ifdef ALLOW_ADMTLM  #ifdef ALLOW_ADMTLM
224                       nveccount = nveccount + 1                       nveccount = nveccount + 1
225                       phtmpadmtlm(nveccount) = cbuff(cbuffindex)                       phtmpadmtlm(nveccount) = cbuff(cbuffindex)
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22