/[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.2 by adcroft, Fri Feb 2 21:36:30 2001 UTC revision 1.3 by adcroft, Wed Feb 28 14:45:21 2001 UTC
# Line 59  C     == Local variables == Line 59  C     == Local variables ==
59           ENDDO           ENDDO
60          ENDDO          ENDDO
61    
        ENDDO  
       ENDDO  
   
62  #ifdef ALLOW_ORLANSKI  #ifdef ALLOW_ORLANSKI
63          IF (useOrlanskiNorth.OR.useOrlanskiSouth.OR.          IF (useOrlanskiNorth.OR.useOrlanskiSouth.OR.
64       &      useOrlanskiEast.OR.useOrlanskiWest) THEN       &      useOrlanskiEast.OR.useOrlanskiWest) THEN
# Line 69  C     == Local variables == Line 66  C     == Local variables ==
66          ENDIF          ENDIF
67  #endif /* ALLOW_ORLANSKI */  #endif /* ALLOW_ORLANSKI */
68    
69           ENDDO
70          ENDDO    
71    
72  C--   Apply OBCS values to initial conditions for consistancy  C--   Apply OBCS values to initial conditions for consistancy
73        DO bj = myByLo(myThid), myByHi(myThid)        DO bj = myByLo(myThid), myByHi(myThid)
74         DO bi = myBxLo(myThid), myBxHi(myThid)         DO bi = myBxLo(myThid), myBxHi(myThid)
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22