1 |
|
C $Header$ |
2 |
|
C $Name$ |
3 |
|
|
4 |
c Define dummy weights as a placeholder |
c Define dummy weights as a placeholder |
5 |
common /ctrl_weights_dummy_r/ |
common /ctrl_weights_dummy_r/ |
6 |
& wtheta, wsalt, |
& wtheta, wsalt, |
7 |
& wuvvel, wetan, |
& wuvvel, wetan, |
8 |
& wdiffkr, wkapgm, |
& wdiffkr, wkapgm, wkapredi, |
9 |
& wedtaux, wedtauy |
& wedtaux, wedtauy |
10 |
|
|
11 |
_RL wtheta ( nr,nsx,nsy ) |
_RL wtheta ( nr,nsx,nsy ) |
14 |
_RL wetan ( snx,sny,nsx,nsy ) |
_RL wetan ( snx,sny,nsx,nsy ) |
15 |
_RL wdiffkr ( nr,nsx,nsy ) |
_RL wdiffkr ( nr,nsx,nsy ) |
16 |
_RL wkapgm ( nr,nsx,nsy ) |
_RL wkapgm ( nr,nsx,nsy ) |
17 |
|
_RL wkapredi ( nr,nsx,nsy ) |
18 |
_RL wedtaux ( nr,nsx,nsy ) |
_RL wedtaux ( nr,nsx,nsy ) |
19 |
_RL wedtauy ( nr,nsx,nsy ) |
_RL wedtauy ( nr,nsx,nsy ) |
20 |
|
|
42 |
_RL wobcse ( nr,nobcs) |
_RL wobcse ( nr,nobcs) |
43 |
_RL wobcseLev (1-oly:sny+oly,nr,nsx,nsy,nobcs) |
_RL wobcseLev (1-oly:sny+oly,nr,nsx,nsy,nobcs) |
44 |
#endif |
#endif |
45 |
|
|
46 |
|
#if (defined (ALLOW_COST_HFLUXM) || defined (ALLOW_HFLUXM_CONTROL)) |
47 |
|
c whfluxm - weight for heat flux. |
48 |
|
common /cost_weights_r/ whfluxm |
49 |
|
_RL whfluxm (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
50 |
|
#endif |
51 |
|
|