749 |
_RL wcurrentLev (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
_RL wcurrentLev (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
750 |
_RL wbaro |
_RL wbaro |
751 |
|
|
752 |
|
common /ecco_cost_weights_2_r/ |
753 |
|
& whflux2,wsflux2,wtauu2,wtauv2 |
754 |
|
_RL whflux2 (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
755 |
|
_RL wsflux2 (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
756 |
|
_RL wtauu2 (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
757 |
|
_RL wtauv2 (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
758 |
|
|
759 |
|
|
760 |
|
|
761 |
#if (defined (ALLOW_OBCSN_COST_CONTRIBUTION) || \ |
#if (defined (ALLOW_OBCSN_COST_CONTRIBUTION) || \ |
762 |
defined (ALLOW_OBCSN_CONTROL)) |
defined (ALLOW_OBCSN_CONTROL)) |
763 |
common /ecco_cost_weights_obcsn/ |
common /ecco_cost_weights_obcsn/ |