15 |
active_file_ad.F) keeping the argument list and function unchanged. |
active_file_ad.F) keeping the argument list and function unchanged. |
16 |
- also update lower-level "_LOC" version (call same S/R with "useCurrentDir |
- also update lower-level "_LOC" version (call same S/R with "useCurrentDir |
17 |
=.TRUE.") and remove high-level (control) _loc version (not called anymore). |
=.TRUE.") and remove high-level (control) _loc version (not called anymore). |
18 |
|
- new low-level active I/O routines, one for each type (RL/RS), for active var |
19 |
|
of various (XY,XZ,YZ) shape and level number (arguments: arrShape, myNr); |
20 |
|
fix ctrl_init_wet.F & ecco_cost_weights.F by calling the new S/R with the |
21 |
|
right type. |
22 |
o autodiff and RS=real*4: |
o autodiff and RS=real*4: |
23 |
- call the right type (_RS instead of _RL) of S/R in few output S/R (pkg/exf |
- call the right type (_RS instead of _RL) of S/R in few output S/R (pkg/exf |
24 |
ad-monitor and snapshots); disable arrType='RS' in mdsio_gl*.F ; |
ad-monitor and snapshots); disable arrType='RS' in mdsio_gl*.F ; |