/[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.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 172  c--   Only the master thread will do I/O Line 172  c--   Only the master thread will do I/O
172           do k = 1, nr           do k = 1, nr
173           irectrue = (irec-1)*nr + k           irectrue = (irec-1)*nr + k
174              if ( doZscalePack ) then              if ( doZscalePack ) then
175                 delZnorm = SQRT(delR(1)/delR(k))  cph               delZnorm = SQRT(delR(1)/delR(k))
176                   delZnorm = delR(1)/delR(k)
177              else              else
178                 delZnorm = 1. _d 0                 delZnorm = 1. _d 0
179              endif              endif
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22