1 |
C $Header$ |
C $Header$ |
2 |
C $Name$ |
C $Name$ |
3 |
|
|
4 |
#include "CTRL_CPPOPTIONS.h" |
#include "CTRL_OPTIONS.h" |
5 |
#ifdef ALLOW_OBCS |
#ifdef ALLOW_OBCS |
6 |
# include "OBCS_OPTIONS.h" |
# include "OBCS_OPTIONS.h" |
7 |
#endif |
#endif |
40 |
#include "CTRL_SIZE.h" |
#include "CTRL_SIZE.h" |
41 |
#include "ctrl.h" |
#include "ctrl.h" |
42 |
#include "ctrl_dummy.h" |
#include "ctrl_dummy.h" |
43 |
|
#include "CTRL_OBCS.h" |
44 |
#include "optim.h" |
#include "optim.h" |
45 |
#endif /* ALLOW_OBCSW_CONTROL */ |
#endif /* ALLOW_OBCSW_CONTROL */ |
46 |
|
|
131 |
if (iobcs .gt. 2) then |
if (iobcs .gt. 2) then |
132 |
do j = jmin,jmax |
do j = jmin,jmax |
133 |
i = OB_Iw(j,bi,bj) |
i = OB_Iw(j,bi,bj) |
134 |
|
IF ( i.EQ.OB_indexNone ) i = 1 |
135 |
cih Determine number of open vertical layers. |
cih Determine number of open vertical layers. |
136 |
nz = 0 |
nz = 0 |
137 |
do k = 1,Nr |
do k = 1,Nr |
200 |
if (iobcs .gt. 2) then |
if (iobcs .gt. 2) then |
201 |
do j = jmin,jmax |
do j = jmin,jmax |
202 |
i = OB_Iw(j,bi,bj) |
i = OB_Iw(j,bi,bj) |
203 |
|
IF ( i.EQ.OB_indexNone ) i = 1 |
204 |
cih Determine number of open vertical layers. |
cih Determine number of open vertical layers. |
205 |
nz = 0 |
nz = 0 |
206 |
do k = 1,Nr |
do k = 1,Nr |
252 |
do k = 1,nr |
do k = 1,nr |
253 |
do j = 1,sny |
do j = 1,sny |
254 |
i = OB_Iw(j,bi,bj) |
i = OB_Iw(j,bi,bj) |
255 |
|
IF ( i.EQ.OB_indexNone ) i = 1 |
256 |
if (iobcs .EQ. 1) then |
if (iobcs .EQ. 1) then |
257 |
OBWt(j,k,bi,bj) = OBWt (j,k,bi,bj) |
OBWt(j,k,bi,bj) = OBWt (j,k,bi,bj) |
258 |
& + obcswfac *xx_obcsw0(j,k,bi,bj,iobcs) |
& + obcswfac *xx_obcsw0(j,k,bi,bj,iobcs) |