1 |
|
|
|
|
|
2 |
subroutine optim_initmod( |
subroutine optim_initmod( |
3 |
I nn, |
I nn, |
4 |
O xx |
O xx |
31 |
|
|
32 |
#include "EEPARAMS.h" |
#include "EEPARAMS.h" |
33 |
#include "SIZE.h" |
#include "SIZE.h" |
|
|
|
|
#include "ecco.h" |
|
34 |
#include "ctrl.h" |
#include "ctrl.h" |
35 |
#include "optim.h" |
#include "optim.h" |
36 |
|
|
49 |
c-- contributions. |
c-- contributions. |
50 |
write(fname(1:80),'(80a)') ' ' |
write(fname(1:80),'(80a)') ' ' |
51 |
write(fname(1:80),'(4a,i10.10,a)') |
write(fname(1:80),'(4a,i10.10,a)') |
52 |
& scalname(1:9),'_',expId,'.',optimcycle,'.data' |
& scalname(1:9),'_',yctrlid,'.',optimcycle,'.data' |
53 |
|
|
54 |
c-- Read the scaling for the control vector. |
c-- Read the scaling for the control vector. |
55 |
|
|