/[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.21 by dimitri, Thu Oct 11 10:30:34 2007 UTC revision 1.22 by dimitri, Tue Oct 23 08:25:28 2007 UTC
# Line 141  C     == Local variables == Line 141  C     == Local variables ==
141           OBNh0(I,bi,bj)=0. _d 0           OBNh0(I,bi,bj)=0. _d 0
142           OBNa1(I,bi,bj)=0. _d 0           OBNa1(I,bi,bj)=0. _d 0
143           OBNh1(I,bi,bj)=0. _d 0           OBNh1(I,bi,bj)=0. _d 0
144             OBNsl (I,bi,bj)=0. _d 0
145             OBNsn (I,bi,bj)=0. _d 0
146             OBNsl0(I,bi,bj)=0. _d 0
147             OBNsn0(I,bi,bj)=0. _d 0
148             OBNsl1(I,bi,bj)=0. _d 0
149             OBNsn1(I,bi,bj)=0. _d 0
150  #endif /* ALLOW_OBCS_NORTH */  #endif /* ALLOW_OBCS_NORTH */
151  #ifdef ALLOW_OBCS_SOUTH  #ifdef ALLOW_OBCS_SOUTH
152           OBSa (I,bi,bj)=0. _d 0           OBSa (I,bi,bj)=0. _d 0
# Line 149  C     == Local variables == Line 155  C     == Local variables ==
155           OBSh0(I,bi,bj)=0. _d 0           OBSh0(I,bi,bj)=0. _d 0
156           OBSa1(I,bi,bj)=0. _d 0           OBSa1(I,bi,bj)=0. _d 0
157           OBSh1(I,bi,bj)=0. _d 0           OBSh1(I,bi,bj)=0. _d 0
158             OBSsl (I,bi,bj)=0. _d 0
159             OBSsn (I,bi,bj)=0. _d 0
160             OBSsl0(I,bi,bj)=0. _d 0
161             OBSsn0(I,bi,bj)=0. _d 0
162             OBSsl1(I,bi,bj)=0. _d 0
163             OBSsn1(I,bi,bj)=0. _d 0
164  #endif /* ALLOW_OBCS_SOUTH */  #endif /* ALLOW_OBCS_SOUTH */
165          ENDDO          ENDDO
166          DO J=1-Oly,sNy+Oly          DO J=1-Oly,sNy+Oly
# Line 159  C     == Local variables == Line 171  C     == Local variables ==
171           OBEh0(J,bi,bj)=0. _d 0           OBEh0(J,bi,bj)=0. _d 0
172           OBEa1(J,bi,bj)=0. _d 0           OBEa1(J,bi,bj)=0. _d 0
173           OBEh1(J,bi,bj)=0. _d 0           OBEh1(J,bi,bj)=0. _d 0
174             OBEsl (I,bi,bj)=0. _d 0
175             OBEsn (I,bi,bj)=0. _d 0
176             OBEsl0(I,bi,bj)=0. _d 0
177             OBEsn0(I,bi,bj)=0. _d 0
178             OBEsl1(I,bi,bj)=0. _d 0
179             OBEsn1(I,bi,bj)=0. _d 0
180  #endif /* ALLOW_OBCS_EAST */  #endif /* ALLOW_OBCS_EAST */
181  #ifdef ALLOW_OBCS_WEST  #ifdef ALLOW_OBCS_WEST
182           OBWa (J,bi,bj)=0. _d 0           OBWa (J,bi,bj)=0. _d 0
# Line 167  C     == Local variables == Line 185  C     == Local variables ==
185           OBWh0(J,bi,bj)=0. _d 0           OBWh0(J,bi,bj)=0. _d 0
186           OBWa1(J,bi,bj)=0. _d 0           OBWa1(J,bi,bj)=0. _d 0
187           OBWh1(J,bi,bj)=0. _d 0           OBWh1(J,bi,bj)=0. _d 0
188             OBWsl (I,bi,bj)=0. _d 0
189             OBWsn (I,bi,bj)=0. _d 0
190             OBWsl0(I,bi,bj)=0. _d 0
191             OBWsn0(I,bi,bj)=0. _d 0
192             OBWsl1(I,bi,bj)=0. _d 0
193             OBWsn1(I,bi,bj)=0. _d 0
194  #endif /* ALLOW_OBCS_WEST */  #endif /* ALLOW_OBCS_WEST */
195          ENDDO          ENDDO
196  #endif /* ALLOW_SEAICE */  #endif /* ALLOW_SEAICE */
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22