/[MITgcm]/MITgcm/pkg/obcs/obcs_init_variables.F
ViewVC logotype

Diff of /MITgcm/pkg/obcs/obcs_init_variables.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.3 by adcroft, Wed Feb 28 14:45:21 2001 UTC revision 1.6 by jmc, Fri Feb 8 22:16:09 2002 UTC
# Line 37  C     == Local variables == Line 37  C     == Local variables ==
37            OBNu(I,K,bi,bj)=0.            OBNu(I,K,bi,bj)=0.
38            OBNv(I,K,bi,bj)=0.            OBNv(I,K,bi,bj)=0.
39            OBNt(I,K,bi,bj)=0.            OBNt(I,K,bi,bj)=0.
40              OBNs(I,K,bi,bj)=0.
41            OBSu(I,K,bi,bj)=0.            OBSu(I,K,bi,bj)=0.
42            OBSv(I,K,bi,bj)=0.            OBSv(I,K,bi,bj)=0.
43            OBSt(I,K,bi,bj)=0.            OBSt(I,K,bi,bj)=0.
44              OBSs(I,K,bi,bj)=0.
45  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
46            OBNw(I,K,bi,bj)=0.            OBNw(I,K,bi,bj)=0.
47            OBSw(I,K,bi,bj)=0.            OBSw(I,K,bi,bj)=0.
# Line 49  C     == Local variables == Line 51  C     == Local variables ==
51            OBEu(J,K,bi,bj)=0.            OBEu(J,K,bi,bj)=0.
52            OBEv(J,K,bi,bj)=0.            OBEv(J,K,bi,bj)=0.
53            OBEt(J,K,bi,bj)=0.            OBEt(J,K,bi,bj)=0.
54              OBEs(J,K,bi,bj)=0.
55            OBWu(J,K,bi,bj)=0.            OBWu(J,K,bi,bj)=0.
56            OBWv(J,K,bi,bj)=0.            OBWv(J,K,bi,bj)=0.
57            OBWt(J,K,bi,bj)=0.            OBWt(J,K,bi,bj)=0.
58              OBWs(J,K,bi,bj)=0.
59  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
60            OBEw(J,K,bi,bj)=0.            OBEw(J,K,bi,bj)=0.
61            OBWw(J,K,bi,bj)=0.            OBWw(J,K,bi,bj)=0.
# Line 59  C     == Local variables == Line 63  C     == Local variables ==
63           ENDDO           ENDDO
64          ENDDO          ENDDO
65    
66    #ifdef NONLIN_FRSURF
67            DO I=1-Olx,sNx+Olx
68              OBNeta(I,bi,bj)=0.
69              OBSeta(I,bi,bj)=0.
70            ENDDO
71            DO J=1-Oly,sNy+Oly
72              OBEeta(J,bi,bj)=0.
73              OBWeta(J,bi,bj)=0.
74            ENDDO
75    #endif /* NONLIN_FRSURF */
76    
77  #ifdef ALLOW_ORLANSKI  #ifdef ALLOW_ORLANSKI
78          IF (useOrlanskiNorth.OR.useOrlanskiSouth.OR.          IF (useOrlanskiNorth.OR.useOrlanskiSouth.OR.
79       &      useOrlanskiEast.OR.useOrlanskiWest) THEN       &      useOrlanskiEast.OR.useOrlanskiWest) THEN
# Line 72  C     == Local variables == Line 87  C     == Local variables ==
87  C--   Apply OBCS values to initial conditions for consistancy  C--   Apply OBCS values to initial conditions for consistancy
88        DO bj = myByLo(myThid), myByHi(myThid)        DO bj = myByLo(myThid), myByHi(myThid)
89         DO bi = myBxLo(myThid), myBxHi(myThid)         DO bi = myBxLo(myThid), myBxHi(myThid)
90          CALL OBCS_CALC( bi, bj, startTime,          CALL OBCS_CALC( bi, bj, startTime, nIter0,
91       &        uVel, vVel, wVel, theta, salt, myThid )       &        uVel, vVel, wVel, theta, salt, myThid )
92          DO K=1,Nr          DO K=1,Nr
93           CALL OBCS_APPLY_UV( bi, bj, k, uVel, vVel, myThid )           CALL OBCS_APPLY_UV( bi, bj, k, uVel, vVel, myThid )
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22