/[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.18 by mlosch, Thu Dec 15 14:30:45 2005 UTC revision 1.19 by jmc, Thu Dec 15 17:15:36 2005 UTC
# Line 287  C     from a file. Line 287  C     from a file.
287           IF (debugMode) CALL DEBUG_CALL(           IF (debugMode) CALL DEBUG_CALL(
288       &        'PTRACERS EXCHANGES in OBCS_INIT_VARIABLES',myThid)       &        'PTRACERS EXCHANGES in OBCS_INIT_VARIABLES',myThid)
289  #endif  #endif
290  C     Loop over passive tracers           CALL PTRACERS_FIELDS_BLOCKING_EXCH( myThid )
          DO iTracer=1,PTRACERS_numInUse  
           _EXCH_XYZ_R8( pTracer(1-Olx,1-Oly,1,1,1,iTracer),  
      &         myThid )  
          ENDDO  
291          ENDIF          ENDIF
292  C     endif start from rest  C     endif start from rest
293         ENDIF         ENDIF
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22