/[MITgcm]/MITgcm/optim/simul.F
ViewVC logotype

Diff of /MITgcm/optim/simul.F

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

revision 1.2 by heimbach, Fri Nov 15 04:03:25 2002 UTC revision 1.3 by heimbach, Thu Sep 9 15:58:42 2004 UTC
# Line 61  c     == local variables == Line 61  c     == local variables ==
61    
62  c     == end of interface ==  c     == end of interface ==
63    
64          print *, 'pathei-lsopt in simul'
65    
66  c--   Call the combined modified forward model and the adjoint model.  c--   Call the combined modified forward model and the adjoint model.
67        do i = 1,nn        do i = 1,nn
68          adxx(i) = 0.0          adxx(i) = 0.
69        enddo        enddo
70        adobjf = 1.0  
71          adobjf = 1.
72  c  c
73        lheaderonly = .false.        lheaderonly = .false.
74    
75          print *, 'pathei-lsopt vor optim_readdata'
76    
77        call optim_readdata( nn, ctrlname, lheaderonly, objf,   xx )        call optim_readdata( nn, ctrlname, lheaderonly, objf,   xx )
78        call optim_readdata( nn, costname, lheaderonly, objf, adxx )        call optim_readdata( nn, costname, lheaderonly, objf, adxx )
79    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22