/[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.24 by jmc, Mon Nov 5 19:19:05 2007 UTC revision 1.25 by dimitri, Tue Nov 13 23:39:25 2007 UTC
# Line 184  C     == Local variables == Line 184  C     == Local variables ==
184           OBEh0(J,bi,bj)=0. _d 0           OBEh0(J,bi,bj)=0. _d 0
185           OBEa1(J,bi,bj)=0. _d 0           OBEa1(J,bi,bj)=0. _d 0
186           OBEh1(J,bi,bj)=0. _d 0           OBEh1(J,bi,bj)=0. _d 0
187           OBEsl (I,bi,bj)=0. _d 0           OBEsl (J,bi,bj)=0. _d 0
188           OBEsn (I,bi,bj)=0. _d 0           OBEsn (J,bi,bj)=0. _d 0
189           OBEsl0(I,bi,bj)=0. _d 0           OBEsl0(J,bi,bj)=0. _d 0
190           OBEsn0(I,bi,bj)=0. _d 0           OBEsn0(J,bi,bj)=0. _d 0
191           OBEsl1(I,bi,bj)=0. _d 0           OBEsl1(J,bi,bj)=0. _d 0
192           OBEsn1(I,bi,bj)=0. _d 0           OBEsn1(J,bi,bj)=0. _d 0
193           OBEuice (I,bi,bj)=0. _d 0           OBEuice (J,bi,bj)=0. _d 0
194           OBEvice (I,bi,bj)=0. _d 0           OBEvice (J,bi,bj)=0. _d 0
195           OBEuice0(I,bi,bj)=0. _d 0           OBEuice0(J,bi,bj)=0. _d 0
196           OBEvice0(I,bi,bj)=0. _d 0           OBEvice0(J,bi,bj)=0. _d 0
197           OBEuice1(I,bi,bj)=0. _d 0           OBEuice1(J,bi,bj)=0. _d 0
198           OBEvice1(I,bi,bj)=0. _d 0           OBEvice1(J,bi,bj)=0. _d 0
199  #endif /* ALLOW_OBCS_EAST */  #endif /* ALLOW_OBCS_EAST */
200  #ifdef ALLOW_OBCS_WEST  #ifdef ALLOW_OBCS_WEST
201           OBWa (J,bi,bj)=0. _d 0           OBWa (J,bi,bj)=0. _d 0
# Line 204  C     == Local variables == Line 204  C     == Local variables ==
204           OBWh0(J,bi,bj)=0. _d 0           OBWh0(J,bi,bj)=0. _d 0
205           OBWa1(J,bi,bj)=0. _d 0           OBWa1(J,bi,bj)=0. _d 0
206           OBWh1(J,bi,bj)=0. _d 0           OBWh1(J,bi,bj)=0. _d 0
207           OBWsl (I,bi,bj)=0. _d 0           OBWsl (J,bi,bj)=0. _d 0
208           OBWsn (I,bi,bj)=0. _d 0           OBWsn (J,bi,bj)=0. _d 0
209           OBWsl0(I,bi,bj)=0. _d 0           OBWsl0(J,bi,bj)=0. _d 0
210           OBWsn0(I,bi,bj)=0. _d 0           OBWsn0(J,bi,bj)=0. _d 0
211           OBWsl1(I,bi,bj)=0. _d 0           OBWsl1(J,bi,bj)=0. _d 0
212           OBWsn1(I,bi,bj)=0. _d 0           OBWsn1(J,bi,bj)=0. _d 0
213           OBWuice (I,bi,bj)=0. _d 0           OBWuice (J,bi,bj)=0. _d 0
214           OBWvice (I,bi,bj)=0. _d 0           OBWvice (J,bi,bj)=0. _d 0
215           OBWuice0(I,bi,bj)=0. _d 0           OBWuice0(J,bi,bj)=0. _d 0
216           OBWvice0(I,bi,bj)=0. _d 0           OBWvice0(J,bi,bj)=0. _d 0
217           OBWuice1(I,bi,bj)=0. _d 0           OBWuice1(J,bi,bj)=0. _d 0
218           OBWvice1(I,bi,bj)=0. _d 0           OBWvice1(J,bi,bj)=0. _d 0
219  #endif /* ALLOW_OBCS_WEST */  #endif /* ALLOW_OBCS_WEST */
220          ENDDO          ENDDO
221  #endif /* ALLOW_SEAICE */  #endif /* ALLOW_SEAICE */
Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25
  ViewVC Help
Powered by ViewVC 1.1.22