/[MITgcm]/MITgcm/pkg/ctrl/ctrl_pack.F
ViewVC logotype

Diff of /MITgcm/pkg/ctrl/ctrl_pack.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.16 by heimbach, Sat Dec 4 17:57:37 2004 UTC revision 1.17 by heimbach, Tue Jan 4 22:02:31 2005 UTC
# Line 140  c     >>> Initialise control vector for Line 140  c     >>> Initialise control vector for
140            write(cfile(1:128),'(4a,i4.4)')            write(cfile(1:128),'(4a,i4.4)')
141       &         ctrlname(1:9),'_',yctrlid(1:10),       &         ctrlname(1:9),'_',yctrlid(1:10),
142       &         yctrlpospack, optimcycle       &         yctrlpospack, optimcycle
143            print *, 'ph-pack: unpacking ', ctrlname(1:9)            print *, 'ph-pack: packing ', ctrlname(1:9)
144        else        else
145  c     >>> Write gradient vector <<<  c     >>> Write gradient vector <<<
146            lxxadxx   = .FALSE.            lxxadxx   = .FALSE.
# Line 149  c     >>> Write gradient vector <<< Line 149  c     >>> Write gradient vector <<<
149            write(cfile(1:128),'(4a,i4.4)')            write(cfile(1:128),'(4a,i4.4)')
150       &         costname(1:9),'_',yctrlid(1:10),       &         costname(1:9),'_',yctrlid(1:10),
151       &         yctrlpospack, optimcycle       &         yctrlpospack, optimcycle
152            print *, 'ph-pack: unpacking ', costname(1:9)            print *, 'ph-pack: packing ', costname(1:9)
153         endif         endif
154    
155         call mdsfindunit( cunit, mythid )         call mdsfindunit( cunit, mythid )
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22