/[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.43 by gforget, Tue Sep 4 14:58:15 2012 UTC revision 1.44 by heimbach, Tue Sep 11 01:32:02 2012 UTC
# Line 176  c     >>> Initialise control vector for Line 176  c     >>> Initialise control vector for
176  c     >>> Write gradient vector <<<  c     >>> Write gradient vector <<<
177            lxxadxx   = .FALSE.            lxxadxx   = .FALSE.
178            ictrlgrad = 2            ictrlgrad = 2
179    #ifdef ALLOW_AUTODIFF_OPENAD
180              fcloc     = fc%v
181    #else
182            fcloc     = fc            fcloc     = fc
183    #endif
184            write(cfile(1:128),'(4a,i4.4)')            write(cfile(1:128),'(4a,i4.4)')
185       &         costname(1:9),'_',yctrlid(1:10),       &         costname(1:9),'_',yctrlid(1:10),
186       &         yctrlpospack, optimcycle       &         yctrlpospack, optimcycle
Legend:
Removed from v.1.43  
changed lines
  Added in v.1.44
  ViewVC Help
Powered by ViewVC 1.1.22