/[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.2 by heimbach, Sat Jul 13 02:47:32 2002 UTC revision 1.3 by heimbach, Fri Nov 29 13:38:37 2002 UTC
# Line 133  c--   Only the master thread will do I/O Line 133  c--   Only the master thread will do I/O
133       &                       globfld3d(i,bi,ip,j,bj,jp,k) *       &                       globfld3d(i,bi,ip,j,bj,jp,k) *
134       &                       sqrt(weightfld(k,bi,bj))       &                       sqrt(weightfld(k,bi,bj))
135                       else                       else
 cph(  
                         print *, 'ph-nondim bef. ', k, j, i,  
      &                       globfld3d(i,bi,ip,j,bj,jp,k),  
      &                       weightfld(k,bi,bj)  
 cph)  
136                          cbuff(cbuffindex) =                          cbuff(cbuffindex) =
137       &                       globfld3d(i,bi,ip,j,bj,jp,k) /       &                       globfld3d(i,bi,ip,j,bj,jp,k) /
138       &                       sqrt(weightfld(k,bi,bj))       &                       sqrt(weightfld(k,bi,bj))
 cph(  
                         write(6,'(A,4I5,F10.2)'), 'ph-nondim aft. ',  
      &                       k, j, i, cbuffindex,  
      &                       cbuff(cbuffindex)  
 cph)  
139                       endif                       endif
140  #else  #else
141                       cbuff(cbuffindex) = globfld3d(i,bi,ip,j,bj,jp,k)                       cbuff(cbuffindex) = globfld3d(i,bi,ip,j,bj,jp,k)
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22