5 |
============================== |
============================== |
6 |
|
|
7 |
o pkg/layers: |
o pkg/layers: |
8 |
|
- remove from common block 3D layers fields (used to diagnose transport |
9 |
|
in tracer coords) and declare them as local arrays in layers_calc.F |
10 |
|
o pkg/seaice: |
11 |
|
- Rename SEAICE_VECTORIZE_LSR_ZEBRA to SEAICE_LSR_ZEBRA and define it |
12 |
|
in lab_sea forward experiment (changes results -> updated) |
13 |
|
o pkg/seaice: modify seaice_lsr.F in order to improve the gradient |
14 |
|
computations; for SEAICE_VECTORIZE_LSR |
15 |
|
- move the loops over which the tridiagonal solvers (seaice_lsr_tridiagu/v) |
16 |
|
sweep to the outside, |
17 |
|
- remove store directives and add "CADJ loop sequential" directives |
18 |
|
in analogy to model/src/solve_tridiagonal.F |
19 |
|
- replace many "#ifdef SEAICE_VECTORIZE_LSR_ZEBRA" by variable loop |
20 |
|
boundaries to yield more readable code. This has also the charming side |
21 |
|
effect that your can use SEAICE_VECTORIZE_LSR_ZEBRA without |
22 |
|
SEAICE_VECTORIZE_LSR (i.e. adjoint without recomputations in |
23 |
|
seaice_lsr_tridiagu/v now requires either of these flags, vectorization |
24 |
|
still requires SEAICE_VECTORIZE_LSR with SEAICE_VECTORIZE_LSR_ZEBRA as |
25 |
|
an additional option) |
26 |
|
The tridiagonal solvers are now completely analoguous to solve_tridiagonal.F |
27 |
|
but the adjoint gradients (which are affected by this change) still explode. |
28 |
|
o coupler (atm & ocn _compon_interf): |
29 |
|
- avoid using Exch2 IO mapping if not suitable. |
30 |
|
|
31 |
|
checkpoint65m (2015/06/15) |
32 |
|
o pkg/layers: |
33 |
|
- clean-up old parameters setting (from Sep 2012): |
34 |
|
+ remove old parameters setting from common block (declared locally); |
35 |
|
+ stop if any old parameter is mixed with new parameters; |
36 |
|
+ check for valid or consistent parameter setting (e.g., layers_name) |
37 |
|
- check that layers_bounds for Pot.Density are in the right range; |
38 |
|
this is supposed to catch un-updated setting after recently shifting |
39 |
|
potential density field "prho" by -1000 (now in "sigma" scale). |
40 |
|
o pkg/layers: |
41 |
- Added missing call to layers_fill for keeping track of tottend in |
- Added missing call to layers_fill for keeping track of tottend in |
42 |
pkg/diagnostics/diagnostics_fill_state.F |
pkg/diagnostics/diagnostics_fill_state.F |
43 |
o pkg/layers: |
o pkg/layers: |
54 |
thermodynamics.F, impldiff.F) and gad to save the necessary fields |
thermodynamics.F, impldiff.F) and gad to save the necessary fields |
55 |
for layers_thermodynamics calculations |
for layers_thermodynamics calculations |
56 |
o pkg/ptracers: |
o pkg/ptracers: |
57 |
- add capability of stepping a passive tracer forward |
- add capability of stepping a passive tracer forward without advection |
58 |
without advection by setting PTRACERS_advScheme to 0. |
by setting PTRACERS_advScheme to 0. |
59 |
o pkg/diagnostics: |
o pkg/diagnostics: |
60 |
- add few (threads) _BARRIER around any update of "diag_pkgStatus". |
- add few (threads) _BARRIER around any update of "diag_pkgStatus". |
61 |
o pkg/layers: |
o pkg/layers: |