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

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

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

revision 1.5 by adcroft, Tue Jul 6 18:25:52 2004 UTC revision 1.6 by adcroft, Tue Jul 6 20:23:32 2004 UTC
# Line 124  C               Fixed phase speed (ignoring a Line 124  C               Fixed phase speed (ignoring a
124  C                 saved data...)  C                 saved data...)
125                   CVEL_UW(J,K,bi,bj) = CFIX                   CVEL_UW(J,K,bi,bj) = CFIX
126                 ELSE                 ELSE
127                   CVEL_UW(J,K,bi,bj) = f1*(CL*dxF(I_obc+2,J,bi,bj)/deltaT)+                   CVEL_UW(J,K,bi,bj) = f1*(CL*dxF(I_obc+2,J,bi,bj)/deltaT
128       &                f2*CVEL_UW(J,K,bi,bj)       &              )+f2*CVEL_UW(J,K,bi,bj)
129                 ENDIF                 ENDIF
130  C              update OBC to next timestep  C              update OBC to next timestep
131                 OBWu(J,K,bi,bj)=uVel(I_obc+1,J,K,bi,bj)+                 OBWu(J,K,bi,bj)=uVel(I_obc+1,J,K,bi,bj)+
# Line 150  C               Fixed phase speed (ignoring a Line 150  C               Fixed phase speed (ignoring a
150  C                 saved data...)  C                 saved data...)
151                   CVEL_VW(J,K,bi,bj) = CFIX                   CVEL_VW(J,K,bi,bj) = CFIX
152                 ELSE                 ELSE
153                   CVEL_VW(J,K,bi,bj) = f1*(CL*dxV(I_obc+2,J,bi,bj)/deltaT)+                   CVEL_VW(J,K,bi,bj) = f1*(CL*dxV(I_obc+2,J,bi,bj)/deltaT
154       &                f2*CVEL_VW(J,K,bi,bj)       &              )+f2*CVEL_VW(J,K,bi,bj)
155                 ENDIF                 ENDIF
156  C              update OBC to next timestep  C              update OBC to next timestep
157                 OBWv(J,K,bi,bj)=vVel(I_obc,J,K,bi,bj)+                 OBWv(J,K,bi,bj)=vVel(I_obc,J,K,bi,bj)+
# Line 176  C               Fixed phase speed (ignoring a Line 176  C               Fixed phase speed (ignoring a
176  C                 saved data...)  C                 saved data...)
177                   CVEL_TW(J,K,bi,bj) = CFIX                   CVEL_TW(J,K,bi,bj) = CFIX
178                 ELSE                 ELSE
179                   CVEL_TW(J,K,bi,bj) = f1*(CL*dxC(I_obc+2,J,bi,bj)/deltaT)+                   CVEL_TW(J,K,bi,bj) = f1*(CL*dxC(I_obc+2,J,bi,bj)/deltaT
180       &                f2*CVEL_TW(J,K,bi,bj)       &              )+f2*CVEL_TW(J,K,bi,bj)
181                 ENDIF                 ENDIF
182  C              update OBC to next timestep  C              update OBC to next timestep
183                 OBWt(J,K,bi,bj)=theta(I_obc,J,K,bi,bj)+                 OBWt(J,K,bi,bj)=theta(I_obc,J,K,bi,bj)+
# Line 202  C               Fixed phase speed (ignoring Line 202  C               Fixed phase speed (ignoring
202  C                 saved data...)  C                 saved data...)
203                   CVEL_SW(J,K,bi,bj) = CFIX                   CVEL_SW(J,K,bi,bj) = CFIX
204                 ELSE                 ELSE
205                   CVEL_SW(J,K,bi,bj) = f1*(CL*dxC(I_obc+2,J,bi,bj)/deltaT)+                   CVEL_SW(J,K,bi,bj) = f1*(CL*dxC(I_obc+2,J,bi,bj)/deltaT
206       &                f2*CVEL_SW(J,K,bi,bj)       &              )+f2*CVEL_SW(J,K,bi,bj)
207                 ENDIF                 ENDIF
208  C              update OBC to next timestep  C              update OBC to next timestep
209                 OBWs(J,K,bi,bj)=salt(I_obc,J,K,bi,bj)+                 OBWs(J,K,bi,bj)=salt(I_obc,J,K,bi,bj)+
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22