/[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.11 by heimbach, Thu Apr 7 23:38:43 2005 UTC revision 1.12 by heimbach, Thu Jun 16 15:31:50 2005 UTC
# Line 182  c--   Only the master thread will do I/O Line 182  c--   Only the master thread will do I/O
182           do k = 1, Nr           do k = 1, Nr
183           irectrue = (irec-1)*nr + k           irectrue = (irec-1)*nr + k
184              if ( doZscaleUnpack ) then              if ( doZscaleUnpack ) then
185                 delZnorm = SQRT(delR(1)/delR(k))  cph               delZnorm = SQRT(delR(1)/delR(k))
186                   delZnorm = delR(1)/delR(k)
187              else              else
188                 delZnorm = 1. _d 0                 delZnorm = 1. _d 0
189              endif              endif
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22