/[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.25 by heimbach, Fri Feb 1 19:25:32 2013 UTC revision 1.26 by gforget, Tue Aug 6 20:57:00 2013 UTC
# Line 311  c     == local variables == Line 311  c     == local variables ==
311        character*(80) weightname        character*(80) weightname
312        _RL delZnorm        _RL delZnorm
313        character*(80) cfile2, cfile3        character*(80) cfile2, cfile3
314          _RL dummy
315    
316  c     == external ==  c     == external ==
317    
# Line 323  c-- part 1: preliminary reads and defini Line 324  c-- part 1: preliminary reads and defini
324    
325  #ifdef CTRL_PACK_PRECISE  #ifdef CTRL_PACK_PRECISE
326        call active_read_xyz(weighttype, wei3d, 1,        call active_read_xyz(weighttype, wei3d, 1,
327       &    .FALSE., .FALSE., 0 , mythid, 1)       &    .FALSE., .FALSE., 0 , mythid, dummy)
328  #endif  #endif
329    
330        call active_read_xyz(masktype, msk3d, 1,        call active_read_xyz(masktype, msk3d, 1,
331       &    .FALSE., .FALSE., 0 , mythid, 1)       &    .FALSE., .FALSE., 0 , mythid, dummy)
332    
333        if ( doPackDiag ) then        if ( doPackDiag ) then
334           write(cfile2(1:80),'(80a)') ' '           write(cfile2(1:80),'(80a)') ' '
Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26
  ViewVC Help
Powered by ViewVC 1.1.22