103 |
useOBCSsponge =.FALSE. |
useOBCSsponge =.FALSE. |
104 |
useOBCSbalance =.FALSE. |
useOBCSbalance =.FALSE. |
105 |
useOBCSprescribe =.FALSE. |
useOBCSprescribe =.FALSE. |
106 |
OBCSprintDiags =.TRUE. |
OBCSprintDiags = debugLevel.GE.debLevB |
107 |
useOBCSYearlyFields=.FALSE. |
useOBCSYearlyFields=.FALSE. |
108 |
OBCSfixTopo =.TRUE. |
OBCSfixTopo =.TRUE. |
109 |
|
|
222 |
C-- Everyone else must wait for the parameters to be loaded |
C-- Everyone else must wait for the parameters to be loaded |
223 |
_BARRIER |
_BARRIER |
224 |
|
|
225 |
C-- Calculate the tiled index arrays OB_Jn/Js/Ie/Iw here from the |
C-- Calculate the tiled index arrays OB_Jn/Js/Ie/Iw here from the |
226 |
C global arrays OB_Jnorth/Jsouth/Ieast/Iwest. |
C global arrays OB_Jnorth/Jsouth/Ieast/Iwest. |
227 |
C Note: This part of the code has been moved from obcs_init_fixed to |
C Note: This part of the code has been moved from obcs_init_fixed to |
228 |
C routine routine because the OB_Jn/Js/Ie/Iw index arrays are |
C routine routine because the OB_Jn/Js/Ie/Iw index arrays are |