/[MITgcm]/MITgcm/pkg/obcs/obcs_external_fields_load.F
ViewVC logotype

Diff of /MITgcm/pkg/obcs/obcs_external_fields_load.F

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

revision 1.5 by mlosch, Mon Oct 10 05:53:48 2005 UTC revision 1.6 by mlosch, Wed Dec 14 16:42:08 2005 UTC
# Line 471  C     "interpolate" passive tracer bound Line 471  C     "interpolate" passive tracer bound
471  # ifdef ALLOW_OBCS_EAST  # ifdef ALLOW_OBCS_EAST
472          IF ( OBEptrFile(iTracer) .NE. ' '  )          IF ( OBEptrFile(iTracer) .NE. ' '  )
473       &       CALL OBCS_EXTERNAL_FIELDS_INTERP_YZ(       &       CALL OBCS_EXTERNAL_FIELDS_INTERP_YZ(
474       O       OBWptr (1-Oly,1,1,1,iTracer),       O       OBEptr (1-Oly,1,1,1,iTracer),
475       I       OBWptr0(1-Oly,1,1,1,iTracer),       I       OBEptr0(1-Oly,1,1,1,iTracer),
476       I       OBWptr1(1-Oly,1,1,1,iTracer), aWght, bWght, myThid )       I       OBEptr1(1-Oly,1,1,1,iTracer), aWght, bWght, myThid )
477  # endif /* ALLOW_OBCS_EAST */  # endif /* ALLOW_OBCS_EAST */
478  # ifdef ALLOW_OBCS_WEST  # ifdef ALLOW_OBCS_WEST
479          IF ( OBWptrFile(iTracer) .NE. ' '  )          IF ( OBWptrFile(iTracer) .NE. ' '  )

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

  ViewVC Help
Powered by ViewVC 1.1.22