/[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.4 by adcroft, Tue May 29 14:01:39 2001 UTC revision 1.5 by jmc, Wed Jan 30 04:22:31 2002 UTC
# Line 63  C     == Local variables == Line 63  C     == Local variables ==
63           ENDDO           ENDDO
64          ENDDO          ENDDO
65    
66    #ifdef NONLIN_FRSURF
67            DO I=1-Olx,sNx+Olx
68              OBNeta(I,bi,bj)=0.
69              OBSeta(I,bi,bj)=0.
70            ENDDO
71            DO J=1-Oly,sNy+Oly
72              OBEeta(J,bi,bj)=0.
73              OBWeta(J,bi,bj)=0.
74            ENDDO
75    #endif /* NONLIN_FRSURF */
76    
77  #ifdef ALLOW_ORLANSKI  #ifdef ALLOW_ORLANSKI
78          IF (useOrlanskiNorth.OR.useOrlanskiSouth.OR.          IF (useOrlanskiNorth.OR.useOrlanskiSouth.OR.
79       &      useOrlanskiEast.OR.useOrlanskiWest) THEN       &      useOrlanskiEast.OR.useOrlanskiWest) THEN
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22