/[MITgcm]/MITgcm_contrib/mlosch/optim_m1qn3/testbed/model.F
ViewVC logotype

Diff of /MITgcm_contrib/mlosch/optim_m1qn3/testbed/model.F

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

revision 1.2 by mlosch, Wed May 2 19:41:44 2012 UTC revision 1.3 by mlosch, Mon May 7 12:09:27 2012 UTC
# Line 3  C $Name$ Line 3  C $Name$
3        program model        program model
4        implicit none        implicit none
5        integer indic, n, nn        integer indic, n, nn
6        parameter (nn=20)        parameter (nn=7)
7        double precision f,x(nn),g(nn)        double precision f,x(nn),g(nn)
8        integer izs(1)        integer izs(1)
9        real    rzs(1)        real    rzs(1)
# Line 23  C $Name$ Line 23  C $Name$
23         g(i)=0.         g(i)=0.
24        enddo        enddo
25        call mysimul(indic,n,f,x,g,izs,rzs,dzs)        call mysimul(indic,n,f,x,g,izs,rzs,dzs)
26        write(fmt,'(A,I2,A)') '(A,',n+1,'E12.4)'        write(fmt,'(A,I4,A)') '(A,',n+1,'E12.4)'
27        write(*,fmt) 'model finished f    = ', f, (g(i),i=1,n)        write(*,fmt) 'model finished f    = ', f, (g(i),i=1,n)
28        io = 99        io = 99
29        open(io,file='model_out',status='unknown',form='unformatted')        open(io,file='model_out',status='unknown',form='unformatted')
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22