/[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.4 by adcroft, Tue May 29 14:01:39 2001 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.

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

  ViewVC Help
Powered by ViewVC 1.1.22