/[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.1.2.1 by heimbach, Tue Feb 5 20:34:35 2002 UTC revision 1.4 by gforget, Tue May 26 22:54:09 2015 UTC
# Line 1  Line 1 
1    
2    #include "CTRL_OPTIONS.h"
3    
4        subroutine simul(        subroutine simul(
5       I                  indic,       I                  indic,
# Line 61  c     == local variables == Line 62  c     == local variables ==
62    
63  c     == end of interface ==  c     == end of interface ==
64    
65          print *, 'pathei-lsopt in simul'
66    
67  c--   Call the combined modified forward model and the adjoint model.  c--   Call the combined modified forward model and the adjoint model.
68        do i = 1,nn        do i = 1,nn
69          adxx(i) = 0.0          adxx(i) = 0.
70        enddo        enddo
71        adobjf = 1.0  
72          adobjf = 1.
73  c  c
74        lheaderonly = .false.        lheaderonly = .false.
75    
76          print *, 'pathei-lsopt vor optim_readdata'
77    
78        call optim_readdata( nn, ctrlname, lheaderonly, objf,   xx )        call optim_readdata( nn, ctrlname, lheaderonly, objf,   xx )
79        call optim_readdata( nn, costname, lheaderonly, objf, adxx )        call optim_readdata( nn, costname, lheaderonly, objf, adxx )
80    
Legend:
Removed from v.1.1.2.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22