/[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.14 by heimbach, Thu Apr 27 12:50:39 2006 UTC revision 1.15 by heimbach, Sat May 27 17:07:21 2006 UTC
# Line 174  c--   Only the master thread will do I/O Line 174  c--   Only the master thread will do I/O
174           do k = 1, nr           do k = 1, nr
175           irectrue = (irec-1)*nr + k           irectrue = (irec-1)*nr + k
176              if ( doZscalePack ) then              if ( doZscalePack ) then
177  cph               delZnorm = SQRT(delR(1)/delR(k))                 delZnorm = (delR(1)/delR(k))**delZexp
                delZnorm = delR(1)/delR(k)  
178              else              else
179                 delZnorm = 1. _d 0                 delZnorm = 1. _d 0
180              endif              endif
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22