/[MITgcm]/MITgcm/verification/exp4/code/obcs_calc.F
ViewVC logotype

Diff of /MITgcm/verification/exp4/code/obcs_calc.F

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

revision 1.2 by adcroft, Fri Feb 2 21:36:33 2001 UTC revision 1.3 by jmc, Wed Mar 27 23:17:39 2002 UTC
# Line 36  C     == Routine arguments == Line 36  C     == Routine arguments ==
36  C     == Local variables ==  C     == Local variables ==
37        INTEGER I, J ,K        INTEGER I, J ,K
38        _RL recip_TimeScale,Uinflow        _RL recip_TimeScale,Uinflow
39          _RL EtaBC
40  c  c
41        recip_TimeScale=0./2000.        recip_TimeScale=0./2000.
42        Uinflow = 0.25        Uinflow = 0.25
43          EtaBC = 0.
44    
45  C     Eastern OB  C     Eastern OB
46        IF (useOrlanskiEast) THEN        IF (useOrlanskiEast) THEN
# Line 60  C     Eastern OB Line 62  C     Eastern OB
62  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
63              OBEw(J,K,bi,bj)=0.              OBEw(J,K,bi,bj)=0.
64  #endif  #endif
65    #ifdef NONLIN_FRSURF
66                OBEeta(J,bi,bj)=EtaBC
67    #endif  
68            ENDDO            ENDDO
69          ENDDO          ENDDO
70        ENDIF        ENDIF
# Line 84  C     Western OB Line 89  C     Western OB
89  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
90              OBWw(J,K,bi,bj)=0.              OBWw(J,K,bi,bj)=0.
91  #endif  #endif
92    #ifdef NONLIN_FRSURF
93                OBWeta(J,bi,bj)=EtaBC
94    #endif
95            ENDDO            ENDDO
96          ENDDO          ENDDO
97        ENDIF        ENDIF
# Line 108  C         Northern OB, template for forc Line 116  C         Northern OB, template for forc
116  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
117              OBNw(I,K,bi,bj)=0.              OBNw(I,K,bi,bj)=0.
118  #endif  #endif
119    #ifdef NONLIN_FRSURF
120                OBNeta(I,bi,bj)=0.
121    #endif
122            ENDDO            ENDDO
123          ENDDO          ENDDO
124        ENDIF        ENDIF
# Line 132  C         Southern OB, template for forc Line 143  C         Southern OB, template for forc
143  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
144              OBSw(I,K,bi,bj)=0.              OBSw(I,K,bi,bj)=0.
145  #endif  #endif
146    #ifdef NONLIN_FRSURF
147                OBSeta(I,bi,bj)=0.
148    #endif
149            ENDDO            ENDDO
150          ENDDO          ENDDO
151        ENDIF        ENDIF
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22