/[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.15 by heimbach, Thu Apr 27 12:50:39 2006 UTC revision 1.16 by heimbach, Sat May 27 17:07:21 2006 UTC
# Line 184  c--   Only the master thread will do I/O Line 184  c--   Only the master thread will do I/O
184           do k = 1, Nr           do k = 1, Nr
185           irectrue = (irec-1)*nr + k           irectrue = (irec-1)*nr + k
186              if ( doZscaleUnpack ) then              if ( doZscaleUnpack ) then
187  cph               delZnorm = SQRT(delR(1)/delR(k))                 delZnorm = (delR(1)/delR(k))**delZexp
                delZnorm = delR(1)/delR(k)  
188              else              else
189                 delZnorm = 1. _d 0                 delZnorm = 1. _d 0
190              endif              endif
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22