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

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

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

revision 1.4 by adcroft, Wed Feb 28 14:48:25 2001 UTC revision 1.5 by jmc, Wed Jan 30 04:22:31 2002 UTC
# Line 54  C     Eastern OB Line 54  C     Eastern OB
54  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
55                OBEw(J,K,bi,bj)=0.                OBEw(J,K,bi,bj)=0.
56  #endif  #endif
57    #ifdef NONLIN_FRSURF
58                  OBEeta(J,bi,bj)=0.
59    #endif
60              ENDIF              ENDIF
61            ENDDO            ENDDO
62          ENDDO          ENDDO
# Line 77  C     Western OB Line 80  C     Western OB
80  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
81                OBWw(J,K,bi,bj)=0.                OBWw(J,K,bi,bj)=0.
82  #endif  #endif
83    #ifdef NONLIN_FRSURF
84                  OBWeta(J,bi,bj)=0.
85    #endif
86              ENDIF              ENDIF
87            ENDDO            ENDDO
88          ENDDO          ENDDO
# Line 100  C         Northern OB Line 106  C         Northern OB
106  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
107                OBNw(I,K,bi,bj)=0.                OBNw(I,K,bi,bj)=0.
108  #endif  #endif
109    #ifdef NONLIN_FRSURF
110                  OBNeta(I,bi,bj)=0.
111    #endif
112              ENDIF              ENDIF
113            ENDDO            ENDDO
114          ENDDO          ENDDO
# Line 123  C         Southern OB Line 132  C         Southern OB
132  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
133                OBSw(I,K,bi,bj)=0.                OBSw(I,K,bi,bj)=0.
134  #endif  #endif
135    #ifdef NONLIN_FRSURF
136                  OBSeta(I,bi,bj)=0.
137    #endif
138              ENDIF              ENDIF
139            ENDDO            ENDDO
140          ENDDO          ENDDO
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22