/[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.5 by gforget, Tue Jun 2 14:49:13 2015 UTC
# Line 1  Line 1 
1    
   
2        subroutine simul(        subroutine simul(
3       I                  indic,       I                  indic,
4       I                  nn,       I                  nn,
# Line 61  c     == local variables == Line 60  c     == local variables ==
60    
61  c     == end of interface ==  c     == end of interface ==
62    
63          print *, 'pathei-lsopt in simul'
64    
65  c--   Call the combined modified forward model and the adjoint model.  c--   Call the combined modified forward model and the adjoint model.
66        do i = 1,nn        do i = 1,nn
67          adxx(i) = 0.0          adxx(i) = 0.
68        enddo        enddo
69        adobjf = 1.0  
70          adobjf = 1.
71  c  c
72        lheaderonly = .false.        lheaderonly = .false.
73    
74          print *, 'pathei-lsopt vor optim_readdata'
75    
76        call optim_readdata( nn, ctrlname, lheaderonly, objf,   xx )        call optim_readdata( nn, ctrlname, lheaderonly, objf,   xx )
77        call optim_readdata( nn, costname, lheaderonly, objf, adxx )        call optim_readdata( nn, costname, lheaderonly, objf, adxx )
78    
Legend:
Removed from v.1.1.2.1  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22