559 |
|
|
560 |
#ifdef ALLOW_OBCS |
#ifdef ALLOW_OBCS |
561 |
C-- Apply open boundary conditions |
C-- Apply open boundary conditions |
562 |
IF (useOBCS) THEN |
c IF (useOBCS) THEN |
563 |
CALL OBCS_APPLY_UV( bi, bj, k, gU, gV, myThid ) |
c CALL OBCS_APPLY_UV( bi, bj, k, gU, gV, myThid ) |
564 |
ENDIF |
c ENDIF |
565 |
#endif /* ALLOW_OBCS */ |
#endif /* ALLOW_OBCS */ |
566 |
|
|
567 |
ENDIF |
ENDIF |
568 |
|
|
|
|
|
569 |
C-- end of dynamics k loop (1:Nr) |
C-- end of dynamics k loop (1:Nr) |
570 |
ENDDO |
ENDDO |
571 |
|
|
603 |
|
|
604 |
#ifdef ALLOW_OBCS |
#ifdef ALLOW_OBCS |
605 |
C-- Apply open boundary conditions |
C-- Apply open boundary conditions |
606 |
IF ( useOBCS .AND.(implicitViscosity.OR.momImplVertAdv) ) THEN |
c IF ( useOBCS .AND.(implicitViscosity.OR.momImplVertAdv) ) THEN |
607 |
DO K=1,Nr |
c DO K=1,Nr |
608 |
CALL OBCS_APPLY_UV( bi, bj, k, gU, gV, myThid ) |
c CALL OBCS_APPLY_UV( bi, bj, k, gU, gV, myThid ) |
609 |
ENDDO |
c ENDDO |
610 |
|
IF ( useOBCS ) THEN |
611 |
|
CALL OBCS_APPLY_UV( bi, bj, 0, gU, gV, myThid ) |
612 |
ENDIF |
ENDIF |
613 |
#endif /* ALLOW_OBCS */ |
#endif /* ALLOW_OBCS */ |
614 |
|
|
661 |
ENDDO |
ENDDO |
662 |
|
|
663 |
#ifdef ALLOW_OBCS |
#ifdef ALLOW_OBCS |
664 |
IF (useOBCS) THEN |
c IF (useOBCS) THEN |
665 |
CALL OBCS_PRESCRIBE_EXCHANGES(myThid) |
c CALL OBCS_PRESCRIBE_EXCHANGES(myThid) |
666 |
ENDIF |
c ENDIF |
667 |
#endif |
#endif |
668 |
|
|
669 |
Cml( |
Cml( |