471 |
# ifdef ALLOW_OBCS_EAST |
# ifdef ALLOW_OBCS_EAST |
472 |
IF ( OBEptrFile(iTracer) .NE. ' ' ) |
IF ( OBEptrFile(iTracer) .NE. ' ' ) |
473 |
& CALL OBCS_EXTERNAL_FIELDS_INTERP_YZ( |
& CALL OBCS_EXTERNAL_FIELDS_INTERP_YZ( |
474 |
O OBWptr (1-Oly,1,1,1,iTracer), |
O OBEptr (1-Oly,1,1,1,iTracer), |
475 |
I OBWptr0(1-Oly,1,1,1,iTracer), |
I OBEptr0(1-Oly,1,1,1,iTracer), |
476 |
I OBWptr1(1-Oly,1,1,1,iTracer), aWght, bWght, myThid ) |
I OBEptr1(1-Oly,1,1,1,iTracer), aWght, bWght, myThid ) |
477 |
# endif /* ALLOW_OBCS_EAST */ |
# endif /* ALLOW_OBCS_EAST */ |
478 |
# ifdef ALLOW_OBCS_WEST |
# ifdef ALLOW_OBCS_WEST |
479 |
IF ( OBWptrFile(iTracer) .NE. ' ' ) |
IF ( OBWptrFile(iTracer) .NE. ' ' ) |