/[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.12 by adcroft, Tue Oct 19 17:40:17 2004 UTC revision 1.13 by edhill, Wed Oct 20 14:16:23 2004 UTC
# Line 175  C--   Apply OBCS values to initial condi Line 175  C--   Apply OBCS values to initial condi
175        ENDDO        ENDDO
176    
177  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
178        IF (debugMode) CALL DEBUG_CALL('OBCS_APPLY_UV + OBCS_APPLY_TS',myThid)        IF (debugMode)
179         &     CALL DEBUG_CALL('OBCS_APPLY_UV + OBCS_APPLY_TS',myThid)
180  #endif  #endif
181        DO bj = myByLo(myThid), myByHi(myThid)        DO bj = myByLo(myThid), myByHi(myThid)
182         DO bi = myBxLo(myThid), myBxHi(myThid)         DO bi = myBxLo(myThid), myBxHi(myThid)
# Line 191  C     After applying the boundary condit Line 192  C     After applying the boundary condit
192  C     This is only necessary of the boudnary values have been read  C     This is only necessary of the boudnary values have been read
193  C     from a file.  C     from a file.
194  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
195        IF (debugMode) CALL DEBUG_CALL('EXCHANGES in OBCS_INIT_VARIABLES',myThid)        IF (debugMode)
196         &       CALL DEBUG_CALL('EXCHANGES in OBCS_INIT_VARIABLES',myThid)
197  #endif  #endif
198         CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid)         CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid)
199         _EXCH_XYZ_R8( theta, myThid )         _EXCH_XYZ_R8( theta, myThid )
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22